--- experimental/host/vb_net_test/nettest.frm	2001/02/26 10:13:10	1.24
+++ experimental/host/vb_net_test/nettest.frm	2001/02/28 08:19:00	1.25
@@ -134,6 +134,7 @@ Dim protocolVersion As String
 Dim connected As Boolean
 
 Dim CUpTime As New CUpTime
+Dim wksta As New CNetWksta
 
 Dim responseNumber As Integer
 
@@ -141,6 +142,7 @@ Private Sub Form_Load()
     
     If App.PrevInstance Then
         x = MsgBox("There is already an i-scream Winhost running on this machine.", 48, "i-scream host already running")
+        End
     End If
     
     protocolVersion = "1.1"
@@ -151,7 +153,7 @@ Private Sub Form_Load()
     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.")
+        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
     
@@ -168,6 +170,9 @@ Private Sub Form_Load()
     filterManagerHostname = Left$(buf, length)
     length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
     filterManagerTCPPort = length
+    If filterManagerHostname = "" Then
+        GoTo iniError
+    End If
     On Error GoTo 0
 skip:
 
@@ -388,7 +393,7 @@ Private Sub Timer1_Timer()
         memory& = memsts.dwAvailVirtual
         swapFree = memory& \ 1024
         
-        uptime = GetTickCount \ 1000
+        uptime = CUpTime.MilliSecs \ 1000
         
         CUpTime.Capture
         cpu_time = CUpTime.CPUTime