VB.Net程序设计:控制远程计算机:重启或关闭

文件服务器的电脑放在一个房间里，门经常被锁了。人没办法进去关闭计算机。于是参考网络上的文章，写了这样一个程序。重启或关闭远程计算机，支持局域网、广域网操作，不用专门跑到机房去关闭电脑，很方便。不过要有WMI权限，有关闭电脑的权限。

附加：计算机名称-IP地址 互查。

下载地址：http://download.csdn.net/source/712724

 

 

附加：主模块的代码。

 

Imports System Imports System.Collections.Generic Imports System.Management Public Class FrmMain Private Sub ShowMsg(ByVal Msg As String, Optional ByVal mType As MsgType = MsgType.Ok) If mType = MsgType.Ok Then Me.LB.ForeColor = Color.Black Me.LB.Text = Msg Else Me.LB.ForeColor = Color.Red Me.LB.Text = "出错：" & Msg End If Me.LB.Refresh() End Sub Private Sub BTRunRomote_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTRunRomote.Click ShowMsg(".") If Me.TxtBoxPcName.Text = "" Or Me.TxtBoxUserName.Text = "" Then ShowMsg("没有填写具体的计算机名或管理员名称。", MsgType.Err) Exit Sub End If '确定WMI操作的范围 Dim options As New ConnectionOptions() '设定用于WMI连接操作的用户名 options.Username = Me.TxtBoxUserName.Text '设定用户的口令 options.Password = Me.TxtBoxPassWord.Text Try Dim Conn As New ManagementScope("//" + Me.TxtBoxPcName.Text + "/root/cimv2", options) Conn.Connect() '确定WMI操作的内容 Dim oq As New ObjectQuery("SELECT * FROM Win32_OperatingSystem") Dim query1 As New ManagementObjectSearcher(Conn, oq) '获取WMI操作内容 Dim queryCollection1 As ManagementObjectCollection = query1.[Get]() '根据使用者选择，执行相应的远程操作 For Each mo As ManagementObject In queryCollection1 Dim ss As String() = {""} If Me.CmbBoxControlType.Text = "重新启动" Then '执行重启操作 mo.InvokeMethod("Reboot", ss) ShowMsg("执行重启操作") ElseIf CmbBoxControlType.Text = "远程关机" Then '执行远程关机 mo.InvokeMethod("Shutdown", ss) ShowMsg("执行远程关机") Else ShowMsg("选择不正确的操作！", MsgType.Err) End If Next Catch ee As Exception '报错 MessageBox.Show("连接" + TxtBoxPcName.Text + "出错，出错信息为：" + ee.Message, "出错啦。") End Try End Sub Private Sub BtExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtExit.Click Me.Close() End Sub Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TxtBoxPassWord.Text = "123456" End Sub Private Sub BtOpenGetHostFrm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOpenGetHostFrm.Click Dim frm As New FrmGetHost frm.Show() End Sub Private Sub BtChkConnetion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtChkConnetion.Click Dim pcname As String pcname = Me.TxtBoxPcName.Text.Trim ShowMsg(".") If pcname > "" Then If RexMatch(pcname, "/d+/./d+/./d+/./d+") Then If Ping(pcname) Then ShowMsg("能够连接当前的主机。") Else ShowMsg("无法连接上当前的主机。", MsgType.Err) End If Else pcname = GetIpByHostName(pcname) If pcname = "" Then ShowMsg("无法连接上当前的主机。", MsgType.Err) Else If Ping(pcname) Then ShowMsg("能够连接当前的主机。") Else ShowMsg("无法连接上当前的主机。", MsgType.Err) End If End If End If End If End Sub End Class

 

还有一些公用模块的函数：

 

Imports System.Net Module ComMod ''' <summary> ''' 显示提示信息在类别。默认为0。 ''' </summary> Public Enum MsgType Err Ok End Enum ''' <summary> ''' 判断TextStr是否匹配Rex规则 ''' </summary> ''' <param name="TextStr"></param> ''' <param name="RexStr"></param> ''' <returns>匹配则返回True，否则返回False。</returns> ''' <remarks></remarks> Public Function RexMatch(ByVal TextStr As String, ByVal RexStr As String) As Boolean Return System.Text.RegularExpressions.Regex.Match(TextStr, RexStr).Success End Function ''' <summary> ''' 根据主机名（域名）获得主机的IP地址 ''' </summary> ''' <param name="hostName">主机名或域名</param> ''' <example>GetIPByDomain("pc001"); GetIPByDomain("www.google.com");</example> ''' <returns>主机的IP地址</returns> Public Function GetIpByHostName(ByVal hostName As String) As String hostName = hostName.Trim() If hostName = String.Empty Then Return String.Empty End If Try Dim host As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(hostName) Return host.AddressList.GetValue(0).ToString() Catch generatedExceptionName As Exception Return String.Empty End Try End Function ''' <summary> ''' 根据IP地址获得主机名称 ''' </summary> ''' <param name="ip">主机的IP地址</param> ''' <returns>主机名称</returns> Public Function GetHostNameByIp(ByVal ip As String) As String ip = ip.Trim() If ip = String.Empty Then Return String.Empty End If Try If Ping(ip) Then Dim host As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(ip) Return host.HostName Else Return String.Empty End If Catch generatedExceptionName As Exception Return String.Empty End Try End Function ''' <summary> ''' 是否能 Ping 通指定的主机 ''' </summary> ''' <param name="ip">ip 地址或主机名或域名</param> ''' <returns>true 通，false 不通</returns> Public Function Ping(ByVal ip As String) As Boolean Dim p As New System.Net.NetworkInformation.Ping() Dim options As New System.Net.NetworkInformation.PingOptions() options.DontFragment = True Dim data As String = "Test Data!" Dim buffer As Byte() = System.Text.Encoding.ASCII.GetBytes(data) Dim timeout As Integer = 1000 ' Timeout 时间，单位：毫秒 Dim reply As System.Net.NetworkInformation.PingReply = p.Send(ip, timeout, buffer, options) If reply.Status = System.Net.NetworkInformation.IPStatus.Success Then Return True Else Return False End If End Function End Module

大家支持一下。