Dim WshShell Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run "rundll32 shell32.dll,#60" WScript.Sleep 1000 WshShell.SendKeys "s"
start xx.scr /s