Dim isLocked

isLocked = RegRead(“Stuff”)

 

Dim ssTimeout

ssTimeout = RegRead(“MoreStuff”)

 

If (isLocked = 0) or (CInt(ssTimeout) >900) Then

‘ Do Stuff

End If

 

This helps?

 

Thanks,
Brian Desmond

[EMAIL PROTECTED]

 

c - 312.731.3132

 

 


From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Harding, Devon
Sent: Tuesday, December 13, 2005 11:51 AM
To: ActiveDir@mail.activedir.org
Subject: [ActiveDir] If, and, or in .vbs

 

This is the last step in my Kix to .vbs conversion.  Having a little difficulty with ‘OR’ statements in conversion.  Here is the original kix script:

 

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

Reply via email to