RE: [ActiveDir] Vista & WMI

[Akomolafe, Deji]

How about you just do instr(objOperatingSystem.Caption, "Vista") > 0 Then wscript.quit   There is something quirky with the caption in Vista. They even misspelled Microsoft :)   Sincerely,    _____                                  (, /  |  /)               /)     /)       /---| (/_  ______   ___// _   //  _  ) /    |_/(__(_) // (_(_)(/_(_(_/(__(/_ (_/                             /)                                     (/       Microsoft MVP - Directory Services www.akomolafe.com - we know IT -5.75, -3.23 Do you now realize that Today is the Tomorrow you were worried about Yesterday? -anon From: Harding, Devon Sent: Wed 10/18/2006 2:26 PM To: ActiveDir@mail.activedir.org Subject: [ActiveDir] Vista & WMI I’m trying to get a script working in Vista with no success.  For some reason the OS caption on Vista looks corrupted, but when I enter it as it’s displayed in wmic, my script ignores it.  I even tried to correct it, and still no success.  Here’s the script:   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.