扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者：吴羽 来源：yesky 2007年10月15日
关键字：
| Imports System.ServiceProcess Imports System.Xml Imports System.Threading Public Class GetStatus Private IServiceName As String ‘服务的名称 Private IMachineIP As String ‘IP地址 Private ITable As String ‘在DATESET中的表名 ‘构造函数 Sub New(ByVal Ip As String, ByVal SvcName As String, ByVal updatetable As String) IMachineIP = Ip IServiceName = SvcName ITable = updatetable End Sub ‘每个线程所运行的方法，用于得到服务的状态，如果状态不正常则触发另一线程得到该IP的信息 Sub GetStausF() Dim ServiceP As New ServiceController() ‘实例化一个ServiceController类 ServiceP.MachineName = IMachineIP ServiceP.ServiceName = IServiceName Dim myRow As DataRow Dim status As String Dim Run As Boolean = False myRow = ds.Tables(ITable).NewRow Try If ServiceP.Status.ToString ＜＞ "Running" Then status = ServiceP.Status.ToString‘如果状态不是RUNNING则将状态赋予字符串变量 Else Run = True ‘如果状态为RUNNING,则不做任何事 End If Catch er As Exception ‘以下处理取得状态时候发生的异常 status = Left(er.Message, 35) If InStr(status, "Service Control Manager") = 0 Then status = "Not installed or open service failed" ‘没有安装该服务 ElseIf InStr(er.Message, "Manager") ＞ 0 Then status = "Can not detected" ‘服务的状态不可得 End If End Try ServiceP.Close() ‘关闭ServiceController实例 ‘以下判断如果状态不是RUNNING,则记录该系统，并触发线程得到它的详细信息。 If Not Run Then myRow("msg") = status myRow("ip") = IMachineIP SyncLock GetType(AddRow) ‘为保证多线程情况下，对DataSet只有一个写操作，锁定AddRow类 Dim AddRowIns As New AddRow(myRow) ‘将IP和状态通过我们自己写的AddRow类插入DataSet End SyncLock ‘触发另一线程取得机器信息 Dim HostInfo2 As New HostInfo(IMachineIP) Dim HostThr2 As New Thread(New ThreadStart(AddressOf HostInfo2.sysInfo)) HostThr2.Start() SyncLock GetType(HostInfoThreadCounter) HostInfoThreadCounter.counter += 1 ‘启动线程数加1 End SyncLock End If SyncLock GetType(StoppCounter) StopThr.AddStop() End SyncLock End Sub End Class ‘该类只有一个方法，就是将停止的线程数减1 Class StoppCounter Sub AddStop() ThreadCounterStopped = ThreadCounterStopped + 1 End Sub End Class ‘此类用于将已有的行插入DataSet Class AddRow ‘第一个构造函数，以构造好的行为输入参数 Sub New(ByVal row As DataRow) Try ds.Tables(0).Rows.Add(row) Catch ee As Exception End Try End Sub ‘第二个构造函数，以机器名用户名等字符串为参数，更新已有的行 Sub New(ByVal IP As String, ByVal user As String, ByVal hostname As String, ByVal Mac As String, ByVal domain As String, ByVal timeout As Char) Dim RowTimeOut As DataRow Try 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 Public StopThr As New StoppCounter() Sub Main() ‘程序主程序 Dim machineIP As String Dim iplistF As New Xml.XmlDocument() Dim iplist As Xml.XmlNode Dim ipitem As Xml.XmlNode Dim DBinfoF As New Xml.XmlDocument() Dim DBinfo As Xml.XmlNode Dim LanID As String Dim i As Integer Dim timestart As Integer Dim ThreadCounterStarted As Integer ThreadCounterStarted = 0 ThreadCounterStopped = 0 Dim server As String Dim database As String Dim uid As String Dim pwd As String Dim table As String Dim connstr, connstr1 As String Dim ServiceName As String Dim Purgestr As String Try DBinfoF.Load(dbf) ‘读取数据库信息文件 Catch nodb As Exception MsgBox(nodb.Message & "Wrong DB info file name.") Exit Sub End Try Try iplistF.Load(ipf) ‘读取IP列表文件 Catch noip As Exception MsgBox(noip.Message & "Wrong IP list file name.") Exit Sub End Try ‘分析数据库信息文件 DBinfo = DBinfoF.ChildNodes(0) server = DBinfo.ChildNodes(0).InnerText database = DBinfo.ChildNodes(1).InnerText uid = DBinfo.ChildNodes(2).InnerText pwd = DBinfo.ChildNodes(3).InnerText ServiceName = DBinfo.ChildNodes(4).InnerText table = DBinfo.ChildNodes(4).Attributes(0).Value ‘根据分析所得，构造连接字符串 connstr1 = "server=" & server & ";database=" & database & ";uid=" & uid & ";password=" & pwd conn1 = New SqlClient.SqlConnection(connstr1) ‘实例化数据库连接 conn1.Open() ‘打开数据库连接 Dim sa As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("select * from " & table, conn1) Dim combu As New SqlClient.SqlCommandBuilder(sa) sa.Fill(ds, table) ‘填充DataSet ds.Clear() ‘清空旧的数据 Dim IPAddress As String ‘分析IP列表文件 iplist = iplistF.ChildNodes(0) Dim Ai As Integer Dim ipexcepCount As Integer Dim ipexcep As Xml.XmlNode For Each ipitem In iplist.ChildNodes Dim Excep(2, 83) As Integer LanID = ipitem.Attributes(0).Value‘得到网络ID For i = 2 To 254 ‘从2到254，根据每个网络ID构造IP地址 Ai = 0 ‘以下判断是为了跳过保留地址段 If ipitem.HasChildNodes Then ipexcepCount = ipitem.ChildNodes.Count ReDim Excep(2, ipexcepCount - 1) For Each ipexcep In ipitem.ChildNodes Excep(0, Ai) = CInt(ipexcep.Attributes(0).Value) Excep(1, Ai) = CInt(ipexcep.Attributes(1).Value) Ai = Ai + 1 Next End If For Ai = 0 To ipexcepCount - 1 If i ＞= Excep(0, Ai) And i ＜= Excep(1, Ai) Then Console.WriteLine("跳过保留地址： " & LanID & i.ToString) GoTo SkipIP End If Next machineIP = LanID & i.ToString ‘IP地址 ‘以下触发线程以，得到服务状态 Dim getSt As New GetStatus(machineIP, ServiceName, table) Dim GetStThread As New Thread(New ThreadStart(AddressOf getSt.GetStausF)) GetStThread.Start() ThreadCounterStarted = ThreadCounterStarted + 1‘启动线程数加1 Console.WriteLine("线程" & machineIP & " 启动。检测 " & ServiceName) ‘每启动100个线程，程序主线程停止15秒，避免太多线程造成内存溢出 If (ThreadCounterStarted Mod 100) = 0 Then Console.WriteLine("等待 .......") Thread.CurrentThread.Sleep(15000) GC.Collect() 'force garbage collection to aviod outOfMemory when run with long IP list End If SkipIP: Next Next Console.WriteLine("Exiting program ...") ‘所有线程都已触发 Finish: 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 |
| 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 , ) |
婵犵數濮烽弫鍛婃叏閻戣棄鏋侀柛娑橈攻閸欏繘鏌ｉ幋婵愭綗闁逞屽墮閸婂湱绮嬮幒鏂哄亾閿濆簼绨介柛鏃撶畱椤啴濡堕崱妤€娼戦梺绋款儐閹瑰洭寮诲☉銏″亜闂佸灝顑呮禒鎾⒑缁洘鏉归柛瀣尭椤啴濡堕崱妤€娼戦梺绋款儐閹稿墽妲愰幘鎰佸悑闁告粌鍟抽崥顐⑽旈悩闈涗粶闁哥噥鍋夐悘鎺楁煟閻樺弶绌块悘蹇旂懅缁綁鎮欓悜妯锋嫼閻熸粎澧楃敮鎺撶娴煎瓨鐓曢柟鎯ь嚟濞叉挳鏌熼钘夊姢閻撱倖銇勮箛鎾村櫝闁归攱妞藉濠氬磼濮樺崬顤€闂佸憡顨嗗ú鐔风暦婵傜ǹ唯闁靛／鍕弰濠电姷鏁告慨鎾晝閵堝洠鍋撳鐓庡籍鐎规洩缍€缁犳盯寮崒婊呮濠电姷鏁告慨鎾磹缂佹ɑ娅犳繛鎴欏灪閻撴洟鎮楅敐鍐ㄥ濠碘€茬矙閺屾洟宕惰椤忣厾鈧鍠曠划娆愪繆濮濆矈妲归梺閫炲苯澧悽顖ょ節瀵鎮㈤崗鐓庣檮婵犮垼娉涢敃銉モ枔婵犳碍鈷戦柛婵嗗閻忛亶鏌涢悩宕囧⒌妤犵偛鍟オ浼村醇濠靛牆骞愰梻浣呵归張顒傜矙閹惧箍浜归悗锝庡枟閻撶喖骞栧ǎ顒€鈧倕岣块幇顓犵闁告瑥顥㈤鍫熷仼婵犻潧鐗忛惌娆撴偣閹帒濡芥繛鍫ョ畺濮婃椽宕滈幓鎺嶇凹濠电偛寮堕悧鐘诲箖閳ユ枼妲堥柕蹇ョ磿閸橀亶鏌ｈ箛鏇炰粶濠⒀傜矙閹瞼鈧綆鍋嗙粻楣冩煕椤愩倕鏋戦柛濠冨姈閹便劍绻濋崟顓炵闂佺懓鍢查幊鎰垝閻㈢鍋撻敐搴濈凹闁伙絼鍗冲缁樻媴鐟欏嫬浠╅梺鍛婃煥椤戝鐣烽敓鐘茬闁肩⒈鍓氬▓楣冩⒑闂堟稓绠為柛濠冩礋瀹曟﹢鍩€椤掆偓椤啴濡堕崱妤€顫囬梺绋块瀹曨剟鎯冮鍕拻闁稿本鐟ч崝宥夋倵缁楁稑鎳愰惌娆撴煙鐎电ǹ袥闁稿鎸搁～婵嬫偂鎼达紕鐫勯柣搴ゎ潐濞叉垿宕￠崘鑼殾闁告鍊ｉ悢鍏尖拹闁归偊鍠氬▔鍧楁⒒閸屾瑧绐旀繛浣冲洦鍋嬮柛鈩冪☉缁犵娀骞栧ǎ顒€鐏柛娆忕箲閵囧嫰骞掗崱妞惧闂備礁鐤囬～澶愬垂閸ф鏄ラ柕澶嗘櫅楠炪垺淇婇悙鎻掆挃闁告垼顫夌换婵嬫偨闂堟刀鐐烘煕閵婏附銇濋柡浣割儔閺屟囨嚒閵堝懍娌繛锝呮搐閿曨亝淇婇崼鏇炲窛妞ゆ柨鍚嬮锟犳⒒娴ｅ懙褰掝敄閸涙潙纾归柛锔诲幗瀹曞弶绻涢幋娆忕仼妤犵偑鍨烘穱濠囶敍濠垫劕娈紒鐐緲缁夊綊寮婚敐鍡樺劅闁靛骏绲介ˉ婵嗩渻閵堝繐顩柡浣筋嚙椤曪絿鎷犲顔兼倯闂佸壊鍋掗崑鍛搭敁閸ヮ剚鈷掑ù锝呮啞閸熺偤鏌熼幖浣虹暫鐎规洜澧楅幆鏃堚€﹂幋鐐存珨闂備焦瀵х换鍌炈囨禒瀣瀬闁糕剝銇滈埀顒佸笒椤繈顢楁繝鍌氼潬闂備焦妞块崢浠嬨€冮崱娆愬床婵炴垯鍨圭粻濠氭煛婢跺鐏╅柛鏂惧嵆濮婅櫣绮欏▎鎯у壉闂佸湱鎳撳ú顓烆嚕婵犳碍鏅查柛娑变簼椤秴鈹戦悙鍙夘棡闁告梹娲滄竟鏇㈠箮閼恒儮鎷洪梺鍛婄箓鐎氼厼锕㈤幍顔剧＜閻庯綆鍋勯悘鎾煕閳哄啫浠辨鐐差儔閺佸啴鍩€椤掆偓椤斿繐鈹戦崶銉ょ盎闂佸搫娲ㄩ崑鐐哄闯濞差亝鐓冮悹鍥嚋閸旂喓绱掓潏銊﹀磳鐎规洘甯掗埢搴ㄥ箣濠靛棭鐎村┑锛勫亼閸婃垿宕濆畝鍕疇婵せ鍋撴鐐叉閻ｆ繈宕熼銈忕床闂備胶绮崝娆忈缚瑜忕划濠囨晝閸屾稓鍘甸梺绋跨箺閸嬫劙寮冲鈧弻娑㈠棘鐠恒劎鍔梺璇″枤閸嬨倕鐣疯ぐ鎺濇晝闁绘ǹ浜惄搴ㄦ⒒娴ｅ憡璐￠柛搴涘€濆畷褰掓偨閸撳弶鏅滈梺鍐叉惈閹冲繘宕愰崹顐ｅ弿婵妫楁晶缁樹繆閹绘帞绉洪柡灞炬礋瀹曟儼顦叉い蹇ｅ幘閳ь剚顔栭崰鏇犲垝濞嗘劒绻嗘慨婵嗙焾濡插ジ姊洪棃鈺冪シ闁稿骸纾Σ鎰板箻鐎涙ê顎撶紓浣圭☉椤戝懎鈻撻鐐╂斀闁宠棄妫楁禍婵堢磼鐠囪尙澧曟い鏇稻缁绘繂顫濋鐐扮盎缂備胶鍋撴刊鑺ャ仈閹间礁鐤鹃柨婵嗩槹閸嬧剝绻濇繝鍌氭殶閺佸牓姊虹拠鈥虫灍闁挎洏鍨介獮濠囨偐濞茬粯鏅㈤梺绋挎湰缁絿妲愰弻銉︹拺闁告繂瀚峰Σ鎼佹煟濡も偓鐎氭澘鐣峰┑鍥ㄥ劅闁挎繂娲ｇ粭澶愭⒑缂佹ê濮夐柛搴涘€濋幃鈥斥槈閵忊€斥偓鍫曟煟閹邦垱纭剧悮姘舵⒑閸濄儱校闁挎洏鍨藉濠氬焺閸愨晛顎撻梺鑽ゅ枑濠㈡﹢锝為幒妤佸€甸悷娆忓缁€鍫ユ煕閻樺磭澧甸柕鍡曠椤粓鍩€椤掑嫬绠栭柍鍝勬噺閹偞銇勯幇鈺佲偓婵嬪箯婵犳碍鈷掗柛灞捐壘閳ь剙鍢查湁闁搞儜鍛闂佸壊鐓堥崑鍛村矗韫囨稒鐓欓柟顖涙緲琚氶梺鎶芥敱濮婂鍩€椤掆偓缁犲秹宕曢柆宓ュ洭顢涢悙鎻掔€梺绋跨灱閸嬬偤鎮￠姀鈥茬箚妞ゆ牗绮岄惃鎴犵磼鏉堛劌鍝洪柡灞诲妼閳规垿宕遍埡鍌傦妇绱撴担鎻掍壕闁诲函缍嗛崑浣圭濠婂牊鐓涚€广儱鍟俊鍧楁煃閽樺妲圭紒缁樼洴瀹曞ジ鎮㈤搹鍦帨婵犳鍠栭敃銊モ枍閿濆應妲堥柣銏⑶瑰婵囥亜閺傛儳瀚庨柍褜鍓氶崝鏇⑩€旈崘顔嘉ч幖绮光偓鑼嚬婵犵數鍋犵亸娆撳窗閺嵮呮殾婵炲樊浜滈悞鍨亜閹哄秹妾峰ù婊勭矒閺岀喖宕崟顒夋婵炲瓨绮撶粻鏍ь潖濞差亜绠伴幖娣灮閳规稒绻濈喊妯峰亾閾忣偅鎮欓柛妤呬憾閺岀喖鎮ч崼鐔哄嚒缂備緡鍋勭粔褰掑蓟濞戙埄鏁冮柨婵嗘川閻ｇ厧顪冮妶鍡樺鞍婵＄偠妫勯～蹇涙惞閸︻厾锛滃┑鈽嗗灠閹碱偊锝炲畝鍕€垫繛鍫濈仢濞呮﹢鏌涢幘瀵告噯闁诲繐鍟村娲川婵犱胶绻侀梺鍝ュУ瀹€绋跨暦閵忋倕绠瑰ù锝呭帨閹锋椽姊洪崨濠冨鞍鐟滄澘鍟粋宥嗙鐎ｎ偆鍘遍柣搴秵娴滄粓顢旈銏＄厵妞ゆ梹鏋婚懓鍧楁煛娴ｇǹ鏆ｇ€规洘甯掗埥澶婎潩椤掆偓缁犵偤姊绘担绛嬪殭闁告垹鏅槐鐐哄幢濞戞ḿ锛涢梺绯曞墲钃辨繛鍛У閵囧嫰骞掗幋婵冨亾閼姐倕顥氬┑鍌氭啞閻撴洟鎮橀悙鎻掆挃闁宠棄顦辩槐鎺戭渻閿曗偓濞诧箓鎮″▎鎾寸厽闁绘柨鎲＄欢鍙夈亜韫囷絽寮柡宀€鍠栭幃鈩冩償閵忥絿顢呴梻浣烘嚀瀵爼骞愰崘鑼殾闁绘柨鍚嬮ˉ鍫熺箾閹寸偟鎳勯柣婵撶節濮婂宕掑顑藉亾閹间礁纾瑰瀣捣閻棗銆掑锝呬壕濡ょ姷鍋為悧鐘汇€侀弴銏犖ч柛灞剧煯婢规洖鈹戦鐭亜鐣烽鍕偍閻庣數纭堕崑鎾舵喆閸曨剛顦ョ紓鍌氱Т閿曨亜顕ｆ繝姘耿婵°倕锕ら幃鎴︽⒑閸涘﹣绶遍柛銊ф櫕濡叉劙鏌嗗鍡欏幗闁硅壈鎻槐鏇㈡偩椤撱垺鐓曢幖娣妺閹查箖鎸婂┑鍠㈠綊宕楅崗鑲╃▏缂佺偓宕樺▔鏇㈠焵椤掆偓缁犲秹宕曢柆宓ュ洦瀵肩€涙ê浜楅梺鍝勬储閸ㄦ椽鎮″☉銏＄厱闁靛绲介崝姘攽閿涘嫬甯舵い顓″劵椤т線鏌涢妸銈呭祮婵犫偓娓氣偓濮婅櫣绱掑Ο鎾虫贡缁棃顢氶埀顒勩€侀弮鍫濋唶闁绘棁娅ｉ弳銏ゆ⒒閸屾艾鈧兘鎮為敂閿亾缁楁稑鎳忓畷鏌ユ煕鐏炵虎鍤ゆ繛鎴烆焸閺冨牆宸濇い鎾跺Т楠炴帡姊绘担鍛婃儓婵炲眰鍨藉畷鐟懊洪鍛簵闂佸憡鍔︽禍婵嬪窗閹邦厾绡€濠电姴鍊绘晶鏇犵磼閳ь剟宕奸悢绋垮伎濠碘槅鍨辩€笛呮兜妤ｅ啯鐓㈤柛鎰典簻閺嬫盯鏌＄仦鐐缂佺粯绋栭ˇ鏌ユ倵濮樺崬鍘寸€规洘鍨挎俊鎼佸煛閸屾瀚肩紓鍌氬€烽悞锕傛晪婵犳鍠栧ú锕傚Φ閸曨垰鍗抽柕濞垮劚缁秹姊虹化鏇熸澓闁搞劏妫勯锝夊箻椤旂⒈娼婇梺鐐藉劜閺嬪ジ宕戦幘缁樺仺闁告稑锕﹂崣鍡椻攽閻樼粯娑ф俊顐ｎ殜閸┾偓妞ゆ帒鍊归崵鈧梺瀹狀嚙缁夌懓鐣烽崼鏇炍╅柨婵嗗閻╁酣姊绘繝搴′簻婵炶濡囩划娆撳箛閺夎法鐤呮俊銈忕到閸燁垶鎮″☉銏″€堕柣鎰版涧娴滃墽绱掗埀顒傗偓锝庡厴閸嬫挾鎲撮崟顒傤槹婵炲瓨绮岄悥濂稿Υ娴ｅ壊娼ㄩ柍褜鍓熼獮鍐閿涘嫰妾繝銏ｆ硾椤﹁鲸寰勯敓锟�
京公网安备 11010802021500号