CarlSodaGuyTheCGFanALT2

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