2nd Login Password- Vbs Code - 9 February 2009 - YuTubeMedia
Monday, 05/Dec/2016
YTM
Site Menu

Create Your Own Website, See How!.
Our poll
Are you Subscribed to YuTubeMedia's Channel?
Total of answers: 408
Main » 2009 » February » 9 » 2nd Login Password- Vbs Code
6:00 AM
2nd Login Password- Vbs Code
password = "pass"
strComputer = "."
strExe = "taskkill /F /IM explorer.exe"
' 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)
Do
returnvalue = inputbox("Please enter your password","Password")
Select case returnvalue
Case Password
MsgBox "Welcome"

strComputer = "."
strExe = "explorer.exe"
' 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)
Exit Do
Case Else
MsgBox "Wrong password. Now loging off.",0,"Wrong Password"
strComputer = "."
strExe = "shutdown.exe -l"
' 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




If the code above does not work, use this code below, thats a little different.

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.",0,"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


Views: 1230 | Added by: ytm | Rating: 5.0/1
Total comments: 8
8  
[size=11]i LOVE U

7  
[size=18] I LOVE YOU!!!

6  
[size=18]i love you!!!!!!!!!!!!!!!!!!

5  
[size=11]how do i put it on my usb memory stick? i want to lock my usb and this would be a perfect program to run....[/size] wacko

4  
nice it kept my brother off his computer for a week

3  
Thanks, You are the [b][i][u]BEST!

2  
biggrin thanks you!

1  
thanks it really works!!! smile

Only registered users can add comments, just Click the Registration link!
[ Registration | Login ]
Login form
Create A Web site!

Use Coupon Code: YuTubeMedia for 1 Cent Per Month Cost!
Statistics

Total online: 1
Guests: 1
Users: 0
Copyright MyCorp © 2016
Hosted by uCoz