--- projects/cms/source/host/winhost/nettest.frm	2001/03/14 11:03:45	1.34
+++ projects/cms/source/host/winhost/nettest.frm	2001/03/19 10:32:43	1.37
@@ -4,25 +4,25 @@ Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0
 Begin VB.Form Form1 
    BorderStyle     =   3  'Fixed Dialog
    Caption         =   "i-scream Winhost"
-   ClientHeight    =   1185
+   ClientHeight    =   1380
    ClientLeft      =   45
    ClientTop       =   330
-   ClientWidth     =   4710
+   ClientWidth     =   4635
    Icon            =   "nettest.frx":0000
    LinkTopic       =   "Form1"
    MaxButton       =   0   'False
    MinButton       =   0   'False
-   ScaleHeight     =   1185
-   ScaleWidth      =   4710
+   ScaleHeight     =   1380
+   ScaleWidth      =   4635
    ShowInTaskbar   =   0   'False
    StartUpPosition =   2  'CenterScreen
    Visible         =   0   'False
    Begin VB.CommandButton Command1 
       Caption         =   "more"
       Height          =   255
-      Left            =   3960
+      Left            =   3885
       TabIndex        =   8
-      Top             =   840
+      Top             =   1035
       Width           =   615
    End
    Begin VB.TextBox Text1 
@@ -32,15 +32,15 @@ Begin VB.Form Form1 
       MultiLine       =   -1  'True
       ScrollBars      =   2  'Vertical
       TabIndex        =   7
-      Top             =   1200
-      Width           =   4455
+      Top             =   1440
+      Width           =   4395
    End
    Begin VB.CommandButton Hide 
       Caption         =   "hide"
       Height          =   255
-      Left            =   3960
+      Left            =   3225
       TabIndex        =   6
-      Top             =   480
+      Top             =   1035
       Width           =   615
    End
    Begin SysTray.SystemTray SystemTray 
@@ -60,7 +60,7 @@ Begin VB.Form Form1 
       Height          =   375
       Left            =   840
       TabIndex        =   0
-      Top             =   3480
+      Top             =   3555
       Width           =   2895
    End
    Begin MSWinsockLib.Winsock TCPSock 
@@ -78,13 +78,20 @@ Begin VB.Form Form1 
       _Version        =   393216
       Protocol        =   1
    End
+   Begin VB.Image Image1 
+      Height          =   900
+      Left            =   2400
+      Picture         =   "nettest.frx":0742
+      Top             =   90
+      Width           =   2100
+   End
    Begin VB.Label Label2 
       Alignment       =   1  'Right Justify
       Caption         =   "Next heartbeat:"
       Height          =   255
       Left            =   120
       TabIndex        =   5
-      Top             =   480
+      Top             =   645
       Width           =   1455
    End
    Begin VB.Label Label1 
@@ -93,7 +100,7 @@ Begin VB.Form Form1 
       Height          =   255
       Left            =   120
       TabIndex        =   4
-      Top             =   120
+      Top             =   165
       Width           =   1455
    End
    Begin VB.Label Label4 
@@ -102,7 +109,7 @@ Begin VB.Form Form1 
       Height          =   255
       Left            =   1680
       TabIndex        =   3
-      Top             =   480
+      Top             =   645
       Width           =   615
    End
    Begin VB.Label Label3 
@@ -111,7 +118,7 @@ Begin VB.Form Form1 
       Height          =   255
       Left            =   1680
       TabIndex        =   2
-      Top             =   120
+      Top             =   165
       Width           =   615
    End
    Begin VB.Label Status 
@@ -120,8 +127,8 @@ Begin VB.Form Form1 
       Height          =   255
       Left            =   0
       TabIndex        =   1
-      Top             =   840
-      Width           =   3855
+      Top             =   1035
+      Width           =   3180
    End
 End
 Attribute VB_Name = "Form1"
@@ -168,10 +175,10 @@ Private Sub Command1_Click()
     ' Toggle visibility of the debug output.
 
     If windowBig Then
-        Form1.Height = 1500
+        Form1.Height = 1755
         windowBig = False
     Else
-        Form1.Height = 4350
+        Form1.Height = 4380
         windowBig = True
     End If
 
@@ -489,11 +496,9 @@ Private Sub Timer1_Timer()
               "<os>" & _
                 "<netbios_name>" & netbiosName & "</netbios_name>" & _
                 "<name>" & osName & "</name>" & _
-                "<version>" & osVersionMajor & "</version>" & _
+                "<version>" & osVersionMajor & "." & osVersionMinor & "</version>" & _
                 "<release>" & osBuild & "</release>" & _
-                "<platform>" & osName & "</platform>" & _
-                "<minor_version>" & osVersionMinor & "</minor_version>" & _
-                "<processor>" & processorType & "</processor>" & _
+                "<platform>" & processorType & "</platform>" & _
                 "<uptime>" & uptime & "</uptime>" & _
               "</os>" & _
               "<users><count>" & userCount & "</count></users>" & _