1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Const Adresse_IP = "198.111.11.1" 'adresse factice
Const path_executable = "Cmd /c Cscript c:\fichier.vbs"
Dim PID
Dim Processus
Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domain = " & WshNetwork.UserDomain
WScript.Echo "Computer Name = " & WshNetwork.ComputerName
WScript.Echo "User Name = " & WshNetwork.UserName
Set objWMIService = GetObject("winmgmts:\\" & Adresse_IP & "\root\cimv2:Win32_Process") 'Adresse_IP est une variable qui contient une adresse IP ;)
lngRet = objWMIService.Create(path_executable, Null, Null, PID)
Set objWMIService = Nothing
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(Adresse_IP, "root\CIMV2")
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'Cscript.exe'")
WScript.Echo "le process est:" &PID |