[Vasosel]

Приведенный скрипт делает следующее:

получает имя компьютера как аргумент командной строки;
пытается его пингануть 3 раза;
если в выводе программы ping (STDOUT) находит строку Reply, то получает список пользователей этого компьютера и выводит их на экран(вот тут пес знает, что именно вернет Array("User"), надо тестить)

Т.е. на удаленной машине он и не должен выполняться.

Чтобы выполнить скрипт на удаленной машине с правами локального администратора, необходимо добавить этот скрипт в автозагрузку (конфигурация компьютера)
Чтобы выполнить скрипт на удаленной машине с правами пользователя, необходимо добавить этот скрипт в логон-скрипты (конфигурация пользователя)
Если необходимо выполнять скрипт в процессе работы, можно покопаться в сторону RPC, мне в руки как-то попадалась утилита, позволяющая выполнить команду/запустить программу на удаленной машине.

Только зачем это нужно? если выполнить приведенный аффтором сценарий

Set objSysInfo = CreateObject("ADSystemInfo")
Set objComputer = GetObject _
("LDAP://" & objSysInfo.ComputerName)
Set CurrentUser = GetObject("LDAP://" & objSysInfo.UserName)
objComputer.Put "Description" , CurrentUser.DisplayName
objComputer.SetInfo

с правами администратора, то в Description передастся имя администратора, а не пользователя, который под ним залогинен.

[Antichrist]

По поводу последнего скрипта уже и так понятно ,он впринципе работать не будет от пользователя ,на него я уже зибил.
Через RPC не полуится ,через него насколько я понял только процессы можно запускать
таким вот образом

Код:

Const SW_NORMAL = 1
strComputer = "administrator"
strCommand = "c:\test.vbs" 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

' Configure the Notepad process to show a window
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = SW_NORMAL

' Create Notepad process
Set objProcess = objWMIService.Get("Win32_Process")
intReturn = objProcess.Create _
    (strCommand, Null, objConfig, intProcessID)
If intReturn <> 0 Then
    Wscript.Echo "Process could not be created." & _
        vbNewLine & "Command line: " & strCommand & _
        vbNewLine & "Return value: " & intReturn
Else
    Wscript.Echo "Process created." & _
        vbNewLine & "Command line: " & strCommand & _
        vbNewLine & "Process ID: " & intProcessID
End If

Работает отлично ,но ограничение есть в том что пользовательне может взаимодействовать с процессом ,можно конечно попробовать wscript с араметром запускать ,но это не совсем то.
Поидее вот таким скриптом можно запустить любой сценарий на удалённой машине в процессе работы

Код:

strRemoteComputer = "target_comp"
strWorkerScript = "mount.vbs"
Set objWshController = WScript.CreateObject("WshController")
Set objRemoteScript = _
objWshController.CreateScript(strWorkerScript, strRemoteComputer)
objRemoteScript.Execute

Do While Not objRemoteScript.Status = 2
 Wscript.Sleep(100)
 Wscript.Echo "Remote script not yet complete."
Loop

Запускаю на target_comp скрипт mount.vbs в котором содержится просто

Код:

Set WshNetwork = CreateObject("WScript.Network")
'Монтируем Обмен на серваке как диск Y:
WshNetwork.MapNetworkDrive "x:", "\\server\install"

в итоге диск монтируется не на тот комп а на мою машину ,я этого понять не могу ,почему ?
Я прекрасно понимаю что такое можно сделать и через автозагрузку и через логон скрипт ,но задача в том чтобы запустить скрипт именно когда мне того захочется в любой момент работы.

[Vadikan]

А почему не пользуемся тегом code?

---

Перенесено обратно в NT. Все-таки вопрос связан с администрированием клиентов, а это тема NT-форума, несмотря на тип клиентской ОС.

[Antichrist]

сорри ,запамятовал исправлюсь ,почему перенесли тоже не в курсе ,думаю это как раз админам нужно ,а большинство обитает в 2k3