[O L E G]

Код:

Option Explicit

Dim strProcess
Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx

Dim lngProcessID


strProcess  = "Explorer.exe"
strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

If objSWbemServicesEx.Get("Win32_Process").Create(strProcess, Null, Nothing, lngProcessID) = 0 Then
	WScript.Echo "Process [" & strProcess & "] create successfully, Process ID is [" & lngProcessID & "]."
	
	WScript.Sleep 3000
	
	If objSWbemServicesEx.Get("Win32_Process.Handle='" & CStr(lngProcessID) & "'").Terminate() = 0 Then
		WScript.Echo "Process [" & strProcess & "], Process ID [" & lngProcessID & "] terminate successfully."
	Else
		WScript.Echo "Can't terminate process [" & strProcess & "], Process ID [" & lngProcessID & "]."
	End If
Else
	WScript.Echo "Can't create process [" & strProcess & "]."
End If

Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

Данный скрипт открывает процесс в подпроцессе Winlogon, а можно ли его переписать,что бы открывал как отдельный процесс?не в под процессах?