Hyper-V 호스트 수준에서 VM에 대한 CPU, Memory 사용률 수집 (VBS, VB Script)

일반적으로 Hyper-V 인프라가 구성되면, System Center가 함께 배포가 됩니다. VM의 성능 수집을 위해 VM 자체에 SCOM 에이전트를 설치하지 않고도 기본적인 CPU 사용률, 메모리 사용률(동적 메모리일 경우), 디스크 IO 사용량(Read/Write Bytes/sec) 및 네트워크 IO 사용량(Received/Sent Bytes/sec)을 수집할 수 있습니다.

아래 VB 스크립트는 이 중 CPU와 메모리 사용률을 가져오는 스크립트로 VMM의 WMI 클래스인 Win32_PerfFormattedData_VMMPerfCounters_VMMVirtualMachineCPU 클래스를 쿼리해 정보를 가져오는 방법입니다.


' Collection Rule for vCPU, Dynamic Memory Usages

' $Data/Property[@Name='Object']$

' $Data/Property[@Name='Counter']$

' $Data/Property[@Name='Instance']$

' $Data/Property[@Name='PerfValue']$

Set oAPI = CreateObject("MOM.ScriptAPI")

Set oBag = oAPI.CreatePropertyBag()

Set wshShell = WScript.CreateObject( "WScript.Shell" )

strComputerName = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")

Set wshShell = Nothing

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\virtualization\v2")

Set colItems = objWMIService.ExecQuery("Select ElementName,Name from Msvm_ComputerSystem Where Name <> '"&strComputerName&"'")

intCount = colItems.Count

ReDim VMName(intCount),VMID(intCount)

i = 0

For Each Item in colItems

 VMName(i) = Item.ElementName

 VMID(i) = Item.Name

 i = i + 1

Next

Set colItems = Nothing

Set objWMIService = Nothing

Check = 0

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select Name,PercentGuestRunTime,CurrentPressurePercent from Win32_PerfFormattedData_VMMPerfCounters_VMMVirtualMachineCPU")

For Each Item in colItems

 tmpVMID = Item.Name

 For i = 0 to intCount-1

  If VMID(i) = tmpVMID Then

   Check = 1

   Set propertyBag = oAPI.CreatePropertyBag()

   propertyBag.AddValue "Object","Hyper-V Hypervisor Virtual Processor"

   propertyBag.AddValue "Counter","% Total Run Time"

   propertyBag.AddValue "Instance",VMName(i)

   propertyBag.AddValue "PerfValue",Item.PercentGuestRunTime

   oAPI.AddItem(propertyBag)

   Set propertyBag = oAPI.CreatePropertyBag()

   propertyBag.AddValue "Object","Hyper-V Dynamic Memory VM"

   propertyBag.AddValue "Counter","Current Pressure"

   propertyBag.AddValue "Instance",VMName(i)

   propertyBag.AddValue "PerfValue",Item.CurrentPressurePercent

   oAPI.AddItem(propertyBag)

  End If

 Next

Next

Set colItems = Nothing

Set objWMIService = Nothing

If Check = 1 Then

 oAPI.ReturnItems

End If

Set oBag = Nothing

Set oAPI = Nothing