用VBS设置静态IP和DNS服务器地址的代码

当使用VBS（Visual Basic Script）编写代码来设置静态IP和DNS服务器地址时，可以按照以下步骤进行操作：

1. 首先，创建一个新的文本文件，并将其保存为以.vbs为扩展名的文件，例如set_static_ip.vbs。

2. 打开该文件，并在其中输入以下代码：

strComputer = \".\" ' 设置为本地计算机

' 创建WMI对象
Set objWMIService = GetObject(\"winmgmts:{impersonationLevel=impersonate}!\\\\\" & strComputer & \"\\root\\cimv2\")

' 获取网络适配器配置
Set colNetAdapters = objWMIService.ExecQuery(\"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True\")

' 遍历每个网络适配器
For Each objNetAdapter In colNetAdapters
    ' 设置静态IP地址和子网掩码
    arrIPAddress = Array(\"192.168.0.100\") ' 设置静态IP地址
    arrSubnetMask = Array(\"255.255.255.0\") ' 设置子网掩码
    objNetAdapter.EnableStatic arrIPAddress, arrSubnetMask

    ' 设置首选DNS服务器地址
    arrDNSServers = Array(\"8.8.8.8\") ' 设置首选DNS服务器地址
    objNetAdapter.SetDNSServerSearchOrder arrDNSServers
Next

' 显示成功消息框
MsgBox \"静态IP和DNS服务器地址已成功设置！\", vbInformation, \"设置完成\"

1. 保存并关闭文件。

以上代码的解释如下：

• 第1行设置了strComputer变量为.，表示本地计算机。你也可以将其设置为远程计算机的名称或IP地址。

• 第4行创建了一个WMI（Windows Management Instrumentation）对象，用于执行与操作系统相关的管理任务。

• 第7行使用WMI查询语言（WQL）选择所有已启用IP的网络适配器配置。

• 第10行开始遍历每个网络适配器。

• 第13行设置静态IP地址和子网掩码。在示例中，IP地址设置为192.168.0.100，子网掩码设置为255.255.255.0。你可以根据需要修改这些值。

• 第16行设置首选DNS服务器地址。在示例中，DNS服务器地址设置为8.8.8.8，这是Google Public DNS的地址。你可以根据需要修改这个值，或者添加更多的DNS服务器地址。

• 第19行继续遍历下一个网络适配器，直到所有适配器都被处理。

• 最后，第23行显示一个成功的消息框，通知用户静态IP和DNS服务器地址已成功设置。

示例说明1：设置静态IP地址为192.168.1.100，子网掩码为255.255.255.0，首选DNS服务器地址为192.168.1.1。

arrIPAddress = Array(\"192.168.1.100\") ' 设置静态IP地址
arrSubnetMask = Array(\"255.255.255.0\") ' 设置子网掩码
objNetAdapter.EnableStatic arrIPAddress, arrSubnetMask

arrDNSServers = Array(\"192.168.1.1\") ' 设置首选DNS服务器地址
objNetAdapter.SetDNSServerSearchOrder arrDNSServers

示例说明2：设置静态IP地址为10.0.0.100，子网掩码为255.0.0.0，首选DNS服务器地址为10.0.0.1和10.0.0.2。

arrIPAddress = Array(\"10.0.0.100\") ' 设置静态IP地址
arrSubnetMask = Array(\"255.0.0.0\") ' 设置子网掩码
objNetAdapter.EnableStatic arrIPAddress, arrSubnetMask

arrDNSServers = Array(\"10.0.0.1\", \"10.0.0.2\") ' 设置首选DNS服务器地址
objNetAdapter.SetDNSServerSearchOrder arrDNSServers

通过按照以上步骤编写和运行VBS脚本，你可以设置静态IP和DNS服务器地址。请注意，运行此脚本需要管理员权限。