As requested of Shawn, I have moved this over here.

Continuing on undaunted.

Conversation starts here.

To do:

• Get SQL Statement working.
  
• Convert Uint32, Uint64, etc. as needed.
  

I am getting the following error though -

code:

---

 BREAK ON 
 CLS
 ; -- Ref - WMIQuery structure: http://kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000082 
 ; -- Ref - Perfmon counters: http://www.scriptinternals.de/content/ref/wmi/nam  espaces/root_cimv2/CIM_StatisticalInformation/CIM_StatisticalInformation.htm 
 ; -- Ref - Remote execution: http://cwashington.netreach.net/depo/view.asp?Index=314&ScriptType=vbscript 
 ; -- Ref - Pull Perfmon Counters: http://cwashington.netreach.net/depo/view.asp?Index=345&ScriptType=vbscript 
 $myarray = Split("SERVER1~~SERVER2", "~~")
 FOR EACH $element IN $myarray
       FOR EACH $disk IN Split(WMIQuery("FreeMegabytes","Win32_PerfFormattedData_PerfDisk_LogicalDisk",$element),"|")
             ? "Free Space is = "val($disk) / 1048576 " MB"
       NEXT
       FOR EACH $disk IN Split(WMIQuery("AvgDiskQueueLength","Win32_PerfFormattedData_PerfDisk_LogicalDisk",$element),"|")
             ? "Average Diskqueue Length = "$disk
       NEXT
       ? "Percent Processor Time = "WMIQuery("PercentProcessorTime","Win32_PerfRawData_PerfProc_Thread",$element)
       ? "SQL Server Buffer Hit Cache Ratio  = "WMIQuery("Buffercachehitratio","Win32_PerfRawData_MSSQLSERVER_SQLServerBuffer",$myarray)
 NEXT

 ;$wmi = GetObject("winmgmts:root/CIMV2")
 ;$strQuery = "select * from CIM_StatisticalInformation"
 ;$result = $wmi.ExecQuery($strQuery)
 FUNCTION WMIQuery($what,$where,$element)
        DIM $strquery, $objenumerator, $value, $element
       $strquery = "Select $what From $where"
       ?$strquery 
       $systemset = GetObject("winmgmts:{impersonationLevel=impersonate}!//"+$element+"\root\default")
       ;$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//$Element")
       $objenumerator = $systemset.execquery($strquery)
        FOR EACH $objinstance IN $objenumerator
              IF @error = 0 AND $objinstance <> ""
                   $=execute("$$value = $$objInstance.$what")
                   $wmiquery="$value"+"|"+"$WMIQuery"
              ENDIF
        NEXT
       $wmiquery=left($wmiquery,len($wmiquery)-1)
        EXIT @error
  ENDFUNCTION

---

Cheers!

- Kent

[ 08 January 2002: Message edited by: kdyer ]