|
66 | 66 | } |
67 | 67 | else { |
68 | 68 | my $perfmgr_view = Vim::get_view(mo_ref => Vim::get_service_content()->perfManager, properties => [ 'perfCounter' ]); |
69 | | - my $memUsage = get_info($vm_view, $perfmgr_view, 'mem', 'usage', 'minimum'); |
70 | | - my $memOverhead = get_info($vm_view, $perfmgr_view, 'mem', 'overhead', 'minimum'); |
71 | | - my $memConsumed = get_info($vm_view, $perfmgr_view, 'mem', 'consumed', 'minimum'); |
72 | | - my $diskUsage = get_info($vm_view, $perfmgr_view, 'disk', 'usage', 'average'); |
73 | | - my $cpuUsageMin = get_info($vm_view, $perfmgr_view, 'cpu', 'usage', 'minimum'); |
74 | | - my $cpuUsageMax = get_info($vm_view, $perfmgr_view, 'cpu', 'usage', 'maximum'); |
75 | | - my $cpuUsageAvg = get_info($vm_view, $perfmgr_view, 'cpu', 'usage', 'average'); |
76 | | - my $cpuUsage = get_info($vm_view, $perfmgr_view, 'cpu', 'usagemhz', 'average'); |
| 69 | + my $memUsage = get_info($vm_view, $perfmgr_view, 'mem', 'usage', 'minimum') / 100; |
| 70 | + my $memOverhead = get_info($vm_view, $perfmgr_view, 'mem', 'overhead', 'minimum') * 1024; |
| 71 | + my $memConsumed = get_info($vm_view, $perfmgr_view, 'mem', 'consumed', 'minimum') * 1024; |
| 72 | + my $diskUsage = get_info($vm_view, $perfmgr_view, 'disk', 'usage', 'average') * 1024; |
| 73 | + my $cpuUsageMin = get_info($vm_view, $perfmgr_view, 'cpu', 'usage', 'minimum') / 100; |
| 74 | + my $cpuUsageMax = get_info($vm_view, $perfmgr_view, 'cpu', 'usage', 'maximum') / 100; |
| 75 | + my $cpuUsageAvg = get_info($vm_view, $perfmgr_view, 'cpu', 'usage', 'average') / 100; |
| 76 | + my $cpuUsage = get_info($vm_view, $perfmgr_view, 'cpu', 'usagemhz', 'average') * 1000000; |
77 | 77 |
|
78 | 78 | my $overallStatus = $$vm_view[0]->get_property('summary.overallStatus')->val; |
79 | 79 | my $operStatus = 0; |
|
99 | 99 | die "Runtime error\n" if (!defined($host_view)); |
100 | 100 | die "Host \"" . $$host_name{"name"} . "\" does not exist\n" if (!@$host_view); |
101 | 101 | if (uc($$host_view[0]->get_property('runtime.inMaintenanceMode')) eq "TRUE") { |
102 | | - print "hostperf|sysUpTime= memSwapused= memGranted= memActive= diskUsage= cpuUsagemhz= cpuUsage= cpuReservedcapacity= netReceived= netTransmitted= netPacketsRx= netPacketsTx= netDroppedRx= netDroppedTx=\n"; |
| 102 | + print "hostperf|sysUpTime= memUsage= memSwapused= memGranted= memActive= diskUsage= cpuUsageMin= cpuUsageMax= cpuUsageAvg= cpuUsage= cpuReservedcapacity= netReceived= netTransmitted= netPacketsRx= netPacketsTx= netDroppedRx= netDroppedTx=\n"; |
103 | 103 | } |
104 | 104 | else { |
105 | 105 | my $perfmgr_view = Vim::get_view(mo_ref => Vim::get_service_content()->perfManager, properties => [ 'perfCounter' ]); |
106 | 106 | my $sysUpTime = get_info($host_view, $perfmgr_view, 'sys', 'uptime', 'latest') * 100; |
107 | | - my $memSwapused = get_info($host_view, $perfmgr_view, 'mem', 'swapused', 'maximum'); |
108 | | - my $memGranted = get_info($host_view, $perfmgr_view, 'mem', 'granted', 'maximum'); |
109 | | - my $memActive = get_info($host_view, $perfmgr_view, 'mem', 'active', 'maximum'); |
110 | | - my $diskUsage = get_info($host_view, $perfmgr_view, 'disk', 'usage', 'average'); |
111 | | - my $cpuUsagemhz = get_info($host_view, $perfmgr_view, 'cpu', 'usagemhz', 'average'); |
112 | | - my $cpuUsage = get_info($host_view, $perfmgr_view, 'cpu', 'usage', 'average'); |
113 | | - my $cpuReservedcapacity = get_info($host_view, $perfmgr_view, 'cpu', 'reservedCapacity', 'average'); |
114 | | - my $netReceived = get_info($host_view, $perfmgr_view, 'net', 'received', 'average'); |
115 | | - my $netTransmitted = get_info($host_view, $perfmgr_view, 'net', 'transmitted', 'average'); |
| 107 | + my $memUsage = get_info($host_view, $perfmgr_view, 'mem', 'usage', 'minimum') / 100; |
| 108 | + my $memSwapused = get_info($host_view, $perfmgr_view, 'mem', 'swapused', 'maximum') * 1024; |
| 109 | + my $memGranted = get_info($host_view, $perfmgr_view, 'mem', 'granted', 'maximum') * 1024; |
| 110 | + my $memActive = get_info($host_view, $perfmgr_view, 'mem', 'active', 'maximum') * 1024; |
| 111 | + my $diskUsage = get_info($host_view, $perfmgr_view, 'disk', 'usage', 'average') * 1024; |
| 112 | + my $cpuUsageMin = get_info($host_view, $perfmgr_view, 'cpu', 'usage', 'minimum') / 100; |
| 113 | + my $cpuUsageMax = get_info($host_view, $perfmgr_view, 'cpu', 'usage', 'maximum') / 100; |
| 114 | + my $cpuUsageAvg = get_info($host_view, $perfmgr_view, 'cpu', 'usage', 'average') / 100; |
| 115 | + my $cpuUsage = get_info($host_view, $perfmgr_view, 'cpu', 'usagemhz', 'average') * 1000000; |
| 116 | + my $cpuReservedcapacity = get_info($host_view, $perfmgr_view, 'cpu', 'reservedCapacity', 'average') * 1000000; |
| 117 | + my $netReceived = get_info($host_view, $perfmgr_view, 'net', 'received', 'average') * 8192; |
| 118 | + my $netTransmitted = get_info($host_view, $perfmgr_view, 'net', 'transmitted', 'average') * 8192; |
116 | 119 | my $netPacketsRx = get_info($host_view, $perfmgr_view, 'net', 'packetsRx', 'summation'); |
117 | 120 | my $netPacketsTx = get_info($host_view, $perfmgr_view, 'net', 'packetsTx', 'summation'); |
118 | 121 | my $netDroppedRx = get_info($host_view, $perfmgr_view, 'net', 'droppedRx', 'summation'); |
119 | 122 | my $netDroppedTx = get_info($host_view, $perfmgr_view, 'net', 'droppedTx', 'summation'); |
120 | 123 |
|
121 | | - print "hostperf|sysUpTime=".$sysUpTime." memSwapused=".$memSwapused." memGranted=".$memGranted." memActive=".$memActive." diskUsage=".$diskUsage." cpuUsagemhz=".$cpuUsagemhz." cpuUsage=".$cpuUsage." cpuReservedcapacity=".$cpuReservedcapacity." netReceived=".$netReceived." netTransmitted=".$netTransmitted." netPacketsRx=".$netPacketsRx." netPacketsTx=".$netPacketsTx." netDroppedRx=".$netDroppedRx." netDroppedTx=".$netDroppedTx."\n"; |
| 124 | + print "hostperf|sysUpTime=".$sysUpTime." memUsage=".$memUsage." memSwapused=".$memSwapused." memGranted=".$memGranted." memActive=".$memActive." diskUsage=".$diskUsage." cpuUsageMin=".$cpuUsageMin." cpuUsageMax=".$cpuUsageMax." cpuUsageAvg=".$cpuUsageAvg." cpuUsage=".$cpuUsage." cpuReservedcapacity=".$cpuReservedcapacity." netReceived=".$netReceived." netTransmitted=".$netTransmitted." netPacketsRx=".$netPacketsRx." netPacketsTx=".$netPacketsTx." netDroppedRx=".$netDroppedRx." netDroppedTx=".$netDroppedTx."\n"; |
122 | 125 | } |
123 | 126 | } |
124 | 127 | }; |
|
0 commit comments