--- experimental/host/vb_net_test/nettest.frm	2001/02/26 09:12:51	1.20
+++ experimental/host/vb_net_test/nettest.frm	2001/02/26 09:23:34	1.21
@@ -159,7 +159,7 @@ Dim TCPUpdateTime As Integer
 Dim protocolVersion As String
 Dim connected As Boolean
 
-'Dim CUpTime As New CUpTime
+Dim CUpTime As New CUpTime
 
 Dim responseNumber As Integer
 
@@ -168,8 +168,17 @@ Private Sub Form_Load()
     protocolVersion = "1.1"
     
     Status.Caption = "Loading"
-    'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
+    Form1.Caption = "i-scream Winhost " & protocolVersion
     
+    Form1.Show
+    
+    CUpTime.Init
+    
+    If CUpTime.isWin9x Then
+        x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.")
+        End
+    End If
+    
     ''''TEMP
     'filterManagerHostname = "killigrew.ukc.ac.uk"
     'filterManagerTCPPort = 4567
@@ -370,7 +379,7 @@ Private Sub Timer1_Timer()
             End
         End If
           
-        osName = getVersion()
+        osName = GetVersion()
         osVersionMajor = verinfo.dwMajorVersion
         osVersionMinor = verinfo.dwMinorVersion
         osBuild = verinfo.dwBuildNumber