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
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.
