[Iska]

Код:

With WshShell
	Return = .Run("""schtasks.exe"" /Create /RU ""NT AUTHORITY\SYSTEM"" /SC ONSTART /TN OpenHardwareMonitor /TR """ & .ExpandEnvironmentStrings("%SystemDrive%") & "\distr\openhardwaremonitor\OpenHardwareMonitor.exe""", 1, True)
End With