i dont undetsrand the logic
if there is no data input what is the use of input box ?
==================================================
' logging off a Computer
Dim a,b,x,y,z
a= InputBox("log off after _______ minute/s?")
b=a*60000
WScript.Sleep b
Choice = InputBox("if you want cancel enter 1,if yoy want to still log off enter 2")
Select Case choice
Case 1
MsgBox ("bye")
Case 2
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonat e,(Shutdown)}\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Win32Shutdown(0)
Next
Case Else
MsgBox("invalid entry")
End select
-----------------
The intention of above code is:
User will schedule log off PC after a particular time. Inputbox will be prompted after that particular time. If the user is available at that time, he will cancel the operation and if the user is not available the PC should be logged off. So If no input is provided for the input box, I should be able to overcome(skip) that log off the PC.