WIN7經過BAT腳本設置IP、DNS、WINS

本文經過BAT腳本，實如今WIN7上設置IP等網絡信息，如下是示例：

如下是腳本：

@ echo off
%1 %2
ver|find "5.">nul&&goto :st
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :st","","runas",1)(window.close)&goto :eof

:st

echo/
title 修改本機IP地址
color 1f
echo *****************************************************************
echo *                                                               *
echo *                    修改本機網卡IP地址                         *
echo *                        1.靜態地址                             *
echo *                        2.自動獲取                             *
echo *****************************************************************
:begin
set /p n=請輸入要設置的網卡類型（1或2）：
if "%n%" lss "1" echo 您輸入的網卡不存在！請從新輸入！！！
if "%n%" gtr "2" echo 您輸入的網卡不存在！請從新輸入！！！
echo/
if "%n%" lss "1" goto begin
if "%n%" gtr "2" goto begin 
if "%n%" equ "1" goto x1
if "%n%" equ "2" goto x2

:x1
echo 您選擇的是:%n%.以太網
:begin1
set /p a=  請輸入靜態IP地址（如 192.168.1.2）：
if "%a%" equ "" goto begin1
:begin2
set /p b=  請輸入子網掩碼（如 255.255.255.0）：
if "%b%" equ "" goto begin2
:begin3
set /p c=  請輸入網關地址（如 192.168.1.1）：
if "%c%" equ "" goto begin3
:begin4
set /p d=  請輸入DNS地址1（如 114.114.114.114）：
if "%d%" equ "" goto begin4
:begin5
set /p e=  請輸入DNS地址2（如 211.138.156.66）：
if "%e%" equ "" goto begin5
:begin6
set /p f=  請輸入WINS地址（如 8.8.8.8）：
if "%f%" equ "" goto begin6
netsh interface ip set address "本地鏈接" static %a% %b% %c%
netsh interface ip set dns "本地鏈接" static %d% primary>nul
netsh interface ip add dns "本地鏈接" %e%>nul
netsh interface ip set wins "本地鏈接" static %f%>nul
echo  靜態地址設置成功!!!
ping -n 5 127.0.0.1>nul
goto:eof

:x2
echo 選擇的是:%n%.自動獲取
echo *******************************************************
echo *        IP即將初始化爲自動獲取狀態……                 *
netsh interface ip set address "本地鏈接" dhcp>nul
netsh interface ip set dns "本地鏈接" dhcp>nul
echo *******************************************************
echo DHCP設置成功!!!
ping -n 5 127.0.0.1>nul
goto:eof

pause