merijn1983
Gebruiker
- Lid geworden
- 7 jul 2003
- Berichten
- 33
Goedenmorgen,
Ik wil andere pc's af kunnen sluiten dmv het shutdown.exe -s -m \\COMPUTERNAAM
Maar als ik dit doe krijg ik toegang geweigerd.
Op een ander forum had ik deze tekst gevonden: maar ook dit lukt niet.
Kan iemand mij helpen hiermee ?
Alvast bedankt
Dim oWindows, oLocator, oConnection, oSys
Dim sComputer, sUser, sPassword
'set remote credentials
sComputer = "*******"
sUser = "%computername%\****"
sPassword = "*****"
'get WMI locator
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
'Connect to remote WMI
Set oConnection = oLocator.ConnectServer(sComputer, "root\cimv2",sUser, sPassword)
'issue shutdown to OS
' 4 = force logoff
' 5 = force shutdown
' 6 = force reboot
' 12 = force power off
Set oWindows = oConnection.ExecQuery("Select " & "Name From Win32_OperatingSystem")
For Each oSys In oWindows
oSys.win32ShutDown(5)
next
WScript.Echo "Done!"
Ik wil andere pc's af kunnen sluiten dmv het shutdown.exe -s -m \\COMPUTERNAAM
Maar als ik dit doe krijg ik toegang geweigerd.
Op een ander forum had ik deze tekst gevonden: maar ook dit lukt niet.
Kan iemand mij helpen hiermee ?
Alvast bedankt
Dim oWindows, oLocator, oConnection, oSys
Dim sComputer, sUser, sPassword
'set remote credentials
sComputer = "*******"
sUser = "%computername%\****"
sPassword = "*****"
'get WMI locator
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
'Connect to remote WMI
Set oConnection = oLocator.ConnectServer(sComputer, "root\cimv2",sUser, sPassword)
'issue shutdown to OS
' 4 = force logoff
' 5 = force shutdown
' 6 = force reboot
' 12 = force power off
Set oWindows = oConnection.ExecQuery("Select " & "Name From Win32_OperatingSystem")
For Each oSys In oWindows
oSys.win32ShutDown(5)
next
WScript.Echo "Done!"
