24rus
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Нашел пример такого скрипта, как его можно изменить чтобы процесс запускался на локальном компьютере, а не в сети, у самого пока ничего не получается... Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") CompName = "komp" 'имя компьютера UserName = "admin" 'имя пользователя Pass = "admin" 'пароль пользователя Set objServices = objSWbemLocator.ConnectServer(CompName, "root\CIMV2", UserName, Pass, Null, Null, 0) If Err.Number <> 0 Then WScript.Echo Err.Number & ": " & Err.Description WScript.Quit End If Set objClass = objServices.Get("Win32_Process") Res = objClass.Create("notepad.exe", Null, Null, PID) If Res <> 0 Then WScript.Echo "Код ошибки: " & Res End If |