| 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" |
| 249 |
|
SystemTray.Icon = Val(Form1.Icon) |
| 250 |
|
End Sub |
| 251 |
|
|
| 252 |
+ |
Private Sub Image1_Click() |
| 253 |
+ |
|
| 254 |
+ |
End Sub |
| 255 |
+ |
|
| 256 |
|
Private Sub Reconfigure_Click() |
| 257 |
|
' establish a TCP connection to a filtermanager |
| 258 |
|
connected = False |
| 414 |
|
' prepare the contents of the XML packet. |
| 415 |
|
seqNo = seqNo + 1 |
| 416 |
|
|
| 417 |
< |
' Comment this line in the next protocol |
| 407 |
< |
'machineName = TCPSock.LocalHostName |
| 417 |
> |
netbiosName = TCPSock.LocalHostName |
| 418 |
|
|
| 419 |
|
LocalIP = TCPSock.LocalIP |
| 420 |
|
packetDate = Date2Num() |
| 462 |
|
memory& = memsts.dwAvailVirtual |
| 463 |
|
swapFree = memory& \ 1048576 |
| 464 |
|
|
| 455 |
– |
uptime = CUpTime.MilliSecs \ 1000 |
| 456 |
– |
|
| 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 |
|
|
| 480 |
|
' build the contents of the XML packet |
| 481 |
|
xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _ |
| 482 |
|
"<os>" & _ |
| 483 |
+ |
"<netbios_name>" & netbiosName & "</netbios_name>" & _ |
| 484 |
|
"<name>" & osName & "</name>" & _ |
| 485 |
|
"<version>" & osVersionMajor & "</version>" & _ |
| 486 |
|
"<release>" & osBuild & "</release>" & _ |
