- #1
O
oelchen
Mitglied
Themenersteller
- Dabei seit
- 27.08.2005
- Beiträge
- 5
- Reaktionspunkte
- 0
Hallo,
ich versuche installierte Dienste und Patches von den Rechnern meiner Domäne auszulesen, und habe für diese auch Administratorrechte. Allerdings erhalte ich die Fehlermeldung Zugriff verweigert (Fehlercode 70), wenn mein Script versucht mit den Rechnern zu verbinden. Hier ist der entsprechende Code:
Set objWMIService = GetObject(winmgmts: _
& {impersonationLevel=impersonate, (SystemProfile)}!\\ _
& strComputer & \root\cimv2)
If Err <> 0 Then
Wscript.Echo Err.Number & -- & Err.Description
Wscript.Echo Der Rechner & strComputer & konnte nicht erreicht werden.
Err.Clear
Else
Set colQuickFixes = objWMIService.ExecQuery _
(Select * from Win32_QuickFixEngineering)
Wscript.Echo Installierte Hotfixes:
For Each objQuickFix in colQuickFixes
Wscript.Echo Hot Fix ID: & objQuickFix.HotFixID _
& Installation Date: & objQuickFix.InstallDate _
& Installed By: & objQuickFix.InstalledBy
Next
Set colRunningServices = objWMIService.ExecQuery _
(SELECT * FROM Win32_Service)
Wscript.Echo Installierte Services:
For Each objService in colRunningServices
Wscript.Echo Name: & objService.DisplayName
Next
End If
Als Admin sollte ich eigentlich die entsprechende Berechtigung haben und diese auch auf das Script vererben. Gibt es vielleicht globale Sicherheitsrichtlinien, welche den Zugriff verhindern?
Mit bestem Dank im Voraus,
Oelchen
ich versuche installierte Dienste und Patches von den Rechnern meiner Domäne auszulesen, und habe für diese auch Administratorrechte. Allerdings erhalte ich die Fehlermeldung Zugriff verweigert (Fehlercode 70), wenn mein Script versucht mit den Rechnern zu verbinden. Hier ist der entsprechende Code:
Set objWMIService = GetObject(winmgmts: _
& {impersonationLevel=impersonate, (SystemProfile)}!\\ _
& strComputer & \root\cimv2)
If Err <> 0 Then
Wscript.Echo Err.Number & -- & Err.Description
Wscript.Echo Der Rechner & strComputer & konnte nicht erreicht werden.
Err.Clear
Else
Set colQuickFixes = objWMIService.ExecQuery _
(Select * from Win32_QuickFixEngineering)
Wscript.Echo Installierte Hotfixes:
For Each objQuickFix in colQuickFixes
Wscript.Echo Hot Fix ID: & objQuickFix.HotFixID _
& Installation Date: & objQuickFix.InstallDate _
& Installed By: & objQuickFix.InstalledBy
Next
Set colRunningServices = objWMIService.ExecQuery _
(SELECT * FROM Win32_Service)
Wscript.Echo Installierte Services:
For Each objService in colRunningServices
Wscript.Echo Name: & objService.DisplayName
Next
End If
Als Admin sollte ich eigentlich die entsprechende Berechtigung haben und diese auch auf das Script vererben. Gibt es vielleicht globale Sicherheitsrichtlinien, welche den Zugriff verhindern?
Mit bestem Dank im Voraus,
Oelchen