Auto3设置 ip信息


方法一:分步命令
1、设置主DNS
RunWait(@ComSpec & ' /c netsh -c interface ip set dns "本地连接" static 202.102.152.3 primary',"",@SW_HIDE)

2、设置备用DNS
用interface ip 里的set命令确实不能直接设置备用DNS。对于设置备用DNS可以用 netsh interface ip add dns 命令。
netsh interface ip add dns "本地连接" 202.102.134.68 2
Runwait(@ComSpec & ' /c netsh -c interface ip add dns "本地连接" 202.102.134.68 2',"",@SW_HIDE)

写成脚本就是
Runwait(@ComSpec & ' /c netsh -c interface ip set dns "本地连接" static 202.102.152.3 PRIMARY',"",@SW_HIDE)
Runwait(@ComSpec & ' /c netsh -c interface ip add dns "本地连接" 202.102.134.68 2',"",@SW_HIDE)
注意这里第一个RunWait不能写成Run,这是由于两条命令的差别在于,RunWait是等待命令结束再执行下一条命令,而Run是本条命令开始执行即继续下面的命令。
如果第一条写做Run则两条命令几乎同时开始执行,结果第二条可能执行的比较快而出错。

方法二:还原网络设置脚本
设置IP,DNS,Win等方面可用还原设置脚本的方法,即先用
netsh -c interface ip dump >d:old1.txt
把设置导出来,修改为一个脚本文本放在AutoIt脚本同一目录下。再用命令恢复。
恢复命令可写为


Runwait(@ComSpec & ' /c netsh -f "' & @ScriptDir & 'old1.txt"',"",@SW_HIDE)
   找了一圈发现autoit3 还要加函数的  嘿嘿
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
命令行改DNS存在一定的BUG,有时候不一定修改成功,论坛用户需要,我特别写了一个。 SETDNS.AU3 #Region ;**** 参数创建于 ACNWrapper_GUI **** #AutoIt3Wrapper_Icon=ip.ico #AutoIt3Wrapper_Outfile=SETDNS.exe #AutoIt3Wrapper_UseAnsi=y #AutoIt3Wrapper_Res_Comment=DNS修改工具 #AutoIt3Wrapper_Res_Description=DNS修改工具 #AutoIt3Wrapper_Res_Fileversion=1.0.0.2 #AutoIt3Wrapper_Res_LegalCopyright=TVZML作品 #AutoIt3Wrapper_Run_Tidy=y #EndRegion ;**** 参数创建于 ACNWrapper_GUI **** Break(0) $g_Tray = "DNS修改工具" If WinExists($g_Tray) = 1 Then Exit AutoItWinSetTitle("DNS修改工具") $dir = (@ScriptDir & "\DNS.ini") $SectionNames = "配置信息" _setip() Exit Func _setip() ;导入IP配置 If Not FileExists($dir) Then MsgBox(16, "错误", "没有找到配置文件" & @CRLF & $dir, 3) Exit EndIf $colItems = "" $objWMIService = ObjGet("winmgmts:\\.\root\CIMV2") Dim $SetDns[2] $SetDns[0] = IniRead($dir, $SectionNames, "首选DNS", "") $SetDns[1] = IniRead($dir, $SectionNames, "备用DNS", "") TrayTip("", "正在设置DNS,请稍等...", 1) $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 0x10 + 0x20) $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem") If IsObj($colItems) Then For $objNetAdapter In $colItems $objNetAdapter.SetDNSServerSearchOrder($SetDns) Next EndIf Exit EndFunc ;==>_setip 配置文件样式 DNS.ini [配置信息] 首选DNS=220.189.127.106 备用DNS=220.189.127.108

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值