Well there must be some 'Check/Set' registry .vbs floating around. Shouldn't be that difficult should it?
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Paul Wilkinson Sent: Friday, December 09, 2005 1:19 PM To: [email protected] Subject: Re: [ActiveDir] Convert to .vbs That should be easy enough. I'd probably just create a reg with all of the registry settings you need, and just import the whole thing every time someone logs in. That might not be as efficient as doing checks to see if something exist first, and adding if it it doesn't, but updating a few keys like this can be done in no time and it's easy to update one reg file as needed. You need "reg.exe" which comes with WinXP and it's in the path. If you have win2k, just copy reg.exe from XP to c:\winnt\system32. Also, I don't know where you put bginfo, but assuming it's somewhere in the path this will work. set oShell = WScript.CreateObject("WScript.Shell") oShell.run "reg.exe import \\server\share\usersettings.reg",0,False oShell.run "bginfo.exe /i\\bsgad1\netlogon\newbginfo.bgi /timer:0",0,False I don't think you need to log off the user in order to set the screen saver. I'm pretty sure that takes effect when you change the reg keys. On 12/9/05, Harding, Devon <[EMAIL PROTECTED]> wrote: > > > > I need to convert this kix scrip into a smaller, faster .vbs script. Can it > be done? > > > > ; **** If workstation, exit script > > If @ProductType = "Windows 2000 Professional" or @ProductType = "Windows XP > Professional" or @ProductType = "Windows NT Workstation" > > cls > > Exit > > Endif > > > > ; **** Check / Set VNC application hooks for logon.scr screen saver > > $ReturnCode = > KeyExist("HKCU\Software\ORL\VNCHooks\Application_Prefs\logon.scr") > > If $ReturnCode=0 > > > Addkey("HKCU\Software\ORL\VNCHooks\Application_Prefs\logon.scr") > > > WriteValue("HKCU\Software\ORL\VNCHooks\Application_Prefs\logon.scr","use _Deferral",1,"reg_dword") > > > WriteValue("HKCU\Software\ORL\VNCHooks\Application_Prefs\logon.scr","use _use_GetUpdateRect",1,"reg_dword") > > > WriteValue("HKCU\Software\ORL\VNCHooks\Application_Prefs\logon.scr","use _KeyPress",1,"reg_dword") > > > WriteValue("HKCU\Software\ORL\VNCHooks\Application_Prefs\logon.scr","use _LButtonUp",1,"reg_dword") > > > WriteValue("HKCU\Software\ORL\VNCHooks\Application_Prefs\logon.scr","use _MButtonUp",1,"reg_dword") > > > WriteValue("HKCU\Software\ORL\VNCHooks\Application_Prefs\logon.scr","use _RButtonUp",1,"reg_dword") > > > WriteValue("HKCU\Software\ORL\VNCHooks\Application_Prefs\logon.scr","use _Timer",0,"reg_dword") > > EndIf > > > > > > ; **** Check / Set registry settings for BGINFO > > $ReturnCode = KeyExist("HKCU\Software\Winternals") > > If $ReturnCode = 0 > > Addkey("HKCU\Software\Winternals") > > EndIf > > > > $ReturnCode = KeyExist("HKCU\Software\Winternals\BGInfo") > > If $ReturnCode = 0 > > Addkey("HKCU\Software\Winternals\BGInfo") > > > WriteValue("HKCU\Software\Winternals\BGInfo","Background",0,"reg_dword") > > > WriteValue("HKCU\Software\Winternals\BGInfo","Foreground",16777215,"reg_ dword") > > EndIf > > > > ; **** Run BGINFO from NetLogon share > > Run @Ldrive + "\bginfo.exe > /i\\bsgad1\netlogon\newbginfo.bgi /timer:0" > > > > > > ; **** Check / Set registry settings for screen saver. Logoff user if > settings are updated > > $IsLocked = ReadValue("HKCU\Control > Panel\Desktop","ScreenSaverIsSecure") > > $SSTimeOut = ReadValue("HKCU\Control > Panel\Desktop","ScreenSaveTimeout") > > $SSActive = ReadValue("HKCU\Control > Panel\Desktop","ScreenSaveActive") > > $ScrnSave = ReadValue("HKCU\Control Panel\Desktop","SCRNSAVE.EXE") > > If $IsLocked = 0 or (VAL($SSTimeOut) > 900) or $SSActive = 0 or $ScrnSave = > "" > > WriteValue("HKCU\Control > Panel\Desktop","ScreenSaverIsSecure","1","reg_sz") > > WriteValue("HKCU\Control > Panel\Desktop","ScreenSaveActive","1","reg_sz") > > WriteValue("HKCU\Control > Panel\Desktop","ScreenSaveTimeout","900","reg_sz") > > WriteValue("HKCU\Control Panel\Desktop","SCRNSAVE.EXE","%system > root%\system32\logon.scr","reg_sz") > > MessageBox("ScreenSaver settings were not previously set. > Settings have been updated. A logout is required to activate new settings. > Click Ok and the system will logout you out now. Auto-logoff in 20 > seconds.","Logout Required",4112,20) > > Logoff(1) > > EndIf > > > > > > Devon Harding > > Windows Systems Engineer > > Southern Wine & Spirits - BSG > > 954-602-2469 > > > > ________________________________ > > > > > __________________________________ > This message and any attachments are solely for the intended recipient > and may contain confidential or privileged information. If you are not > the intended recipient, any disclosure, copying, use or distribution of > the information included in the message and any attachments is > prohibited. If you have received this communication in error, please > notify us by reply e-mail and immediately and permanently delete this > message and any attachments. Thank You. -- Paul Wilkinson [EMAIL PROTECTED] List info : http://www.activedir.org/List.aspx List FAQ : http://www.activedir.org/ListFAQ.aspx List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/ List info : http://www.activedir.org/List.aspx List FAQ : http://www.activedir.org/ListFAQ.aspx List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
