'You can use this code or modify it as you need, but you will need to change the .txt to .vbs!!!

'Enjoy

'Restart Computer --------------------------------------------
strComputer = Inputbox("Which computer do you want to restart?")
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