cleaned up vbs script to use with