请问怎么用VB修改WIN7系统IP地址、子网掩码、网关、DNS服务器地址
答案:2 悬赏:0 手机版
解决时间 2021-02-24 08:36
- 提问者网友：城市野鹿
- 2021-02-23 08:31
想用VB作个程序，修改WIN7系统的IP地址、子网掩码、网关、DNS服务器地址
最佳答案
- 五星知识达人网友：何以畏孤独
- 2021-02-23 09:33
CMD下有个命令
netsh
具体就不多说了，看你怎么调用了
脚本给你吧
Dim Wsh
Set Wsh=WScript.CreateObject("WScript.Shell")
set objShell=wscript.createObject("wscript.shell")
set Runexe=createobject("wscript.shell")
objShell.Run("netsh interface ip set address name=本地连接 source=static addr=192.168.10.222 mask=255.255.255.0"),0
objShell.Run("netsh interface ip set address name=本地连接 gateway=192.168.10.254 gwmetric=0"),0
objShell.Run("netsh interface ip set dns name=本地连接 source=static addr=192.168.1.1 register=PRIMARY"),0
Set Wsh=NoThing
wscript.quit
netsh
具体就不多说了，看你怎么调用了
脚本给你吧
Dim Wsh
Set Wsh=WScript.CreateObject("WScript.Shell")
set objShell=wscript.createObject("wscript.shell")
set Runexe=createobject("wscript.shell")
objShell.Run("netsh interface ip set address name=本地连接 source=static addr=192.168.10.222 mask=255.255.255.0"),0
objShell.Run("netsh interface ip set address name=本地连接 gateway=192.168.10.254 gwmetric=0"),0
objShell.Run("netsh interface ip set dns name=本地连接 source=static addr=192.168.1.1 register=PRIMARY"),0
Set Wsh=NoThing
wscript.quit
全部回答
- 1楼网友：琴狂剑也妄
- 2021-02-23 10:37
同问。。。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯