|
Is this the same thing? http://msdn.microsoft.com/library/default.asp?url="">
I’m trying to make the script as least
complicated as possible. -Devon From:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Alain Lissoir I already replied to a
similar question from you, 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 your kix script below into a .vbs. You just need to tweak
the function calls and return codes accordingly and reuse the set of registry
keys your kix script references. strLastRun =
ReadRegistry (objLOGFileHandle,
"HKLM\Software\LisswareNet\MySoftware", _ WriteRegistry
objLOGFileHandle, "HKLM\Software\LisswareNet\MySoftware", _ 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 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 __________________________________ |
- RE: [ActiveDir] Convert to .vbs Harding, Devon
- RE: [ActiveDir] Convert to .vbs Alain Lissoir
