Hallo,
soweit so gut, dieses Skript soll PC in einem PC remote runterfhren, die Einzelteile (Auslesen aus dem Aktive Directory sowie das Shutdown) funktionieren. Allerdings happerts jetzt mit der übergabe des Namens an die Shutdown Funktion. Bitte um Hilfe :
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<LDAP://ou=PC Raeume,ou=Workstations,ou=Technik,dc=fhe,dc=intern>;(objectCategory=computer)" & _
";distinguishedName,name;subtree"
Set objRecordSet = objCommand.Execute
While Not objRecordSet.EOF
Wscript.Echo objRecordSet.Fields("Name")
'Shutdown Procedure-----------------------------------
'-------Hier soll der Name aus dem ActiveDirectory an die Variable übergeben werden
strComputer = objRecordSet.Fields("Name")
'------
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Shutdown()
Next
'Ende der Shutdown Procedure---------------------------
objRecordSet.MoveNext
Wend
objConnection.Close
mfg bigweo