Sub Main For i=1 To 50000 Step 1 xsh.Screen.Send "shutdown" & chr(10) xsh.Session.Sleep 1000 * 10 xsh.Screen.Send "undo shutdown" & chr(10) xsh.Session.Sleep 1000 * 590 Next End Sub