This worked fine! Thanks! From:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Akomolafe, Deji How about you just do
instr(objOperatingSystem.Caption, " There is something quirky with the caption in
From: I’m trying to get a script working in Dim WshShell strComputer = "." Set WshShell =
WScript.CreateObject("WScript.Shell") On Error Resume Next ' If Workstation, exit script Dim objWMIService, colOperatingSystems, objOperatingSystem,
strComputer, objFSO Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer &
"\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery
("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems If objOperatingSystem.Caption = "Microsoft Windows 2000
Professional" then wscript.quit If objOperatingSystem.Caption = "Microsoft Windows XP
Professional" then wscript.quit If objOperatingSystem.Caption = "Microsoftr Windows VistaT
Ultimate" then wscript.quit If objOperatingSystem.Caption = "Microsoft Windows
Vista Ultimate" then wscript.quit Next ' Check / Set registry settings for screen saver.
Logoff user if settings are updated Dim isLocked, ssTimeout, ssActive, ScrnSave, wmi, objSet isLocked = WshShell.RegRead ("HKCU\Control
Panel\Desktop\ScreenSaverIsSecure") ssTimeout = WshShell.RegRead ("HKCU\Control
Panel\Desktop\ScreenSaveTimeout") ssActive = WshShell.RegRead ("HKCU\Control
Panel\Desktop\ScreenSaveActive") ScrnSave = WshShell.RegRead ("HKCU\Control
Panel\Desktop\SCRNSAVE.EXE") If (isLocked = 0) or (CInt(ssTimeout) >900) Or (ssActive
= 0) Or (ScrnSave = "") Then WshShell.RegWrite "HKCU\Control
Panel\Desktop\ScreenSaverIsSecure",1,"REG_SZ"
WshShell.RegWrite "HKCU\Control
Panel\Desktop\ScreenSaveActive",1,"REG_SZ"
WshShell.RegWrite "HKCU\Control
Panel\Desktop\ScreenSaveTimeout",900,"REG_SZ"
WshShell.RegWrite "HKCU\Control Panel\Desktop\SCRNSAVE.EXE","%system
root%\system32\logon.scr","REG_SZ" WshShell.Popup "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.", 20, , 0 +
64
WshShell.Run LogonServer & "\netlogon\shutdown.exe /l
/f",0,true End If ---------------------------------------------------------------------------
This message (including any attachments) is intended only for the use of the individual or entity to which it is addressed and may contain information that is non-public, proprietary, privileged, confidential, and exempt from disclosure under applicable law or may constitute as attorney work product. If you are not the intended recipient, you are hereby notified that any use, dissemination, distribution, or copying of this communication is strictly prohibited. If you have received this communication in error, notify us immediately by telephone and (i) destroy this message if a facsimile or (ii) delete this message immediately if this is an electronic communication. Thank you. |
- [ActiveDir] Vista & WMI Harding, Devon
- RE: [ActiveDir] Vista ... Akomolafe, Deji
- RE: [ActiveDir] Vista ... Mark Parris
- RE: [ActiveDir] Vista ... joe
- RE: [ActiveDir] Vista ... Alain Lissoir
- Re: [ActiveDir] Vi... Susan Bradley, CPA aka Ebitz - SBS Rocks [MVP]
- Re: [ActiveDir] Vi... Mark Parris
- RE: [ActiveDir] Vista ... Almeida Pinto, Jorge de
- RE: [ActiveDir] Vista ... Harding, Devon
- [ActiveDir] sharep... Ramon Linan
- RE: [ActiveDir... Aaron Steele
- RE: [Activ... Ramon Linan