利用 WMI 修改计算机的网络设置

转载 2004年09月15日 11:12:00
 

利用 WMI 修改计算机的网络设置<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Montaque(侯永锋)

申明:

    1、个人的一点心得,仅供参考
    2
、转载时候,请保留原本

 

概述:

                在前面的文章中,简要的介绍了如何利用 WMI 获取系统的软硬件设置,有兴趣的可以参考上篇文章(http://www.csdn.net/develop/read_article.asp?id=15744)。今天,我们就如何利用编程的方式读写系统的网络设置,主要包括本地网卡的 IP 地址、网络掩码以及 DNS 服务器和网关等。主要利用Win32_NetworkAdapterConfiguration WMI 类。

 

思路:

                ManagementObject 类表示数据管理对象,通过利用WQL(WMI Query Language) 筛选符合条件的管理对象,然后调用Win32_NetworkAdapterConfiguration 类的设置方法。对于 ManagementObject 对象,可以把调用方法的名称和参数传递给InvokeMethod 方法,以获得对管理对象类的方法调用。

 

                Win32_NetworkAdapterConfiguration 类包含了计算机网络适配器设置相关的一些属性和方法。该类支持与具体网络适配器无关的 TCP/IP 协议和 IPX 协议管理的一些方法和属性。

                下面列出了一些 Win32_NetworkAdapterConfiguration 的属性(托管对象格式)

 

 

我们可以利用下列代码获取网卡的设置:

代码:

Imports System.Management

Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration ")

Dim share As ManagementObject

 For Each share In searcher.Get()

       MessageBox.Show(share.GetText(TextFormat.Mof))

 Next share

结果:

 

instance of Win32_NetworkAdapterConfiguration

{

       Caption = "[00000001] Intel(R) PRO/100 S Desktop Adapter";

       DatabasePath = "%SystemRoot%//System32//drivers//etc";

       DefaultIPGateway = {"192.168.0.254"};   网关

       Description = "Intel(R) PRO/100 S Desktop Adapter"; 这个是惟一的

       DHCPEnabled = FALSE;

       DNSEnabledForWINSResolution = FALSE;

       DNSHostName = "monkey";

       DNSServerSearchOrder = {"192.168.0.254", "202.120.190.208"};  两个备选 DNS

       DomainDNSRegistrationEnabled = FALSE;

       FullDNSRegistrationEnabled = TRUE;

       GatewayCostMetric = {1};

       Index = 1;

       InterfaceIndex = 65539;

       IPAddress = {"192.168.0.161"};                  本地的 IP

       IPConnectionMetric = 20;

       IPEnabled = TRUE;

       IPFilterSecurityEnabled = FALSE;

       IPSecPermitIPProtocols = {"0"};

       IPSecPermitTCPPorts = {"0"};

       IPSecPermitUDPPorts = {"0"};

       IPSubnet = {"255.255.255.0"};                   掩码

       IPXEnabled = FALSE;

       MACAddress = "52:54:AB:DD:64:03";

       ServiceName = "E100B";

       SettingID = "{F5553268-53F8-48F6-A818-1432EEE04AE1}";

       TcpipNetbiosOptions = 0;

       WINSEnableLMHostsLookup = TRUE;

       WINSScopeID = "";

};

如何改变网卡的这些设置呢?我们直接利用 Win32_NetworkAdapterConfiguration 的一些方法。我们利用到的方法主要有以下:

EnableStatic

启用静态的 TCP/IP 设置,输入两个参数一个是本地
IP 地址,另外一个是网络掩码。

// 一般我们都是利用这个方法设置网卡的 IP 属性

SetGateways

指定一系列的网关

SetDNSServerSearchOrder

以数组的形式传入 DNS 列表

 

下面是一个 Snippet ,根据列表框显示的网卡 Description 的不同,设置对应地网卡。

 

主要的代码:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        GetAllConfigurationalleNetCard()

    End Sub

 

    修改设置

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE Description=""" & Me.ComboBox1.SelectedItem.ToString & """")

        Dim share As ManagementObject

 

        Dim iResult As Integer = 0 ‘ 判断是否修改成功。如果成功,后面的三个方法返回值都是0,注意返回的值是 Uint32 类型。

 

        For Each share In searcher.Get()

            Console.WriteLine(share.GetText(TextFormat.Mof))

            If Not (share.Item("IPAddress") Is Nothing) Then

              

                'set address

                Dim ipAddresses() As String = {TextBox1.Text} ‘ IP 地址

                Dim ipSubnetmask() As String = {TextBox2.Text} ‘掩码

                Dim objpara() As Object = {ipAddresses, ipSubnetmask}

                iResult += Convert.ToInt32(share.InvokeMethod("EnableStatic", objpara))

 

                Dim ipGateWay() As String = {TextBox3.Text} ‘网关

                Dim GatewayCostMetric() As UInt16 = {UInt16.Parse("1")}

                Dim objpara1() As Object = {ipGateWay, GatewayCostMetric}

                iResult += Convert.ToInt32(share.InvokeMethod("SetGateways", objpara1))

 

                'set Dns Server Serach Order

 

                多个dns 中间以减号分开

                If Me.TextBox4.Text.IndexOf("-") > 0 Then

                    Dim dnsServers As String() = TextBox4.Text.Split("-")

                    Dim objpara2() As Object = {dnsServers}

 

                    iResult += Convert.ToInt32(share.InvokeMethod("SetDNSServerSearchOrder", objpara2))

                Else

 

                    Dim dnsServers As String() = {Me.TextBox4.Text}

                    Dim objpara2() As Object = {dnsServers}

                    iResult += Convert.ToInt32(share.InvokeMethod("SetDNSServerSearchOrder", objpara2))

                End If

 

                If iResult = 0 Then

                    MessageBox.Show("修改成功")

                Else

                    MessageBox.Show("修改失败,检查输入的格式和您是否有权限")

                End If

 

            End If

        Next share

 

    End Sub

 

获取网卡列表

    Private Sub GetAllConfigurationalleNetCard()

        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

        Dim share As ManagementObject

        Me.ComboBox1.Items.Clear()

        For Each share In searcher.Get()

            If Not (share.Item("IPAddress") Is Nothing) Then

                Me.ComboBox1.Items.Add(share("Description"))

            End If

        Next share

        Me.ComboBox1.SelectedIndex = 0

End Sub

 

获取网卡的详细信息

    Private Sub GetConfiguraton(ByVal description As String)

        If description Is Nothing Or description.Length = 0 Then

            Exit Sub

        Else

            Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE Description=""" & description & """")

            Dim share As ManagementObject

 

            For Each share In searcher.Get()

                Me.TextBox1.Text = DirectCast(share.Item("IPAddress"), String())(0).ToString

                Me.TextBox2.Text = DirectCast(share.Item("IPSubnet"), String())(0).ToString

                Me.TextBox3.Text = DirectCast(share.Item("DefaultIPGateway"), String())(0).ToString

                Dim i As Integer

                Me.TextBox4.Clear()

                For i = 0 To DirectCast(share.Item("DNSServerSearchOrder"), String()).GetLength(0) - 1

                    Me.TextBox4.Text &= DirectCast(share.Item("DNSServerSearchOrder"), String())(i).ToString & "-"

                Next

                If i >= 2 Then

                    Me.TextBox4.ForeColor = SystemColors.HotTrack

                Else

                    Me.TextBox4.ForeColor = Me.TextBox3.ForeColor

                End If

 

                Me.TextBox4.Text = Me.TextBox4.Text.Remove(Me.TextBox4.Text.Length - 1, 1)

 

                Me.TextBox5.Text = share.Item("MACAddress").ToString

                Exit For

            Next share

        End If

       

 

    End Sub

需要注意的地方:

  • InvokeMethod 传递的调用方法参数是 Object 类型,需要装箱操作。

  • EnableStatic SetGateways SetDNSServerSearchOrder 的返回值都是 Uint32,如果执行成功返回0,如果执行成功并且需要重启计算机则返回1

  • Win32_NetworkAdapterConfiguration 方法的这些属性一般都是只读的,调用管理对象的SetPropertyValue 方法无效。

 

参考:

ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.2052/wmisdk/wmi/win32_networkadapterconfiguration.htm

如果需要详细的代码示例,请给我发 Email: Rainman_am_I@hotmail.com 请不要发超过100k的附件,否则直接被 Block 掉:)

2003-10-03 上海

写几句更改一下工作组(WMI)

 引用WMI上面几个代码写的都很清晰,这个就写成一行算了,比较符合"MS"式的脚本Private Sub Form_Click()MsgBox nWorkGroup("sor")End Sub Pri...
  • zcsor
  • zcsor
  • 2007年03月14日 11:58
  • 53756

利用WMI修改计算机网络设置

获取本机网卡   /**////         /// 获取网卡列表        ///         public ArrayList GetAllNetCards()        ...
  • simpleblue88
  • simpleblue88
  • 2007年12月20日 18:02
  • 1462

通过WMI修改IP,DNS还有网关

namespace modify{  public class ChangeIP  {   public static readonly System.Version myVersion = new ...
  • ericksky
  • ericksky
  • 2006年06月30日 10:31
  • 2387

CWmi 类, WMI轻松用, 网关设置

#ifndef _WMI_H_#define _WMI_H_#define _WIN32_DCOM#include #include #pragma comment(lib, "wbemuuid.li...
  • TDGX2004
  • TDGX2004
  • 2011年06月03日 10:12
  • 7803

VBS结合WMI技术修改IP地址,网关,DNS等

  • 2011年07月02日 12:23
  • 6KB
  • 下载

experiment : 使用WMI取本地计算机信息

最近的任务中有个分支任务, 要求将客户本地计算机Windows操作系统中的软硬件信息记录下来, 给研发看, 辅助调试用. 看到WMI能做这事, codeproject上资料还没有csdn上多~...
  • LostSpeed
  • LostSpeed
  • 2013年01月15日 00:12
  • 2851

用wmi来实现修改ip地址

Vista下面没有办法使用DhcpNotifyConfigChange 来通知适配器配置的改变,尝试用wmi来实现修改ip地址,c++源码如下(.Net2003下面编译运行通过): #define ...
  • cosmoslife
  • cosmoslife
  • 2013年03月21日 18:59
  • 700

编程使用WMI 控制连接属性

标题    编程使用WMI 控制连接属性    ArLi2003(原作) 关键字    编程使用WMI 控制连接属性,IP,DNS,Gateway,网关,WMIusing System;using S...
  • stdotleo
  • stdotleo
  • 2004年08月14日 00:16
  • 750

使用WMI得到计算机的信息

使用WMI得到计算机的信息WMI是一项行业推荐规范,旨在为访问企业环境中的管理信息而开发一种标准化技术。该信息包括系统内存的状态、当前安装的客户应用程序清单,以及有关客户端状态的其他数据。WMI是可伸...
  • online
  • online
  • 2004年03月12日 14:21
  • 3496

使用WMI Filter 实现组策略的筛选!~

今天接到一个客户的一个问题,提到需要分系统版本分发相应的MSI程序。比如简体版接受简体版的分发程序,繁体版接受繁体版的分发程序!这个建立组策略的不同版本分发本身不会太难,我们只需要建立两个不同组策略分...
  • fogyisland2000
  • fogyisland2000
  • 2012年09月18日 13:43
  • 4701
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用 WMI 修改计算机的网络设置
举报原因:
原因补充:

(最多只允许输入30个字)