主頁 > 知識庫 > 批處理、VBS實現(xiàn)自動設(shè)置IP、默認(rèn)網(wǎng)關(guān)、DNS、WINS、IE代理(全)

批處理、VBS實現(xiàn)自動設(shè)置IP、默認(rèn)網(wǎng)關(guān)、DNS、WINS、IE代理(全)

熱門標(biāo)簽:江蘇辦理400電話是免費的嗎 沙依巴克工廠地圖標(biāo)注 南京機(jī)器人外呼系統(tǒng)多少錢 福建防封電銷卡辦理套餐 江蘇手機(jī)外呼系統(tǒng)供應(yīng)商 地圖標(biāo)注顯示小區(qū) 滄州外呼增值業(yè)務(wù)線路解決方案 征服者博物館地圖標(biāo)注點 紹興400電話怎么辦理

因為公司有同事負(fù)責(zé)大連、沈陽兩個城市,經(jīng)常在兩地來回走動,到每個城市后,都要自己手動更改相應(yīng)的網(wǎng)絡(luò)配置,況且到外地時住的是酒店, 酒店上網(wǎng)是自動獲得IP,又要將網(wǎng)絡(luò)設(shè)置取消,真的很麻煩!于是想起寫一個批處理!來解決這個問題!主要用到的命令是netsh.
-、第一種方法是將兩地的網(wǎng)絡(luò)配置先進(jìn)行本機(jī)設(shè)置,然后再導(dǎo)出,等用到的時候,再分別導(dǎo)入。
1、將現(xiàn)有的配置導(dǎo)出到d:\dalian.txt中:
netsh –c interface dump > d:\dalian.txt

2、將之前導(dǎo)出的d:\dalian.txt文件進(jìn)行導(dǎo)入:
netsh -f d:\dalian.txt
這種方法在執(zhí)行時有點慢,不如下面的方法。

二、第二種方法
語法格式:
1、設(shè)置IP、網(wǎng)關(guān)
netsh interface ip set address name="本地連接" static 要設(shè)置的IP地址 子網(wǎng)掩碼 網(wǎng)關(guān)IP 網(wǎng)關(guān)躍數(shù)

2、設(shè)置主DNS、WINS
netsh interface ip set dns/wins name="本地連接" static 要設(shè)置的DNS地址 register=PRIMARY

2、設(shè)置備用DNS、WINS
netsh interface ip add dns/wins name="本地連接" 要設(shè)置的DNS地址 index=2

具體配置如下:
1、酒店.bat

復(fù)制代碼 代碼如下:

@echo off
echo 取消指定網(wǎng)絡(luò)配置,請稍等….
echo.
echo 正在設(shè)置自動獲取IP地址,請稍等……
netsh interface ip set address name="本地連接" source=dhcp
echo 正在設(shè)置自動獲取DNS,請稍等……
netsh interface ip set dns name="本地連接" source=dhcp
echo 設(shè)置完成!


2、大連.bat
復(fù)制代碼 代碼如下:

@echo off
echo 開始設(shè)置大連網(wǎng)絡(luò)地址!
echo 正在設(shè)置大連IP ,請稍等……
netsh interface ip set address name="本地連接" source=static addr=10.15.100.86 mask=255.255.0.0
echo 正在設(shè)置大連網(wǎng)關(guān),請稍等……
netsh interface ip set address name="本地連接" gateway=10.15.0.253 gwmetric=1
echo 正在設(shè)置大連主DNS ,請稍等……
netsh interface ip set dns name="本地連接" source=static addr=10.15.0.1 register=PRIMARY
echo 正在設(shè)置大連備用DNS ,請稍等……
netsh interface ip add dns name="本地連接" addr=10.100.1.2 index=2
echo 正在設(shè)置大連主WINS ,請稍等……
netsh interface ip set wins name="本地連接" source=static addr=10.15.0.1
echo 正在設(shè)置大連備用WINS ,請稍等……
netsh interface ip add wins name="本地連接" addr=10.100.1.2 index=2
echo 設(shè)置完成!


3、沈陽.bat
復(fù)制代碼 代碼如下:

@echo off
echo 開始設(shè)置沈陽網(wǎng)絡(luò)地址!
echo 正在設(shè)置沈陽IP ,請稍等……
netsh interface ip set address name="本地連接" source=static addr=10.16.100.86 mask=255.255.0.0
echo 正在設(shè)置沈陽網(wǎng)關(guān),請稍等……
netsh interface ip set address name="本地連接" gateway=10.16.0.253 gwmetric=1
echo 正在設(shè)置沈陽主DNS ,請稍等……
netsh interface ip set dns name="本地連接" source=static addr=10.16.0.1 register=PRIMARY
echo 正在設(shè)置沈陽備用DNS ,請稍等……
netsh interface ip add dns name="本地連接" addr=10.100.1.2 index=2
echo 正在設(shè)置沈陽主WINS ,請稍等……
netsh interface ip set wins name="本地連接" source=static addr=10.16.0.1
echo 正在設(shè)置沈陽備用WINS ,請稍等……
netsh interface ip add wins name="本地連接" addr=10.100.1.2 index=2
echo 設(shè)置完成!

至此第二種方法完成!

三、也可以在批處理中使用變量!例如大連.BAT可以按照如下方法寫:
復(fù)制代碼 代碼如下:

@ echo off
rem 設(shè)置變量
set Nic=本地連接
rem //可以根據(jù)你的需要更改,
set Addr=10.15.100.86
set Mask=255.255.0.0
set Gway=10.15.0.253
set Dns1=10.15.0.1
set Dns2=10.100.1.2
set Wins1=10.15.0.1
set Wins2=10.100.1.2
rem //以上依次為IP地址、子網(wǎng)掩碼、網(wǎng)關(guān)、首選DNS、備用DNS、首選WINS、備用WINS
echo ------------------------------------------------------
echo 正在進(jìn)行大連IP設(shè)置,請稍等
rem //可以根據(jù)你的需要更改
echo. IP地址 = %Addr%
echo. 子網(wǎng)掩碼 = %Mask%
netsh interface ip set address name=%Nic% source=static addr=%Addr% mask=%Mask% gt;nul
echo. 網(wǎng)關(guān) = %Gway%
netsh interface ip set address name=%Nic% gateway=%Gway% gwmetric=1 gt;nul
echo. 首選DNS = %Dns1%
netsh interface ip set dns name=%Nic% source=static addr=%Dns1% register=PRIMARY gt;nul
echo. 備用DNS = %Dns2%
netsh interface ip add dns name=%Nic% addr=%Dns2% index=2 gt;nul
echo. 首選WINS = %Wins1%
netsh interface ip set wins name=%Nic% source=static addr=%Wins1% register=PRIMARY gt;nul
echo. 備用WINS = %Wins2%
netsh interface ip add wins name=%Nic% addr=%Wins2% index=2 gt;nul
echo ------------------------------------------------------
echo IP設(shè)置完成!


依個人習(xí)慣采用適合自己的方法。
四、自動設(shè)置IE代理
大連IE代理.bat
復(fù)制代碼 代碼如下:

@echo off
title 自動設(shè)置代理服務(wù)器
echo 自動設(shè)置代理服務(wù)器
rem echo 正在清空代理服務(wù)器設(shè)置……
rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0 /f
rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "" /f
rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d 0 /f
rem echo 代理服務(wù)器設(shè)置已經(jīng)清空
echo 正在設(shè)置代理服務(wù)器……
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "10.15.0.2:3128" /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d "10.*.*.*;192.168.*.*;local>" /f

沈陽的一樣設(shè)置即可。
或者用下面的方法:
復(fù)制代碼 代碼如下:

cls
color 1f
@echo 清空代理設(shè)置
@echo Windows Registry Editor Version 5.00gt;gt;1.reg
@echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
@echo "ProxyEnable"=dword:00000000gt;gt;1.reg
@echo "ProxyServer"=""gt;gt;1.reg
@echo "ProxyOverride"=""gt;gt;1.reg
regedit /s 1.reg
del 1.reg
@echo 設(shè)置代理
@echo Windows Registry Editor Version 5.00gt;gt;1.reg
@echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
@echo "ProxyEnable"=dword:00000001gt;gt;1.reg
@echo "ProxyServer"="10.15.0.2:8080"gt;gt;1.reg
@echo "ProxyOverride"="10.*.*.*;192.168.*.*;local>"gt;gt;1.reg
regedit /s 1.reg
del 1.reg

五、以上配合結(jié)合,放在一個文件里,可以這樣寫:
網(wǎng)絡(luò)綜合配置.bat
復(fù)制代碼 代碼如下:

@echo off
color 1f
title "網(wǎng)卡IE代理設(shè)置批處理"
echo 實現(xiàn)功能包括切換大連和沈陽網(wǎng)絡(luò)配置,設(shè)置IE代理.
goto 51job
:51job
echo.
echo 請選擇: 1:大連,2:沈陽,3:ADSL
set /p choice=請輸入相應(yīng)數(shù)字后回車:
if /i "%choice%" == "1" goto dlnet
if /i "%choice%" == "2" goto synet
if /i "%choice%" == "3" goto adsl
goto 51job
:adsl
cls
color 1f
netsh interface ip set address name="本地連接" source=dhcp
netsh interface ip set dns name="本地連接" source=dhcp
cls
goto noproxy
:noproxy
@echo Windows Registry Editor Version 5.00gt;gt;1.reg
@echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
@echo "ProxyEnable"=dword:00000000gt;gt;1.reg
@echo "ProxyServer"=""gt;gt;1.reg
@echo "ProxyOverride"=""gt;gt;1.reg
regedit /s 1.reg
del 1.reg
goto exit
:dlnet
cls
color 1f
echo.
set /p choice=輸入" N "后回車跳過網(wǎng)卡設(shè)置, 直接回車?yán)^續(xù)網(wǎng)卡設(shè)置:
if /i "%choice%" == "N" goto proxy
cls
echo 開始設(shè)置大連網(wǎng)絡(luò)地址!
echo 正在設(shè)置大連IP ,請稍等……
netsh interface ip set address name="本地連接" source=static addr=10.15.100.86 mask=255.255.0.0
echo 正在設(shè)置大連網(wǎng)關(guān),請稍等……
netsh interface ip set address name="本地連接" gateway=10.15.0.253 gwmetric=1
echo 正在設(shè)置大連主DNS ,請稍等……
netsh interface ip set dns name="本地連接" source=static addr=10.15.0.1 register=PRIMARY
echo 正在設(shè)置大連備用DNS ,請稍等……
netsh interface ip add dns name="本地連接" addr=10.100.1.2 index=2
echo 正在設(shè)置大連主WINS ,請稍等……
netsh interface ip set wins name="本地連接" source=static addr=10.15.0.1
echo 正在設(shè)置大連備用WINS ,請稍等……
netsh interface ip add wins name="本地連接" addr=10.100.1.2 index=2
echo 設(shè)置完成!
echo 正在刷新設(shè)置……
ipconfig /flushdns
echo 顯示新的設(shè)置:
ipconfig /all
goto dlproxy
:dlproxy
cls
color 1f
@echo Windows Registry Editor Version 5.00gt;gt;1.reg
@echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
@echo "ProxyEnable"=dword:00000001gt;gt;1.reg
@echo "ProxyServer"="10.15.0.2:8080"gt;gt;1.reg
@echo "ProxyOverride"="10.*.*.*;192.168.*.*;local>"gt;gt;1.reg
regedit /s 1.reg
del 1.reg
echo 正在關(guān)閉瀏覽器:
taskkill /f /t /im IEXPLORE.exe
echo 正在開啟瀏覽器
"C:\Program Files\Internet Explorer\IEXPLORE.EXE"
goto exit
:synet
cls
color 1f
echo.
set /p choice=輸入" N "后回車跳過網(wǎng)卡設(shè)置, 直接回車?yán)^續(xù)網(wǎng)卡設(shè)置:
if /i "%choice%" == "N" goto proxy
cls
echo 開始設(shè)置沈陽網(wǎng)絡(luò)地址!
echo 正在設(shè)置沈陽IP ,請稍等……
netsh interface ip set address name="本地連接" source=static addr=10.16.100.86 mask=255.255.0.0
echo 正在設(shè)置沈陽網(wǎng)關(guān),請稍等……
netsh interface ip set address name="本地連接" gateway=10.16.0.253 gwmetric=1
echo 正在設(shè)置沈陽主DNS ,請稍等……
netsh interface ip set dns name="本地連接" source=static addr=10.16.0.1 register=PRIMARY
echo 正在設(shè)置沈陽備用DNS ,請稍等……
netsh interface ip add dns name="本地連接" addr=10.100.1.2 index=2
echo 正在設(shè)置沈陽主WINS ,請稍等……
netsh interface ip set wins name="本地連接" source=static addr=10.16.0.1
echo 正在設(shè)置沈陽備用WINS ,請稍等……
netsh interface ip add wins name="本地連接" addr=10.100.1.2 index=2
echo 設(shè)置完成!
goto syproxy
:syproxy
cls
color 1f
@echo Windows Registry Editor Version 5.00gt;gt;1.reg
@echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
@echo "ProxyEnable"=dword:00000001gt;gt;1.reg
@echo "ProxyServer"="10.16.0.2:8080"gt;gt;1.reg
@echo "ProxyOverride"="10.*.*.*;192.168.*.*;local>"gt;gt;1.reg
regedit /s 1.reg
del 1.reg
echo 正在關(guān)閉瀏覽器:
taskkill /f /t /im IEXPLORE.exe
echo 正在開啟瀏覽器
"C:\Program Files\Internet Explorer\IEXPLORE.EXE"
goto exit
:exit
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo 已完成所有設(shè)置.
echo.
echo
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
pause
exit

用這種方法就不用建立多個批處理文件,用一個文件做多件事,何樂而不為呢!
六、最后介紹一下如何使用VBS腳本來實現(xiàn)
大連網(wǎng)絡(luò)配置.vbs
復(fù)制代碼 代碼如下:

on error resume next
strIPAddress = array("10.15.100.86")
strSubnetMask = array("255.255.0.0")
strGateway = array("10.15.0.253")
strGatewayMetric = array("1")
strwinsOne = "10.15.0.1"
strwinsTwo = "10.100.1.2"
strdnsOne = "10.15.0.1"
strdnsTwo = "10.100.1.2"
strComputer = "."
Set objShell = CreateObject("Wscript.shell")
Set objWMIService = GetObject("winmgmts:" _
"{impersonationLevel=impersonate}!\\" strComputer "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
wscript.echo "正在進(jìn)行大連網(wǎng)絡(luò)配置"
For Each objNetCard in colNetCards
errEnable = objNetCard.EnableStatic(strIPAddress,strSubnetMask)
errGateways = objNetCard.SetGateways(strGateway,strGatewayMetric)
arrDNSServers = Array(strdnsone, strdnstwo)
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
SetWins = objNetCard.SetWINSServer(strwinsOne,strwinsTwo)
Next
wscript.echo "大連網(wǎng)絡(luò)配置完成!"

IE代理配置.vbs
復(fù)制代碼 代碼如下:

strMachines = "10.15.0.2:3128;10.16.0.2:3128"
aMachines = split(strMachines, ";")
For Each machine2 in aMachines
machinearr = split(machine2, ":")
machine = machinearr(0)
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
machine "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode>0 Then
WScript.Echo(machine2 " is not reachable")
else
WScript.Echo(machine2 " is OK")
if confirm("設(shè)置代理為" machine2 "?") then
msgbox SetIEProxy(1,machine2)
end if
End If
Next
Next
function confirm(s)
confirm = (msgbox(s,vbYesNo,s) = 6)
end function
Function SetIEProxy(ProxyEnable,ProxyIP)
On Error Resume Next
Const HKEY_CURRENT_USER = H80000001
strComputer = "."
Set objReg = GetObject("winmgmts:" _
"{impersonationLevel=impersonate}\\" strComputer _
"\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
strEntryName = "ProxyEnable"
dwvalue = ProxyEnable
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
strEntryName = "ProxyServer"
dwvalue = ProxyIP
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
strEntryName = "ProxyOverride"
dwvalue = "10.*.*.*;192.168.*.*;local>"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
If Err = 0 Then
SetIEProxy = True
Else
SetIEProxy = False
End If
End Function
msgbox "ok"

至此所有的方法已經(jīng)向大家介紹了一遍,不管是BAT還是VBS,都可以實現(xiàn)我們想要的功能??偟膩碚f,還是根據(jù)自己的特定要求來選擇!再執(zhí)行命令時,要注意權(quán)限的問題!

您可能感興趣的文章:
  • 批處理經(jīng)典入門教程!(從不懂到高手)
  • windows批處理命令教程
  • bat批處理 if 命令示例詳解
  • 批處理 Set 命令詳解 讓你理解set命令
  • BAT批處理中的字符串處理詳解(字符串截取)
  • 批處理命令Start的使用介紹
  • 批處理bat設(shè)置固定IP地址和自動IP地址
  • Windows下用命令行修改IP地址的方法詳解(附批處理文件)
  • 批處理獲取網(wǎng)卡名稱的代碼(附修改IP、網(wǎng)關(guān)、DNS腳本)
  • 獲取外網(wǎng)IP地址的批處理代碼
  • IP地址自動設(shè)置的批處理代碼分享

標(biāo)簽:香港 烏魯木齊 巴中 陽泉 湘西 小程序 宜賓 吳忠

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《批處理、VBS實現(xiàn)自動設(shè)置IP、默認(rèn)網(wǎng)關(guān)、DNS、WINS、IE代理(全)》,本文關(guān)鍵詞  批處理,VBS,實現(xiàn),自動,設(shè)置,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《批處理、VBS實現(xiàn)自動設(shè)置IP、默認(rèn)網(wǎng)關(guān)、DNS、WINS、IE代理(全)》相關(guān)的同類信息!
  • 本頁收集關(guān)于批處理、VBS實現(xiàn)自動設(shè)置IP、默認(rèn)網(wǎng)關(guān)、DNS、WINS、IE代理(全)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章