Ureader.com  
Microsoft software help and Community
   home   |   control panel login   |   archive   |  
 
Windos
win32.3rdparty
win32.directx.audio
win32.directx.ddk
win32.directx.graphics
win32.directx.input
win32.directx.managed
win32.directx.misc
win32.directx.networking
win32.directx.sdk
win32.directx.video
win32.dirx.grap.shaders
win32.gdi
win32.international
win32.kernel
win32.messaging
win32.mmedia
win32.networks
win32.ole
win32.rtc
win32.tapi
win32.tapi.beta
win32.tools
win32.ui
win32.wince
win32.wmi
windows.mediacenter
winfx.aero
winfx.announcements
winfx.avalon
winfx.collaboration
winfx.fundamentals
winfx.general
winfx.indigo
winfx.sdk
winfx.winfs
  
 
date: Wed, 2 Apr 2008 01:16:02 -0700,    group: microsoft.public.win32.programmer.wmi        back       


WMI to obtain edition of each SQL server instance on a machine   
Hi Guys,

Does anyone know how i would  retrieve the instance name of every SQL server 
instance and then for each instance pull back the edition? I have some WMI 
code which can pull back the instance name but then for each instance it 
pulls back every edition for each instance. Any ideas?

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("localhost")
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & 
"\root\Microsoft\SqlServer\ComputerManagement")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM ServerSettings", 
"WQL", _
                                          wbemFlagReturnImmediately + 
wbemFlagForwardOnly)

   For Each objItem In colItems
	WScript.Echo "InstanceName: " & objItem.InstanceName
      	WScript.Echo

	Set objWMIService2 = GetObject("winmgmts:\\" & strComputer & 
"\root\Microsoft\SqlServer\ComputerManagement")
   	Set colItems2 = objWMIService2.ExecQuery("SELECT * FROM 
SqlServiceAdvancedProperty WHERE PropertyName = 'SKUNAME'", "WQL", _
                                          wbemFlagReturnImmediately + 
wbemFlagForwardOnly)
     For Each objItem2 In colItems2
        WScript.Echo "IsReadOnly: " & objItem2.IsReadOnly
        WScript.Echo "PropertyIndex: " & objItem2.PropertyIndex
        WScript.Echo "PropertyName: " & objItem2.PropertyName
        WScript.Echo "PropertyNumValue: " & objItem2.PropertyNumValue
        WScript.Echo "PropertyStrValue: " & objItem2.PropertyStrValue
        WScript.Echo "PropertyValueType: " & objItem2.PropertyValueType
        WScript.Echo "ServiceName: " & objItem2.ServiceName
        WScript.Echo "SqlServiceType: " & objItem2.SqlServiceType
        WScript.Echo
     Next
      
   Next
Next
date: Wed, 2 Apr 2008 01:16:02 -0700   author:   philipB

Google
 
Web ureader.com


    COPYRIGHT 2007, YARDI TECHNOLOGY LIMITED, ALL RIGHT RESERVE  |   contact us