Windows 7 Screensaver Script Question

We have a vbs script we use on our Windows 7 computers. It's supposed to lock a users screensaver in 10mins and put the 3dtext screensaver w/ time automatically (also greys out the settings so they can't be changed. The script locks the computer out in 10 mins. but the screensaver never shows (just that the computer is locked out). Is there any way to unlock the screensaver settings or change our script in any way?
 

 On Error Resume Next Dim WshSh1, ChangeSettings, shellApp, FsoObject
Set WshSh1 = WScript.CreateObject("WScript.Shell") WshSh1.RegWrite "HKCU\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaveActive", 1
WshSh1.RegWrite "HKCU\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaverIsSecure", 1
WshSh1.RegWrite "HKCU\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaveTimeOut", 600
WshSh1.RegWrite "HKCU\Software\Policies\Microsoft\Windows\Control Panel\Desktop\SCRNSAVE.EXE", ("%SystemRoot%") & "System32\ssText3d.scr"   

 
 
I was also looking for a srcipt that would be the opposite of this one. One that will 'ungrey' the screensaver settings.
 
Any help would be apprieciated!

This is hardly a VBScript problem. Anyway, did you check that the 3D screensaver is working at all? Did you check the energy options to make sure the monitor isn't blanked before the screensaver shows?
As for the greyed-out options: if you don't want the settings greyed out, you shouldn't specify them as policy settings. The regular screensaver settings are in [HKCU\Control Panel\Desktop].

You're right not really a problem but the screensaver never comes up just the lock out screen. We would like the options to be greyed out but we wanted a kind of reset script to ungrey the areas out. We tried putting the default values back in for the screensaver script and it didn't ungrey the areas.

As I said, these are policy settings. As long as you have something specified there, the respective setting is enforced by the system and hence greyed out. If you don't want that: delete the values.
BTW, are your Win7 clients members of a domain? In that case group policies would be a far easier way to deploy such configuration settings to your clients.

great thread you have here huh..:) The information you guys have shared are very much informative and helpful, thanks for sharing it. Anyway for those who love Mazda cars, I have  good news for you, try to read it here: New Takeri concept car hints at next generation Mazda6