'*** v7.A *** www.dieseyer.de ******************************* 

' 

' Datei:  wmi-pcreboot.vbs 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

' Sendet mit WMI eine Reboot-Auforderung an einen PC. 

' 

'************************************************************ 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

Dim WSHNet      : Set WSHNet    = WScript.CreateObject("WScript.Network") 

Dim oArgs       : Set oArgs     = Wscript.Arguments  

Dim WSHShell    : Set WSHShell  = WScript.CreateObject("WScript.Shell") 

 

Dim i, PCName 

 

For  i = 0 to oArgs.Count - 1     ' hole alle Argumente  

  If i = 0 Then PCName    = oArgs.item(i)   

Next 

 

' PCName = WScript.CreateObject("WScript.Network").ComputerName  

 

'  PCName = wshnet.ComputerName 

'  PCName = "53.73.179.56" 

 

If PCName = "" Then PCName = InputBox( vbCRLF & vbCRLF & "Welcher PC soll neu gestartet werden?", WScript.ScriptName, PCName ) 

 

LogDatei( Now() & vbTab & PCName & " " & vbTab & " soll eine ReBoot-Anforderung bekommen." ) 

 

' PCreboot( PCName ) 

  remoteShutdown( PCName )  

 

LogDatei( Now() & vbTab & PCName & " " & vbTab & " hat eine ReBoot-Anforderung erhalten." ) 

 

WSHShell.Popup  PCName & vbCRLF & vbCRLF & "hat eine ReBoot-Anforderung erhalten." ,15 , "0036 :: " & WScript.ScriptName, 64 + 4096 + 0 

 

 

'******************************************************* 

Sub remoteShutdown(remotename) ' 5.3 - http://dieseyer.de  

'******************************************************* 

' http://groups.google.de/groups?hl=de&lr=&newwindow=1&frame=right&th=43c55ccb528dbbc3&seekm=ebO58v50DHA.2480%40TK2MSFTNGP10.phx.gbl#link5 

 

  Const EWX_LOGOFF   = 0 

  Const EWX_SHUTDOWN = 1 

  Const EWX_REBOOT   = 2 

  Const EWX_FORCE    = 4 

  Const EWX_POWEROFF = 8 

 

  Dim wmi     : Set wmi = GetObject( "winmgmts:{(RemoteShutdown)}!//" & remotename & "/root/cimv2" ) 

  Dim objset  : set objset = wmi.instancesof("win32_operatingsystem") 

 

  Dim obj, os 

 

  for each obj in objset 

    obj.security_.privileges.add 18, true 

    set os = obj :  exit for 

  next 

 

  os.win32shutdown 6 

 

End Sub ' remoteShutdown(remotename) 5.3 - http://dieseyer.de  

 

 

 

 

'******************************************************* 

Sub PCreboot( strComputer ) ' 5.3 - http://dieseyer.de  

'******************************************************* 

Dim objWMIService, colOperatingSystems, ObjOperatingSystem 

 

' On Error Resume Next                                ' wird immer ausgeführt 

 

  Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2") 

  Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") 

  For Each objOperatingSystem in colOperatingSystems 

    ObjOperatingSystem.Reboot() 

  Next 

 

 On Error GoTo 0 

   

End Sub ' PCreboot( strComputer ) 5.3 - http://dieseyer.de  

 

 

'******************************************************* 

Sub LogDatei( Txt ) ' Anfang 

'******************************************************* 

  CreateObject("Scripting.FileSystemObject").OpenTextFile( WScript.ScriptName & ".log" , 8, true ).WriteLine( Txt )  

End Sub ' LogDatei