' Desc: PhyiscalDisk.
' Author: MJ
' Notes: Just some things I felt are important to have on an overall server phyiscal disks.
'
' AvgDiskSecPerRead - avg time in sec of a read of data from disk
' AvgDiskSecPerWrite - avg time in sec of a write operation of data to disk
' DiskReadsPerSec - Rate of read operations on the disk
' DiskReadBytesPerSec - rate at which btes are xfered from the disk during read operations
' DiskWriteBytesPerSec - rate at which bytes are xfered to the disk during a write operation
' DiskWritesPerSec - the rate of write operations on the disk
' AvgDiskQueueLength - avg number of both read and write requests that queued for the disk 
' PercentDiskTime - % of elapsed tim that the disk drive is busy servicing read or write requests


On Error Resume Next
strComputer = "."

Dim AvgDiskQueueLength, AvgDisksecPerRead,AvgDisksecPerWrite,DiskReadBytesPersec,DiskReadsPersec,DiskWriteBytesPersec,DiskWritesPersec,PercentDiskTime

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colDisks = objRefresher.AddEnum (objWMIService, "win32_perfformatteddata_perfdisk_physicaldisk").objectSet
objRefresher.Refresh

'Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfDisk_PhysicalDisk",,48)
' getting initial values

Do
For Each objItem in colDisks


'   Fix Name to remove any : (since Introscope uses : as a delimiter)
    Name = objItem.Name
    fixedName = Replace(Name, ":", "", 1, -1, 1)

'   Write out values

    Wscript.Echo "<metric type=" & chr(34) & "StringEvent" & chr(34) & " name=" & chr(34) & "Disk|Physical|" & fixedName & ":Disk Name" & chr(34) & " value=" & chr(34)  & fixedName & chr(34) & " />"
    Wscript.Echo "<metric type=" & chr(34) & "LongAverage" & chr(34) & " name=" & chr(34) & "Disk|Physical|" & fixedName & ":Avg Disk Queue Length" & chr(34) & " value=" & chr(34)  & Clng(objItem.AvgDiskQueueLength) & chr(34) & " />"
    Wscript.Echo "<metric type=" & chr(34) & "LongAverage" & chr(34) & " name=" & chr(34) & "Disk|Physical|" & fixedName & ":Avg Disk Millseconds Per Read" & chr(34) & " value=" & chr(34)  & CLng(objItem.AvgDisksecPerRead) & chr(34) & " />"
    Wscript.Echo "<metric type=" & chr(34) & "LongAverage" & chr(34) & " name=" & chr(34) & "Disk|Physical|" & fixedName & ":Avg Disk Milliseconds Per Write" & chr(34) & " value=" & chr(34)  & CLng(objItem.AvgDisksecPerWrite) & chr(34) & " />"
    Wscript.Echo "<metric type=" & chr(34) & "LongAverage" & chr(34) & " name=" & chr(34) & "Disk|Physical|" & fixedName & ":Disk Read Bytes Per Sec" & chr(34) & " value=" & chr(34)  & CLng(objItem.DiskReadBytesPersec) & chr(34) & " />"
    Wscript.Echo "<metric type=" & chr(34) & "LongAverage" & chr(34) & " name=" & chr(34) & "Disk|Physical|" & fixedName & ":Disk Reads Per Sec Avg" & chr(34) & " value=" & chr(34)  & CLng(objItem.DiskReadsPersec) & chr(34) & " />"
    Wscript.Echo "<metric type=" & chr(34) & "LongAverage" & chr(34) & " name=" & chr(34) & "Disk|Physical|" & fixedName & ":Disk Write Bytes Per Sec" & chr(34) & " value=" & chr(34)  & CLng(objItem.DiskWriteBytesPersec) & chr(34) & " />"
    Wscript.Echo "<metric type=" & chr(34) & "LongAverage" & chr(34) & " name=" & chr(34) & "Disk|Physical|" & fixedName & ":Disk Writes Per Sec" & chr(34) & " value=" & chr(34)  & CLng(objItem.DiskWritesPersec) & chr(34) & " />"
    Wscript.Echo "<metric type=" & chr(34) & "LongAverage" & chr(34) & " name=" & chr(34) & "Disk|Physical|" & fixedName & ":Percent Disk Time" & chr(34) & " value=" & chr(34) & CLng(objItem.PercentDiskTime) & chr(34) & " />" 



  Wscript.Sleep(2000)
  objRefresher.Refresh

Next

Loop


'