What would be the simplest way to convert this kix scrip to
..vbs?
; **** 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\\gsfps\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.
