利用WMI修改本机Gateway,DNS
2004-05-07 22:11
253 查看
以下的VB Script代码利用WMI修改本机的Gateway,DNS设置(将下面的代码存成 .VBS文件直接双击运行即可).
Const STR_NEWDNS1 = "192.168.0.1"
Const STR_NEWDNS2 = "192.168.0.43"
Const STR_GATEWAY = "192.168.0.1"
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("NetworkAdapterConfiguration.txt", True)
strWinMgmt = "winmgmts:{impersonationLevel=impersonate}"
Set objNICs = GetObject( strWinMgmt ).InstancesOf( "Win32_NetworkAdapterConfiguration" )
outFile.WriteLine("Begin to change DNS...")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)
outFile.WriteLine(objNIC.Description & " ")
outFile.WriteLine("Change DNS ok")
objNIC.SetGateways Array(STR_GATEWAY)
outFile.WriteLine("Change gateway ok")
End If
Next
outFile.WriteLine("Change over")
Const STR_NEWDNS1 = "192.168.0.1"
Const STR_NEWDNS2 = "192.168.0.43"
Const STR_GATEWAY = "192.168.0.1"
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("NetworkAdapterConfiguration.txt", True)
strWinMgmt = "winmgmts:{impersonationLevel=impersonate}"
Set objNICs = GetObject( strWinMgmt ).InstancesOf( "Win32_NetworkAdapterConfiguration" )
outFile.WriteLine("Begin to change DNS...")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)
outFile.WriteLine(objNIC.Description & " ")
outFile.WriteLine("Change DNS ok")
objNIC.SetGateways Array(STR_GATEWAY)
outFile.WriteLine("Change gateway ok")
End If
Next
outFile.WriteLine("Change over")
相关文章推荐
- python利用wmi修改IP、DNS
- centos下修改hostname,ip,netmask,gateway,dns
- 利用 WMI 修改计算机的网络设置
- PHP调用系统命令修改IP,netmask,gateway,mac,dns
- C#通过WMI修改IP,DNS还有网关!
- 修改Linux的IP,Gateway和DNS
- 利用 WMI 修改计算机的网络设置
- 利用 WMI 修改计算机的网络设置
- 利用 WMI 修改计算机的网络设置
- 利用 WMI 修改计算机的网络设置
- 通过WMI修改IP,DNS还有网关!
- 利用 WMI 修改计算机的网络设置
- 利用 WMI 修改计算机的网络设置
- C++ builder 通过WMI方式修改DNS
- 利用WMI修改计算机网络设置
- 通过WMI修改IP,DNS还有网关
- 利用jquery修改href的部分字符
- 原来通过修改dns加快app store下载速度的确有效
- windows下修改hosts文件,添加固定的DNS解析