bastel_wastel
Mitglied
Wer kennt gute Foren und Seiten für Windows Scripting host
Hab da ein Problem:
Folgendes script:
dim status
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colStoppedServices = objWMIService.ExecQuery _
("SELECT DisplayName,State FROM Win32_Service WHERE State <> 'Running' AND Name='alerter'")
For Each objService in colStoppedServices
Wscript.Echo objService.DisplayName & " = " & objService.State
Next
For Each objService in colStoppedServices
if objService.State = "Stopped" then
status = 0
Wscript.Echo status
end if
Next
----------------------------------------------
Nun zum Problem...das ganze soll nun nicht auf dem lokalen Rechner ausgeführt werden sondern auf einem im NETZ...!
Natürlich weiss ich das der Punkt bei <strComputer = "."> durch den Namen ersetzt werden muss.
Problem is aber das ich andere Benutzernamen und Kennwort wie der Rechner verwende.....wie übergebe ich User und Kennwort ?
Hab da ein Problem:
Folgendes script:
dim status
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colStoppedServices = objWMIService.ExecQuery _
("SELECT DisplayName,State FROM Win32_Service WHERE State <> 'Running' AND Name='alerter'")
For Each objService in colStoppedServices
Wscript.Echo objService.DisplayName & " = " & objService.State
Next
For Each objService in colStoppedServices
if objService.State = "Stopped" then
status = 0
Wscript.Echo status
end if
Next
----------------------------------------------
Nun zum Problem...das ganze soll nun nicht auf dem lokalen Rechner ausgeführt werden sondern auf einem im NETZ...!
Natürlich weiss ich das der Punkt bei <strComputer = "."> durch den Namen ersetzt werden muss.
Problem is aber das ich andere Benutzernamen und Kennwort wie der Rechner verwende.....wie übergebe ich User und Kennwort ?