Как с помощью VBScript создать скрытый процесс (скрытно запустить программу)

Полный листинг скрипта

Const HIDDEN_WINDOW = 0
strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW

Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")

errReturn = objProcess.Create( "Notepad.exe", null, objConfig, intProcessID)

For Each objClassMethod In objProcess.Methods_ 
   MSG = MSG & objClassMethod.Name & vbNewLine 
Next

MsgBox MSG 

В диспетчере задач запускается процесс Notepad.exe

Комментарии ()

    722