RE: [ActiveDir] Kix to .vbs

[Alain Lissoir]

Have a look at http://www.lissware.net, vol 1, Sample 1.01 to 1.25 - WSHScript.vbs. This script contains all subroutines you need to read, write registry, env. variables, etc ... from .vbs.   With this cscript, you will easily convert you kix script below into a .vbs. You just need to tweak the fucntion calls and return codes accordingly and reuse the set of registry keys your kix script references.   HTH.   Private Function GetRunTimeEnvInfo (classRunTimeEnvironmentInfo) Private Function LogRunTimeEnvInfo (objFileName, classRunTimeEnvironmentInfo) Private Function ReadRegistry (objFileName, strKeyName, KeyValueName, strRegType) Private Function WriteRegistry (objFileName, strKeyName, KeyValueName, strRegType, varRegKeyValue) Private Function DeleteRegistry (objFileName, strKeyName, KeyValueName) Private Function EnumerateDriveConnections (objFileName) Private Function ConnectNetworkDrive (objFileName, strDriveLetter, strShareName) Private Function DisconnectNetworkDrive (objFileName, strDriveLetter, boolConfirm) Private Function EnumeratePrinterConnections (objFileName) Private Function ConnectWindowsNetworkPrinter (objFileName, strShareName, boolDefault) Private Function ConnectNetworkPrinter (objFileName, strLPT, strShareName) Private Function DisconnectNetworkPrinter (objFileName, strLPT, boolConfirm) Private Function ReadEnvironmentVariable (objFileName, strEnvironmentType, strVarName) Private Function CreateEnvironmentVariable (objFileName, strEnvironmentType, strVarName, varValue) Private Function RemoveEnvironmentVariable (objFileName, strEnvironmentType, strVarName) Private Function GetAllEnvironmentVariables (objFileName, strEnvironmentType) Private Function ReadCommandLineArgument (objFileName, strParameterList) Private Function ErrorHandler (objFileName, strFunctionName, Err, boolPopupErrors) Private Function CreateTextFile (strFileName) Private Function CloseTextFile (objFileName) Private Function WriteToFile (objFileName, strText)   /Alain From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Harding, Devon Sent: Monday, November 14, 2005 8:49 AM To: ActiveDir@mail.activedir.org Subject: [ActiveDir] Kix to .vbs 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   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.