Dim shl As Shell
shl.Initialize("shl", File.Combine(GetEnvironmentVariable("windir", ""), "System32\rundll32.exe"), Array("user32.dll,LockWorkStation"))
shl.Run(-1)
Wait For (shl) shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Log(Success)