|
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 »
|
|
|
|
Create A Web site! |
Use Coupon Code: YuTubeMedia for 1 Cent Per Month Cost! |
Statistics |
Total online: 1 Guests: 1 Users: 0 |
|