机房计算机管理与维护系统的设计与实现

1、摘要：计算机机房在计算机理论与实践教学中占有非常重要的作 用，而机房计算机的管理与维护又是非常的繁杂，劳动强度也大。本 文介绍了如何利用 VB.NET语言和远程唤醒技术设计实现机房管理 与维护系统，使这些繁琐的工作科学化、现代化、自动化，减轻工作 人员的劳动强度，提高工作效率，使工作人员工作舒心、愉快。关键词：计算机 VB.NET MAC地址远程唤醒远程关机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计算机信息数据库操作模块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 (序号，计算机名称,IP地址,MAC地址,机房号）“& _”values( & XuHao

6、& amp;”，“ &ComputerName& amp;” ,&IPAddress& amp;” ,“ & MacAddress& amp;” ,&Jifan gHao& ” ) ”Cmd, ExecuteNonQuery()Next从数据库中按机房号读出数据并显示到表格DataGridView2中。主要代码如下：Dim StrSql As Stri ng =“ SELECT * from hostdata wh房号 = ” & CBoxJiFangHao2.Text & “ order by序号”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 机房号二 ” &

8、 CBoxJiFangHao2.Text &“ Cmd.ExecuteN on Query()5.4远程唤醒模块远程唤醒(Wake-on-LAN,WOL)是在计算机电源、主板和网卡等设备支持该功能的前提下，通过向处于半工作状态的网卡发送特定数 据包，以实现计算机从停机状态自动启动的一种远程控制技术。所发特定数据包的内容是 FFFFFFFFFFFF加上16遍对方网卡的 MAC地 址。如某台支持并开启远程唤醒功能的计算机网卡的MAC地址为00-E0-4C-00-00-06，则数据包的内容应为(不能出现-字符):FFFFFFFFFFFF00E04C00000600E04C00000600E04C00

9、000600E04C0 0000600E04C00000600E04C00000600E04C00000600E04C00000600E 04C00000600E04C00000600E04C00000600E04C00000600E04C00000600E04C00000600E04C00000600E04C000006 当计算机收到这个广 播数据包后就与自己的MAC地址作比较，如果相同，便会向主板发 送开机信号，使计算机自动开机，相当于按了一下电源开关按钮一样。 所需要的MAC地址存贮在数据库中。主要代码如下：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)´也可以是其它任意端口号UDPSe nder.Se nd(Se ndMac, Se ndMac.Le ngth, groupEP)End Sub5.5远程关机、取消远程关机模块远程关机、取消远程关机是利用 WindowsXP操作系统自带的程序shutdown.exe并使用特定的参数来实现的。shutdown的用法(只列出部分参数)：s

12、hutdown -i | -l | -s | -r | -a -f -m Wcomputername -txx。-s即关闭计算机；-r即关闭并重启计算机；-a即取消关机/重启；-m computer name即对远程计算机 computer name (可以是IP 地址)执行关机/重启/取消操作；-t xx即xx秒后执行相应操作；-f即强制运行的应用程序关闭而没有警告。远程关机主要代码如下:CreateObject( “ WScript.Shell ”).Run(“ shsutdOw“exenp;WaitTime & “ /f /m & IPAddress, 0)取消远程关机主要代码如下：5.

13、6远程重启、取消远程重启模块远程重启主要代码如下：CreateObject( “ WScript.Shell ” ).Run( “ shrutdOwn.exenp;WaitTime & “ /f /m & IPAddress, 0)取消远程重启与取消远程关机代码相同。5.7参数配置模块参数配置模块是利用两个文本框来修改远程唤醒的时间间隔和远程关机或远程重启的等待时间。在进行远程唤醒时程序会读取远程 唤醒的时间间隔，这样方便控制远程唤醒间隔的时间，防止开机过于集中，导致电压超负荷，引起故障。在进行远程关机或重启时程序会 按预先设置好的时间后执行对应的操作，方便使用。6远程唤醒的开启操作(以我校的

14、联想计算机为例)打开计算机，在出现进入 “ Press TAB to show POST screeDEL toSETUP”提示时，立刻按键盘的“ DEL键，进入CMOS设置，选择 “ Power Management Setup”入，选择 “Wakejp by PCI card 后面的 修改项，将其设为“Enabled。”如果没有此项，说明计算机不支持远程 唤醒功能。需要注意的是不同厂商的计算机或不同型号的计算机进入 CMOS设置的方式会有不同，提示信息也会有所不同，但原理都是基 本相同的。7获得运行该软件的计算机的IP地址、MAC地址和计算机名称。主要代码如下(实现了多网卡和多IP地址的情

15、况)：ThisHostName = GetHostName() 获得计算机名称Nies = GetAIINetworkl ntefaces()For i = 0 To Nics.Length -1 找到所有活动网卡并添 加到集合 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 获得当前网卡信息！ 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 获得当前网卡的 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;获得当前网卡第 一个IP地址End If8结语该软件采用VB.NET语言实现，同时利用了操作系统所提供的工具shutdown.exe,节省了开发时间，并实现了多网卡和 多IP地址的操作。本系统可以运行在任何运行.NET2.0的Windows 操作系统上，只需拷贝到计算机上即可使用，属于绿色软件。本系统 已经在我校机房计算机管理和维护中正常使用，效果良好，有效降低了机房管理人员的工作强