VBS Program Question

I have this script that I run prior to running one program. 'VBScript Example Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{CAPSLOCK}" This will turn the caps lock on and the database that I built uses all caps. The program that I wrote used to turn on caps but that doesn't work in Vista for some reason. The above script is a simple work around. The problem is sometimes the caps lock is already on and then the script turns it off. I don't know how to write a script that would check first to see if caps lock is on and if it is leave it alone but if it's off then turn it on. Any help appreciated.