--- experimental/host/vb_net_test/nettest.frm	2001/02/26 09:23:34	1.21
+++ experimental/host/vb_net_test/nettest.frm	2001/02/26 09:54:25	1.23
@@ -165,6 +165,10 @@ Dim responseNumber As Integer
 
 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 If
+    
     protocolVersion = "1.1"
     
     Status.Caption = "Loading"
@@ -415,6 +419,10 @@ Private Sub Timer1_Timer()
         
         uptime = GetTickCount \ 1000
         
+        CUpTime.Capture
+        cpu_time = CUpTime.CPUTime
+        percent_idle = CUpTime.PercentIdle
+        
         ' build the contents of the XML packet
         xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
               "<os>" & _
@@ -426,6 +434,7 @@ Private Sub Timer1_Timer()
                 "<processor>" & processorType & "</processor>" & _
                 "<uptime>" & uptime & "</uptime>" & _
               "</os>" & _
+              "<cpu><idle>" & percent_idle & "</idle><user>" & cpu_time & "</user></cpu>" & _
               "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
               "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
               "</packet>"