Latest Project: Server Monitoring Using WMI

It was a while since my last post. Year ender is quite busy and the new year was as much.

I've been working on a latest project for our team. I set up a monitoring server running WMI scripts against remote servers in intervals of 2 or 30mins (depending on the frequency of data required).

Below are few simple snippets I used in to collect remote data and pump it in an html template and send it via email to the team (if ever performance thresholds were exceeded).

Code Snippets:

1. Sub DisplayErrorInfo
2. WScript.Echo "Error: : " & Err
3. WScript.Echo "Error (hex) : &H" & Hex(Err)
4. WScript.Echo "Source : " & Err.Source
5. WScript.Echo "Description : " & Err.Description
6. Err.Clear
7. End Sub

#1 Bytes Converter Snippet (One of my favorite snippet, pretty handy!)

1. Function SetBytes(Bytes,fKB)
2. If fKB=True then Bytes = Bytes * 1024
4. If Bytes >= 1073741824 Then
5. SetBytes = FormatNumber((Bytes / 1024 / 1024 / 1024),2,,-1,-1) & " GB"
6. ElseIf Bytes >= 1048576 Then
7. SetBytes = FormatNumber((Bytes / 1024 / 1024),2,,-1,-1) & " MB"
8. ElseIf Bytes >= 1024 Then
9. SetBytes = FormatNumber((Bytes / 1024),2,,-1,-1) & " KB"
10. ElseIf Bytes <>
11. SetBytes = Bytes & " Bytes"
12. End If
13. End Function

#2 Get Available Memory on the server

1. strComputer = "."
2. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
3. Set colItems = objWMIService.ExecQuery _
4. ("Select * From Win32_PerfRawData_PerfOS_Memory")
5. For Each objItem in colItems
6. intValue = objItem.AvailableBytes
7. Wscript.Echo "Available memory = " & SetBytes(intValue,false)
8. Exit For
9. Next

Note: This requires cooking. If you you have no idea how that works then just use AvailableMBytes instead.

#3 Get CPU Usage (%)

1. Function GetCPUProcUsg(svr)
2. c = 0
3. strComputer = "."
4. Set objWMIService = GetObject("winmgmts:\\" _
5. & strComputer & "\root\cimv2:Win32_PerfRawData_PerfOS_Processor.Name='_Total'")
6. If Err = 0 Then
7. While (True)
9. N1 = objWMIService.PercentProcessorTime
10. D1 = objWMIService.TimeStamp_Sys100NS
11. Wscript.Sleep(1000)
13. Set objWMIService2 = GetObject("winmgmts:\\" _
14. & strComputer & "\root\cimv2:Win32_PerfRawData_PerfOS_Processor.Name='_Total'")
16. N2 = objWMIService2.PercentProcessorTime
17. D2 = objWMIService2.TimeStamp_Sys100NS
19. PercentProcessorTime = (1 - ((N2 - N1)/(D2-D1)))*100
20. Wscript.Echo "Processor Usage: " & Round(PercentProcessorTime,2) & "%"
21. GetCPUProcUsg = Round(PercentProcessorTime,2) & "%"
23. Wend
24. Else
25. DisplayErrorInfo
26. End If
27. Set objWMIService = nothing
28. Set objWMIService2 = nothing
29. End Function

#4 Get Available Disk Space

1. strComputer = "."
2. strUser =
3. strPass =
4. Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
5. Set oWMI = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPass)
6. Set colDisks = oWMI.InstancesOf("win32_PerfRawData_PerfDisk_LogicalDisk.Name")
7. For Each objDisk in colDisks
8. intBaseValue = objDisk.PercentFreeSpace_Base
9. dblActualFreeSpace = (100 * objDisk.PercentFreeSpace) / intBaseValue
10. Wscript.Echo objDisk.Name & Int(dblActualFreeSpace)
11. Next

If at first you fail, call it version 1.0