Locking System with VbScript


Function Lock_system()

Dim oSys,Syscmd

Set oSys = CreateObject("WScript.Shell")

Syscmd = "%windir%\SYSTEM32\rundll32.exe user32.dll,LockWorkStation"

oSys.Run Syscmd, 0, False

End Function

Lock_system()

Copy the above code into notepad,save the file as filename.vbs and double click to run it.

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: