Thursday, 25/Apr/2024
YTM
Site Menu

Create Your Own Website, See How!.
Our poll
Are you Subscribed to YuTubeMedia's Channel?
Total of answers: 454
Main » 2009 » February » 09
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 ... Read more »

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 © 2024
Hosted by uCoz