Option Explicit
 
Dim WShell
Set WShell = CreateObject("WScript.Shell")
 
With WShell
 
	' Bildschirm sperren
	.Run "logon.scr"
 
	' Eine Sekunde warten
	WScript.Sleep 1000
 
	' Bildschirm entsperren
	.SendKeys ""
 
End With
 
Set WShell = Nothing
 
WScript.Quit