Lovec
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Интересует вопрос как этот код VBS переделать на AutoIt (код запуска процесса на удаленной машине):
Код: Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
CompName = "CompName" 'имя компьютера
UserName = "Domain\User" 'имя пользователя
Pass = "Pass" 'пароль пользователя
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 |
Вот что у меня получается
Код: $strComputerName = "CompName"
$strAdminName = "Domain\User"
$strAdminPass = "Pass"
$strProcessName = "notepad.exe"
Dim $PID
$objSWbemLocator = ObjCreate("WbemScripting.SWbemLocator")
$objWMIService = $objSWbemLocator.ConnectServer($strComputerName, "root\cimv2", $strAdminName, $strAdminPass, "", "", 0)
$objClass = $objWMIService.Get("Win32_Process")
$objStartup = $objWMIService.Get("Win32_ProcessStartup")
$objConfig = $objStartup.SpawnInstance_
$objConfig.ShowWindow = 3
$Res = $objClass.Create($strProcessName, "", "", $PID)
If $Res <> 0 Then
MsgBox (0, '', "Ошибка запуска процесса. Код ошибки: " & $Res)
Else
MsgBox (0, '', 'PID запущенного процесса: ' & $PID)
EndIf |
Но процесс не запускается, а все время ругается на строку
Код:| $Res = $objClass.Create($strProcessName, "", "", $PID) |
То неверный тип. То Invalid Parameter. Что в принципе одно и тоже...  |
Всего записей: 1028 | Зарегистр. 29-10-2002 | Отправлено: 15:56 13-08-2010 | Исправлено: Lovec, 15:58 13-08-2010 |
|
