Set WshShell = CreateObject( "WScript.Shell" ) counter = 0 While counter < 18 WshShell.SendKeys "{NUMLOCK}" WScript.Sleep 200 WshShell.SendKeys "{NUMLOCK}" WshShell.SendKeys "{CAPSLOCK}" WScript.Sleep 200 WshShell.SendKeys "{CAPSLOCK}" WshShell.SendKeys "{SCROLLLOCK}" WScript.Sleep 200 WshShell.SendKeys "{SCROLLLOCK}" WshShell.SendKeys "{CAPSLOCK}" WScript.Sleep 200 WshShell.SendKeys "{CAPSLOCK}" counter = counter + 1 WEnd