VB.NET开发扫描客户端服务工具

For Each RowTimeOut In ds.Tables(0).Select("IP=@#" & IP & "@#")

RowTimeOut.Item("LastUID") = user

RowTimeOut.Item("Name") = hostname

RowTimeOut.Item("Mac") = Mac

RowTimeOut.Item("Domain") = domain

RowTimeOut.Item("Timeout") = timeout @#Set timeout flag to this item

Exit For @#just run once

Next

Catch er As Exception

End Try

End Sub

End Class

‘由于篇幅限制，这里省略了根据IP取得机器信息的类的代码。

Imports System.Threading ‘用于支持多线程

Imports System.Xml ‘用于分析XML格式的参数文件

Imports System.Data ‘用于保存结果到数据库

Module Module1

Public ds As New DataSet()

Public conn1 As SqlClient.SqlConnection ‘数据库连接

Public ipf As String ‘IP列表文件名

Public dbf As String ‘数据库信息文件

Public ThreadCounterStopped As Integer