407 |
|
' prepare the contents of the XML packet. |
408 |
|
seqNo = seqNo + 1 |
409 |
|
|
410 |
< |
' Comment this line in the next protocol |
411 |
< |
'machineName = TCPSock.LocalHostName |
410 |
> |
netbiosName = TCPSock.LocalHostName |
411 |
|
|
412 |
|
LocalIP = TCPSock.LocalIP |
413 |
|
packetDate = Date2Num() |
466 |
|
' build the contents of the XML packet |
467 |
|
xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _ |
468 |
|
"<os>" & _ |
469 |
+ |
"<netbios_name>" & netbiosName & "</netbios_name>" & _ |
470 |
|
"<name>" & osName & "</name>" & _ |
471 |
|
"<version>" & osVersionMajor & "</version>" & _ |
472 |
|
"<release>" & osBuild & "</release>" & _ |