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