機(jī)房計(jì)算機(jī)管理與維護(hù)系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

1、摘要：計(jì)算機(jī)機(jī)房在計(jì)算機(jī)理論與實(shí)踐教學(xué)中占有非常重要的作 用，而機(jī)房計(jì)算機(jī)的管理與維護(hù)又是非常的繁雜，勞動(dòng)強(qiáng)度也大。本 文介紹了如何利用 VB.NET語言和遠(yuǎn)程喚醒技術(shù)設(shè)計(jì)實(shí)現(xiàn)機(jī)房管理 與維護(hù)系統(tǒng)，使這些繁瑣的工作科學(xué)化、現(xiàn)代化、自動(dòng)化，減輕工作 人員的勞動(dòng)強(qiáng)度，提高工作效率，使工作人員工作舒心、愉快。關(guān)鍵詞：計(jì)算機(jī) VB.NET MAC地址遠(yuǎn)程喚醒遠(yuǎn)程關(guān)機(jī)1需求分析SourcelPAddress = 0MacLe ngth = 6Dim MacRetur n As Stri ng =“IfSen dARP(DestlPAddress, SourceIPAddress, RemoteMac,M

2、acLe ngth) = 0 ThenIf MacLe ngth & It ; 0 And Not IsNoth in g(RemoteMac) The nDim Mac1 As String = System，Convert, ToString(RemoteMac, 16)Dim i As In tegerIf Mac1， Length &It; 12 ThenMac1 = Mac1 , PadLeft(12,“ 0”)End IfThe nIf Mac1 , Length = 12 And Mac1 &It;“ 0000”For i = 10 To 0 Step -2MacReturn 二

3、 MacReturn + Mac1, Substring(i)Mac1 = Mac1 , Remove(i, 2)NextEnd IfEnd IfEnd IfRetur n MacRetur nEnd Fun cti onReturn IpHostEntry, HostNameEnd Fun cti onNewThread, Name = “ Main ThreadNewThread, Start()5.3計(jì)算機(jī)信息數(shù)據(jù)庫(kù)操作模塊Dim Cmd As OleDbComma nd = New OleDbComma ndDim XuHao, ComputerName, IPAddress, Mac

4、Address, JifangHaoAs Stri ngCmd, Connection 二 ConnConn, Open()For i As Integer = 0 To DataGrideViewTmp, RowCount - 1XuHao = Val(DataGrideView1, Rows(), Item(i) , Cells(), ltem(0), Value)ComputerName = DataGrideView1, Rows(), Item(i), Cells(),Item(1), Value , ToStri ngIPAddress = DataGrideView1 , Row

5、s() , Item(i) , Cells() , Item(2),Value, ToStri ngMacAddress = DataGrideView1 , Rows() , Item(i) , Cells() , Item(3),Value, ToStri ngJifa ngHao = DataGrideView1 , Rows() , Item(i) , Cells() , Ite m(4),Value, ToStringCmd, CommandText = “insertnto hostdata (序號(hào)，計(jì)算機(jī)名稱,IP地址,MAC地址,機(jī)房號(hào)）“& _”values( & XuHao

6、& amp;”，“ &ComputerName& amp;” ,&IPAddress& amp;” ,“ & MacAddress& amp;” ,&Jifan gHao& ” ) ”Cmd, ExecuteNonQuery()Next從數(shù)據(jù)庫(kù)中按機(jī)房號(hào)讀出數(shù)據(jù)并顯示到表格DataGridView2中。主要代碼如下：Dim StrSql As Stri ng =“ SELECT * from hostdata wh房號(hào) = ” & CBoxJiFangHao2.Text & “ order by序號(hào)”Dim Co nn As New OleDbCo nn ectio n(Co nn ectSt

7、ri ng)Dim Cmd As New OleDbComma nd(StrSql, Conn)Dim da As New OleDbDataAdapter(Cmd)hostdata ”)Dim ds As New DataSetda.Fill(ds,DataGridView2.DataSource = ds.Tables(O)Dim Cmd As OleDbComma nd = New OleDbComma ndCmd.C onn ectio n 二 ConnCo nn .Ope n()Cmd.CommandText =“ deletefrom hostdata where 機(jī)房號(hào)二 ” &

8、 CBoxJiFangHao2.Text &“ Cmd.ExecuteN on Query()5.4遠(yuǎn)程喚醒模塊遠(yuǎn)程喚醒(Wake-on-LAN,WOL)是在計(jì)算機(jī)電源、主板和網(wǎng)卡等設(shè)備支持該功能的前提下，通過向處于半工作狀態(tài)的網(wǎng)卡發(fā)送特定數(shù) 據(jù)包，以實(shí)現(xiàn)計(jì)算機(jī)從停機(jī)狀態(tài)自動(dòng)啟動(dòng)的一種遠(yuǎn)程控制技術(shù)。所發(fā)特定數(shù)據(jù)包的內(nèi)容是 FFFFFFFFFFFF加上16遍對(duì)方網(wǎng)卡的 MAC地 址。如某臺(tái)支持并開啟遠(yuǎn)程喚醒功能的計(jì)算機(jī)網(wǎng)卡的MAC地址為00-E0-4C-00-00-06，則數(shù)據(jù)包的內(nèi)容應(yīng)為(不能出現(xiàn)-字符):FFFFFFFFFFFF00E04C00000600E04C00000600E04C00

9、000600E04C0 0000600E04C00000600E04C00000600E04C00000600E04C00000600E 04C00000600E04C00000600E04C00000600E04C00000600E04C00000600E04C00000600E04C00000600E04C000006 當(dāng)計(jì)算機(jī)收到這個(gè)廣 播數(shù)據(jù)包后就與自己的MAC地址作比較，如果相同，便會(huì)向主板發(fā) 送開機(jī)信號(hào)，使計(jì)算機(jī)自動(dòng)開機(jī)，相當(dāng)于按了一下電源開關(guān)按鈕一樣。 所需要的MAC地址存貯在數(shù)據(jù)庫(kù)中。主要代碼如下：Private Sub SetRemoteComputerPowerO n(By

10、ValRemoteMAC As Stri ng)Dim DestMac(5) As ByteFor i As In teger = 0 To 5DestMac(i) = Con vert.Tol nt32(RemoteMAC.Substri ng(2 * i, 2), 16)NextDim Sen dMac(101) As ByteFor i = 0 To 5Sen dMac(i) = & amp;HFFNextFori = 1 To 16Forj = 0 To 5Sen dMac(i * 6 + j) = DestMac(j)NextNextDim Grouplp As IPAddress

11、= IPAddress.Parse(“ 55”)Dim UDPSe nder As UdpClie nt = New UdpClie ntDim groupEP As IPEndPoint = New IPEndPoint(Grouplp, 65535)´也可以是其它任意端口號(hào)UDPSe nder.Se nd(Se ndMac, Se ndMac.Le ngth, groupEP)End Sub5.5遠(yuǎn)程關(guān)機(jī)、取消遠(yuǎn)程關(guān)機(jī)模塊遠(yuǎn)程關(guān)機(jī)、取消遠(yuǎn)程關(guān)機(jī)是利用 WindowsXP操作系統(tǒng)自帶的程序shutdown.exe并使用特定的參數(shù)來實(shí)現(xiàn)的。shutdown的用法(只列出部分參數(shù))：s

12、hutdown -i | -l | -s | -r | -a -f -m Wcomputername -txx。-s即關(guān)閉計(jì)算機(jī)；-r即關(guān)閉并重啟計(jì)算機(jī)；-a即取消關(guān)機(jī)/重啟；-m computer name即對(duì)遠(yuǎn)程計(jì)算機(jī) computer name (可以是IP 地址)執(zhí)行關(guān)機(jī)/重啟/取消操作；-t xx即xx秒后執(zhí)行相應(yīng)操作；-f即強(qiáng)制運(yùn)行的應(yīng)用程序關(guān)閉而沒有警告。遠(yuǎn)程關(guān)機(jī)主要代碼如下:CreateObject( “ WScript.Shell ”).Run(“ shsutdOw“exenp;WaitTime & “ /f /m & IPAddress, 0)取消遠(yuǎn)程關(guān)機(jī)主要代碼如下：5.

13、6遠(yuǎn)程重啟、取消遠(yuǎn)程重啟模塊遠(yuǎn)程重啟主要代碼如下：CreateObject( “ WScript.Shell ” ).Run( “ shrutdOwn.exenp;WaitTime & “ /f /m & IPAddress, 0)取消遠(yuǎn)程重啟與取消遠(yuǎn)程關(guān)機(jī)代碼相同。5.7參數(shù)配置模塊參數(shù)配置模塊是利用兩個(gè)文本框來修改遠(yuǎn)程喚醒的時(shí)間間隔和遠(yuǎn)程關(guān)機(jī)或遠(yuǎn)程重啟的等待時(shí)間。在進(jìn)行遠(yuǎn)程喚醒時(shí)程序會(huì)讀取遠(yuǎn)程 喚醒的時(shí)間間隔，這樣方便控制遠(yuǎn)程喚醒間隔的時(shí)間，防止開機(jī)過于集中，導(dǎo)致電壓超負(fù)荷，引起故障。在進(jìn)行遠(yuǎn)程關(guān)機(jī)或重啟時(shí)程序會(huì) 按預(yù)先設(shè)置好的時(shí)間后執(zhí)行對(duì)應(yīng)的操作，方便使用。6遠(yuǎn)程喚醒的開啟操作(以我校的

14、聯(lián)想計(jì)算機(jī)為例)打開計(jì)算機(jī)，在出現(xiàn)進(jìn)入 “ Press TAB to show POST screeDEL toSETUP”提示時(shí)，立刻按鍵盤的“ DEL鍵，進(jìn)入CMOS設(shè)置，選擇 “ Power Management Setup”入，選擇 “Wakejp by PCI card 后面的 修改項(xiàng)，將其設(shè)為“Enabled?！比绻麤]有此項(xiàng)，說明計(jì)算機(jī)不支持遠(yuǎn)程 喚醒功能。需要注意的是不同廠商的計(jì)算機(jī)或不同型號(hào)的計(jì)算機(jī)進(jìn)入 CMOS設(shè)置的方式會(huì)有不同，提示信息也會(huì)有所不同，但原理都是基 本相同的。7獲得運(yùn)行該軟件的計(jì)算機(jī)的IP地址、MAC地址和計(jì)算機(jī)名稱。主要代碼如下(實(shí)現(xiàn)了多網(wǎng)卡和多IP地址的情

15、況)：ThisHostName = GetHostName() 獲得計(jì)算機(jī)名稱Nies = GetAIINetworkl ntefaces()For i = 0 To Nics.Length -1 找到所有活動(dòng)網(wǎng)卡并添 加到集合 ActiveNicsCollection 中IfNics(i).Operatio nalStatus=Networkl nformatio n.Operatio nalStatus.UpAndNics(i).NetworkI ntefaceType=Networkl nformatio n. Networkl ntefaceType.Ethernet The nCBo

16、xNictems.Add(Nics(i).Descriptio n)ActiveNicsCollectio n.Add(Nics(i)End IfNextIf CBoxNic.ltems.Cou nt & gt; 0 ThenCBoxNic.Selected In dex = 0End If在組合框CBoxNic的SelectedValueChange事件中添加如下主要代碼：If ActiveNicsCollection.Count 0 Then 獲得當(dāng)前網(wǎng)卡信息！ TOC o 1-5 h z UserSelectedNic=ActiveNicsCollectio n.ltem(CBoxNic

17、.Selected In dex + 1)UserSelectedNicIpI nfomatio nCollectio n二UserSelectedNic.GetIPProperties.U nicastAddressesForiAsIn teger=0ToUserSelectedNicIpI nfomatio nCollectio n.Count -1CBoxThisHostlp.ltems.Add(UserSelectedNiclp In fomatio nCollectiontem(i).Address.ToStri ng)NextDimMacAsPhysicalAddress=User

18、SelectedNic.GetPhysicalAddress()ThisHostMac = Mac.ToString 獲得當(dāng)前網(wǎng)卡的 MAC地址Dim IpAdress AsIPAddressl nformatio nCollectio n二UserSelectedNic.GetIPProperties.A ny castAddressesFor j As In teger = 0 To IpAdress.Co unt - 1CBoxThisHostlp.ltems.Add(lpAdress(j).ToStri ng)NextCBoxThisHostlp.Selectedltem = CBoxThisHostlp.ltems.ltem(O)ThisHostIP = CBoxThisHostlp.Text & amp;acute;獲得當(dāng)前網(wǎng)卡第 一個(gè)IP地址End If8結(jié)語該軟件采用VB.NET語言實(shí)現(xiàn)，同時(shí)利用了操作系統(tǒng)所提供的工具shutdown.exe,節(jié)省了開發(fā)時(shí)間，并實(shí)現(xiàn)了多網(wǎng)卡和 多IP地址的操作。本系統(tǒng)可以運(yùn)行在任何運(yùn)行.NET2.0的Windows 操作系統(tǒng)上，只需拷貝到計(jì)算機(jī)上即可使用，屬于綠色軟件。本系統(tǒng) 已經(jīng)在我校機(jī)房計(jì)算機(jī)管理和維護(hù)中正常使用，效果良好，有效降低了機(jī)房管理人員的工作強(qiáng)