以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]项目启动时如何自动切换本机的ip地址？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73704)
--  作者：winwtj
--  发布时间：2015/8/25 9:27:00
--  [求助]项目启动时如何自动切换本机的ip地址？
两块网卡，一块连内网，一块连外网；数据库在内网，日常办公时在外网，如何在启动项目时判断网络，自动切换内外网？？？
--  作者：大红袍
--  发布时间：2015/8/25 9:31:00
--  
呃，你做个批处理不就好了？参考

 

http://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=monline_4_dg&wd=netsh%20interface%20ip&rsv_pq=ac59eed10001977b&rsv_t=0f08IzA5N8OuzCgBGsWyhvW7zXQADvrK6Rxh3vdxRL8y3dG%2BVsABhHBNRbw%2B%2FeEcJPMr&rsv_enter=1&inputT=1254&rsv_sug1=34&rsv_sug3=29&rsv_sug2=0&rsv_sug4=1639

 

 

netsh interface ip set address name="本地连接" gateway=192.168.1.1 gwmetric=0

netsh interface ip set dns name="本地连接" source=static addr=202.102.102.102 register=primary
--  作者：大红袍
--  发布时间：2015/8/25 9:31:00
--  

直接运行cmd命令参考

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False \'关闭Shell的使用
p.StartInfo.RedirectStandardInput = True \'重定向标准输入
p.StartInfo.RedirectStandardOutput = True \'重定向标准输出
p.StartInfo.RedirectStandardError = True \'重定向错误输出
p.StartInfo.CreateNoWindow = True \'设置不显示窗口
p.Start()
p.StandardInput.WriteLine("arp -a")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strRst)