Серый форум — VBS: WSHController.CreateScript отказывается работать

Re: VBS: WSHController.CreateScript отказывается работать

2012-06-22T07:59:02Z

RUVATA, а мы и не ломаем. У нас всё работает.

Re: VBS: WSHController.CreateScript отказывается работать

2012-06-22T07:56:06Z

Сначала было Windows API, и был DLL Hell...
Не ломайте себе голову с "этими вашими" DCOM, COM, OLE, ActiveX(на удаленной машине)
Берите любой известный Вам язык программирования где имеется возможность поднимать сокет,
учите программу получать из сокета имя скрипта и наделяете ее функционалом его запуска, единожды распространяете на машины по средствам того-же $install... и забыли как страшный сон.
Я как-то слепил такую штуку (с блекджеком и шлюхами) на AutoIt.
В то время как мой упертый коллега, уже шестой час подряд побеждал "Сервер RPC недоступен",
а потом до самой своей капитуляции ковырял учебник по WMI - и таки выстрелил себе в ногу спустя сутки.

Re: VBS: WSHController.CreateScript отказывается работать

2012-06-20T10:51:21Z

Я для настроек компа на удалённый запуск скриптов выполняю на нём вот такой скрипт...

Set WshShell=WScript.CreateObject ("WScript.Shell")
WshShell.Run "wscript -regserver",1,1
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings\Remote",1,"REG_DWORD"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings\Enabled",1,"REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings\IgnoreUserSettings",1,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\AutoShareServer",1,"REG_DWORD"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\AutoShareWks",1,"REG_DWORD"

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name = 'SharedAccess'")
For Each objService in colServiceList
    errReturnCode = objService.StopService   
    errReturnCode = objService.ChangeStartMode("Disabled")   
Next

А на своём ещё ручками DCOM настраиваю...

Re: VBS: WSHController.CreateScript отказывается работать

2012-06-20T10:28:29Z

По настройке DCOM смотрите здесь: ITband.ru » 7 способов выполнить команду на удалённом компьютере в разделе «WSH Remote Scripting»:

В системах Windows XP с пакетом обновлений 2 и выше, необходимо изменить параметры безопасности DCOM. Это можно сделать с помощью групповой политики. В узле Computer Configuration \ Windows Settings \ Security Settings \ Local Policies \ Security Options следует установить разрешения следующим образом:
DCOM: Machine Access Restrictions in Security Descriptor Definition Language (SDDL) syntax
Выдать группам Anonymous Logon и Everyone разрешения Allow Local и Allow Remote Access
DCOM: Machine Launch Restrictions in Security Descriptor Definition Language (SDDL) syntax
Выдать группе Administrators разрешения Allow Local Launch, Allow Remote Launch, Allow Local Activation, Allow Remote Activation
Группе Everyone – Allow Local Launch, Allow Local Activation

(ну и прочие способы, помимо «WSH Remote Scripting» можете поглядеть для разнообразия).

Re: VBS: WSHController.CreateScript отказывается работать

2012-06-20T08:23:43Z

alexii пишет:

Для начала выполните на удалённой машине:

вот эту страничку я еще с утра прочитал и в реестр изменения внес... И после этого уже и пробовал, разумеется... Только вот в dcomcnfg не нашел WSHRemote... Может не там искал?

C:\share>type whost.cmd
regedit /s \\igor\share\whost.reg
wscript.exe -regserver

C:\share>type whost.reg
REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings]
"Remote"="1"
"IgnoreUserSettings"="1"

C:\share>

Re: VBS: WSHController.CreateScript отказывается работать

2012-06-20T08:02:48Z

Для начала выполните на удалённой машине:

wscript.exe -regserver
reg.exe add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings" /v "Remote" /t REG_DWORD /d 1

и попробуйте снова.

Re: VBS: WSHController.CreateScript отказывается работать

2012-06-20T07:33:14Z

inock, квадратные скобки означают необязательность аргумента. Если Вы не указываете имя/пароль — вход на удалённую машину осуществляется от имени и с полномочиями текущего пользователя.

Re: VBS: WSHController.CreateScript отказывается работать

2012-06-20T06:43:16Z

alexii пишет:

Какая ОС у Вас и какая на «bte-dc-01»?

у меня - win 7 на удаленной машине win server 8 R2

Вообще-то не требует.

Usage: psexec [\\computer[,computer2[,...] | @file][-u user [-p psswd]][-n s][-l][-s|-e][-x][-i [session]][-c [-f|-v]][-w directory][-d][-][-a n,n,...] cmd [arguments]
...
-u Specifies optional user name for login to remote
computer.
-p Specifies optional password for user name. If you omit this
you will be prompted to enter a hidden password.

Re: VBS: WSHController.CreateScript отказывается работать

2012-06-20T06:29:23Z

Какая ОС у Вас и какая на «bte-dc-01»?

который требует указывать login/password в явном виде...

Вообще-то не требует.

VBS: WSHController.CreateScript отказывается работать

2012-06-20T06:25:21Z

Вот такой незымысловатый код:

Set oCtrl = WScript.CreateObject("WSHController")
Set oScript = oCtrl.CreateScript("C:\share\link.vbs","bte-dc-01")

Дает вот такой злобный отлуп:

C:\TEMP>ver
Microsoft Windows [Version 6.1.7601]
C:\TEMP>cscript test2.vbs
Сервер сценариев Windows (Microsoft R) версия 5.8
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.
C:\TEMP\test2.vbs(2, 1) Ошибка выполнения Microsoft VBScript: Невозможно создание объекта контейнером ActiveX
C:\TEMP>

Оно как-то лечится? Или может быть есть какие-то другие способы запустить команду на удаленном компьютере? Собственно все эти извращения вызваны там, что я пытаюсь обойтись без psexec.exe, который требует указывать login/password в явном виде...

Спасибо