| 139 |
|
Dim seqNo As Long |
| 140 |
|
Dim machineName As String |
| 141 |
|
|
| 142 |
+ |
Dim secondsRunning As Long |
| 143 |
+ |
|
| 144 |
|
Dim filterHostname As String |
| 145 |
|
Dim filterTCPPort As Integer |
| 146 |
|
Dim filterUDPPort As Integer |
| 147 |
|
Dim fileList As String |
| 148 |
|
Dim lastModified As String |
| 149 |
|
|
| 150 |
+ |
Dim fourtySevenDays As Integer |
| 151 |
+ |
|
| 152 |
|
Dim UDPUpdateTime As Integer |
| 153 |
|
Dim TCPUpdateTime As Integer |
| 154 |
|
|
| 183 |
|
End |
| 184 |
|
End If |
| 185 |
|
|
| 186 |
+ |
' Assume the host is run within the first 47 days of the machine starting. |
| 187 |
+ |
fourtySevenDays = 0 |
| 188 |
+ |
|
| 189 |
|
protocolVersion = "1.1" |
| 190 |
|
|
| 191 |
|
Status.Caption = "Loading" |
| 462 |
|
memory& = memsts.dwAvailVirtual |
| 463 |
|
swapFree = memory& \ 1048576 |
| 464 |
|
|
| 458 |
– |
uptime = CUpTime.MilliSecs \ 1000 |
| 459 |
– |
|
| 465 |
|
CUpTime.Capture |
| 466 |
|
cpu_time = CUpTime.CPUTime |
| 467 |
|
percent_idle = CUpTime.PercentIdle |
| 468 |
+ |
|
| 469 |
+ |
'' Causes numbers to be too big :-/ |
| 470 |
+ |
'uptime = CUpTime.MilliSecs \ 1000 |
| 471 |
+ |
|
| 472 |
+ |
'' Doesn't work after 47 days :-/ |
| 473 |
+ |
'uptime = GetTickCount \ 1000 |
| 474 |
+ |
|
| 475 |
+ |
secondsRunning = secondsRunning + UDPUpdateTime |
| 476 |
+ |
uptime = secondsRunning |
| 477 |
|
|
| 478 |
|
userCount = wksta.LoggedOnUsers |
| 479 |
|
|
