Всем привет!
Огромная просьба, подскажите по теме, в инете много чего написано, но смысл другой. Мне что надо : законнектиться на другую машину, знаю логин и пароль пользака, под которым можно зайти, и запустить там прогу а затем, можно и другим криптом опустить, допустим calc.exe, это не принципиально.

вот мои куски кода, которые я пытался родить :

1 вариант через шедулер :

Dim strComputer,res
Command = "calc.exe"
DaysOfMonth = ""
DaysOfWeek = ""
InteractWithDesktop = "TRUE"
RunRepeatedly = "TRUE"
StartTime = "********" & Now & ".000000"
JobId = ""

strComputer = "IP"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
objLocator.Security_.AuthenticationLevel = 3
objLocator.Security_.Privileges.Add(18)
Set objWMIService = objLocator.ConnectServer(strComputer, "root\cimv2", "логин", "пароль")
objWMIService.Security_.ImpersonationLevel = 3

Set objScheduledJob = objWMIService.Get("Win32_ScheduledJob")
Res = objScheduledJob.Create(Command,DaysOfMonth,DaysOfWeek,InteractWithDesktop,RunRepeatedly, StartTime,JobId)

2 вариант : - есть в инете , этот я переписал под себя
' Имя: RunRemoteScript.vbs
Option Explicit
Dim Controller, RemScript ' Объявляем переменные
Dim strComputer, WshShell, objLocator,objWMIService

' Создаем объект WshController
Set Controller = WScript.CreateObject("WshController")

strComputer = "IP"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
objLocator.Security_.AuthenticationLevel = 3
objLocator.Security_.Privileges.Add(18)
Set objWMIService = objLocator.ConnectServer(strComputer, "root\cimv2", "логин", "пароль")
objWMIService.Security_.ImpersonationLevel = 3

' Создаем сценарий на удаленной машине (объект WshRemote)
Set RemScript = Controller.CreateScript("calc.exe", strComputer)
RemScript.Execute ' Запускаем удаленный сценарий
WScript.Echo "Удаленный сценарий запущен"
While RemScript.Status <> 2
' Цикл выполняется до завершения удаленного сценария
WScript.Sleep 100 ' Приостанавливаем сценарий на 0,1 сек
Wend
WScript.Echo "Выполнение удаленного сценария завершено"
'************* Конец *********************************************


ВСЕ РАВНО НИЧЕГО НЕ РАБОТАЕТ!!!!!!!!1 ПОДСКАЖИТЕ ПЛИЗЗЗЗЗЗЗ ОЧЕНЬ НАДО!!!!!!!!!!!

есть локальная сеть, все с доступами и разрешениями нормально. Необходима помощь в плане доступа для администрирования и мониторинга. Через какой класс это делать, весь инет перерыл, не могу сообразить. Если можете подскажите!!! Сенкс.
Модератор:
лишний флуд я удалил