Set WshShell = WScript.CreateObject("WScript.Shell") msgbox "Press 'OK' to test whether your computer is on." ,32, "Test" msgbox "Yes, your computer is on." , 64, "Result"