Помогите, пожалуйста, разобраться. Запутался. Написал простенький скрипт для выключения компьютеров, список которых берется из текстового файла (в каждой строке - имя компьютера).
On Error Resume Next
strUsername="Shutdown"
strPasswd="P@ssw0rd"
strComputerList="ShutdownList.txt"
strScriptPath = WScript.ScriptFullName
strScriptPath = left(strScriptPath,instrrev(strScriptPath,"\"))
strComputerList=strScriptPath & strComputerList
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strComputerList, ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
ShutdownSystem strNextLine
Loop
WScript.Quit 0
Sub ShutdownSystem(ComputerName)
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer(ComputerName, "root\cimv2", strUsername, strPasswd)
objSWbemServices.Security_.ImpersonationLevel = 3
Set OpSysSet = objSWbemServices.ExecQuery("select * from Win32_OperatingSystem" & " where Primary=true")
For each OpSys in OpSysSet
opSys.Shutdown()
Next
End Sub
Завел указанную учетную запись Shutdown на всех нужных компьютерах и дал ей права "Shut down the system" и "Force shutdown from a remote system" (в группу администраторов данная учетная запись не входит). При запуске скрипта выдается ошибка "SWbemLocator:
Отказано в доступе."
Если в скрипте задать учетную запись с административными правами, то всё работает. Как я понимаю, не хватает прав для доступа к WMI или DCOM. Но каких?
