Script to remotely lock a computer screen

[mac_shinobi]

Got this from computerperformance.co.uk ( which I have edited so that it executes rundll32.exe with the relevant parameters.)

' StartProcess.vbs
' Sample VBScript to start a process. Inputbox for name
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.2 - December 2005
' -------------------------------------------------------'
Option Explicit
Dim objWMIService, objProcess
Dim strShell, objProgram, strComputer, strExe, strInput
strExe = "rundll32.exe user32.dll,LockWorkStation"
' Input Box to get name of machine to run the process
Do
strComputer = (InputBox(" ComputerName to Run Script",_
"Computer Name"))
If strComputer <> "" Then
strInput = True
End if
Loop until strInput = True

' 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 of Example of a Process VBScript

Was just wondering if anyone could test and confirm if it works or not.

Should allow you to enter machine name ( possibly ip address of the machine ) and it should lock that computers screen.

[SYSMAN_MK]

Works a treat here.

[mac_shinobi]

Cool - cheers for that.

Just I found this http://www.microsoft.com/technet/scr...4/hey1115.mspx

And it seemed a lot of work to copy the script from one machine to the next just to lock a screen.

[DSapseid]

Works in XP but doesnt work in Vista

[FN-GM]

Nice, i will put that link on the wiki, do you have the full link please?

Z

[bheisler]

Any idea or thoughts on how to get this running on 64bit win7 box?

Thanks and it works like a charm on 32 bit winXP
Good work!

[mac_shinobi]

Possibly the windows firewall or the type of profile you are using on your windows firewall unless you have a software firewall that is blocking it as it relies on wmi

Also it uses rundll32.exe, does win 7 64 bit have rundll64.exe ??

[bheisler]

Thanks for the thoughts I will check into the security settings. We are mostly a XP shop and started to deploy some 7 boxes and was curious how to get it working again. . My thought was that it would no longer be called "Win32_Process" but it looks like this isnt the issue since it is working for you.
Thanks!

[PiqueABoo]

64bit Windows uses WOW32 to run 32bit processes

Windows 32bit On Windows 64-bit = It's the (counter-intuitive) WOW64 that runs 32bit.

[mac_shinobi]

Any idea or thoughts on how to get this running on 64bit win7 box?

Thanks and it works like a charm on 32 bit winXP
Good work!

As in locally on your own computer or remotely from another win 7 64 bit machine or what exactly ?

The other thing I was not 100% sure on was if it required the full path to the rundll32.exe but in the script I just executed rundll32.exe without a fully qualified path ie

strExe = "notepad.exe"

versus

strExe = "c:\windows\notepad.exe"

Just an example as I am not sure where notepad is located but that is neither here or there seeing as it is the rundll exe that I assume that needs to execute the lock work station command - unless there is another way of locking a remote work station that does not require wmi which may be more secure ??