inish:

Thread.CurrentThread.Sleep(5000) ‘以下程序等待所有线程结束

GC.Collect()

If ThreadCounterStopped = ThreadCounterStarted And HostInfoThreadCounter.counter = HostInfoThreadCounter.counterSTOP Then‘如果触发线程等于结束线程

Dim row As Data.DataRow

For Each row In ds.Tables(table).Rows

row.Item("SysTime") = Now

Next

Purgestr = "delete " & table

Dim com1 As New SqlClient.SqlCommand(Purgestr, conn1)

com1.ExecuteNonQuery() ‘删除旧记录

sa.InsertCommand = combu.GetInsertCommand

sa.Update(ds, table) '' 将新记录写入数据库

Else

GoTo Finish '' goto finish and wait another 30 seconds

End If

End Sub

　　可以利用如下命令在DOS窗口启动该程序。

Scanservice –i iplist.xml –d dbinfo.xml


　　2． SCANSERVICE 数据库

　　该数据库保存保存程序运行结果，以便用WEB等方式展现出来。以下是建立表的脚本，包含域名，用户名，机器名，IP以及服务状态。

CREATE TABLE [dbo].[Service] (

[IP] [varchar] (50) NULL ,

[状态] [varchar] (50) NULL ,

[用户名] [varchar] (50) NULL ,

[机器名] [varchar] (50) NULL ,

[MAC地址] [varchar] (50) NULL ,

[域] [varchar] (50) NULL ,

[超时] [varchar] (10) NULL ,

[时间安] [DateTime] (8) NULL ,

)

　　总结:

　　以上是一个完整的方法，也是比较简单明晰的解决方法，如果要求技巧和性能的话，还有一些地方可以做些改进，比如对线程池的使用。另外还有一些方面需要大家自己完成，比如将数据库中的信息以WEB的方式展现出来。