kornkreiszerstörer
Grünschnabel
Hi, ich habe ein Skript, welches lediglich eine .exe Datei auf einem im
Netzwerk entfernten Rechner starten soll. Ich bekomme aber immer die
Fehlermeldung: "...vbs (12,1) SWbemLocator: Zugriff verweigert"
Kann das an meinem fehlerhaften Skript liegen! Ich kann sonst alles mögliche
abfragen! Ich bekomme nur bei diesem Skript diese Meldung. Auch wenn ich die
Firewalls auf beiden Rechner ausschalte. Weiß vielleicht jm, wo der Fehler im
Skript liegen könnte!
=====================================
Const WbemAuthenticationLevelPktPrivacy = 6
strComputer = "PC1"
strNamespace = "root\cimv2"
strUser = "XYZ" 'domäne\admin
strPassword = "12345"
prozess = "C:\WINDOWS\system32\calc.exe"
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
(strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel =
WbemAuthenticationLevelPktPrivacy
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
Error = colitems.Create(prozess, null, null, intProcessID)
If Error = 0 Then
Wscript.Echo prozess & " wurde mit der Prozess ID " & intProcessID & "
gestartet."
Else
Wscript.Echo prozess & " konnte nicht gestartet werden. Fehlercode: " &
Error & "."
End If
===================================
Netzwerk entfernten Rechner starten soll. Ich bekomme aber immer die
Fehlermeldung: "...vbs (12,1) SWbemLocator: Zugriff verweigert"
Kann das an meinem fehlerhaften Skript liegen! Ich kann sonst alles mögliche
abfragen! Ich bekomme nur bei diesem Skript diese Meldung. Auch wenn ich die
Firewalls auf beiden Rechner ausschalte. Weiß vielleicht jm, wo der Fehler im
Skript liegen könnte!
=====================================
Const WbemAuthenticationLevelPktPrivacy = 6
strComputer = "PC1"
strNamespace = "root\cimv2"
strUser = "XYZ" 'domäne\admin
strPassword = "12345"
prozess = "C:\WINDOWS\system32\calc.exe"
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
(strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel =
WbemAuthenticationLevelPktPrivacy
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
Error = colitems.Create(prozess, null, null, intProcessID)
If Error = 0 Then
Wscript.Echo prozess & " wurde mit der Prozess ID " & intProcessID & "
gestartet."
Else
Wscript.Echo prozess & " konnte nicht gestartet werden. Fehlercode: " &
Error & "."
End If
===================================