| Von |
hi0b |
| Am |
08. April 2008 um 20:28:22 |
| Frage |
hallo,
ich lese aus einen textfile hostnamen aus, baue eine Verbindung zum WMI auf um die Rechner auf eine Migration Vorzubereiten.
Das Problem: sobald ein Rechner dabei ist auf dem ich keine ausreichenden Rechte habe (DomainAdmin Gruppe nicht in Lokaler AdminGruppe) kann ich zu keinen Rechner eine Verbindung mehr aufbauen.
Hier mal der Code auf das Wesentliche beschränkt:Set FSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Const Dateiname = "HostList.txt"
domname = "test.Local"
Set DateiInhalt = FSO.OpenTextFile(Dateiname)
On Error Resume Next
Do Until DateiInhalt.AtEndOfStream
Hostname = DateiInhalt.ReadLine & "." & domname
Ausgabe = Hostname & ";"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Hostname &_
"\root\cimv2")
If Err.Number <> 0 Then
Ausgabe = Ausgabe & Err.Number & " - " & Err.Description
'objWMIService = 0
'Set objWMIService = Nothing
'Set objWMIService = False
'Set objWMIService = objWMIService.clear
'objWMIService.Delete
Else
Ausgabe = Ausgabe & "WMI erreichbar"
End If
WScript.Echo Ausgabe
LoopDas textfile:xp
Vista
W2k
xpenglish Hilfe, bin mit meinen Latein am Ende
lg, hi0b |
|
Zum Seitenanfang