Reboot/перезапуск сервера

CMD:

Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0"

 

Перезапустить простой скрипт VBS:

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")

for each OpSys in OpSysSet
    OpSys.Reboot()
next

Перезапустить удаленный компьютер:

Option Explicit

Dim strComputer, strQuery

' Check command line arguments
If WScript.Arguments.Named.Count > 0 Then Syntax
Select Case WScript.Arguments.Unnamed.Count
    Case 0
        ' Default is local computer if none specified
        strComputer = "."
    Case 1
        If InStr( WScript.Arguments.Unnamed(0), "?" ) > 0 Then
            ' A "?" in the argument means display help
            Syntax
        Else
            strComputer = WScript.Arguments.Unnamed(0)
        End If
    Case Else
        ' No more than 1 argument allowed
        Syntax
End Select

' Connect to computer
strQuery     = "SELECT * FROM Win32_OperatingSystem WHERE Primary=True"
Set OpSysSet = GetObject( "winmgmts:{(Shutdown)}//" & strComputer & "/root/cimv2" ).ExecQuery( strQuery )

' Actual reboot command
For Each OpSys In OpSysSet
    OpSys.Reboot()
Next

Sub Syntax
    Dim strMsg
    strMsg = "Reboot.vbs,  Version 2.10" & vbCrLf _
           & "Reboot any WMI enabled computer on the network." _
           & vbCrLf & vbCrLf _
           & "Usage:  " & UCase( WScript.ScriptName ) _
           & "  [ computer_name ]" & vbCrLf & vbCrLf _
           & "Where:  ""computer_name"" is the name of the " _
           & "computer to be rebooted" & vbCrLf _
           & "                        (without leading backslashes)." _
           & vbCrLf & vbCrLf _
           & "        Default is ""."" (the local computer)." _
           & vbCrLf & vbCrLf _
           & "Based on a post by Alex Angelopoulos on www.developersdex.com." _
           & vbCrLf & vbCrLf _
           & "Written by Rob van der Woude" & vbCrLf _
           & "http://www.robvanderwoude.com"
    Wscript.Echo( strMsg )
    Wscript.Quit 1
End Sub