MagistrAnatol
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Господа, подсобите с проблемкой - надо запустить на удаленном компе, находится в локальной сети,одну программу
psexec.exe не предлагать
пробывал через WMI но не получается перевести бейсиковский скрипт
On Error Resume Next
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
заранее пасибо
Добавлено:
да и посоветуйте компонент для работы c xml для С++builder 2010 а то нативХМЛ не хочет работать  пишет ноу рут |
