password = "pass"
Do
returnvalue = inputbox("Please enter your password","Password")
Select case returnvalue
Case Password
MsgBox "Welcome"
Exit Do
Case Else
MsgBox "Wrong password. Now loging off.",10,"Wrong Password"
strComputer = "."
strExe = "shutdown.exe -f"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")
' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_(
"Create").InParameters.SpawnInstance
objProgram.CommandLine = strExe
'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
WScript.echo "Created: " & strExe & " on " & strComputer
WSCript.Quit
End select
Loop