Windows自动更改IP地址脚本程序

女爷i 2022-12-01 14:21 186阅读 0赞

@echo off 
     
    :: BatchGotAdmin 
    :------------------------------------- 
    REM --> Check for permissions 
    >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system" 
     
    REM --> If error flag set, we do not have admin. 
    if '%errorlevel%' NEQ '0' ( 
     goto UACPrompt 
    ) else ( goto gotAdmin ) 
     
    :UACPrompt 
     echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs" 
     echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs" 
     
     "%temp%\getadmin.vbs" 
     exit /B 
     
    :gotAdmin 
     if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" ) 
     pushd "%CD%" 
     CD /D "%~dp0" 
    :-------------------------------------- 
    
    echo 设置自动ip请按1
    
    echo 设置固定ip请按2
    
    echo 请选择,或按q退出
    
    set /p shu= 
    
    
    if "%shu%"=="1" cls&goto ONE
    if "%shu%"=="2" cls&goto TWO
    if "%shu%"=="q" exit
    
    :TWO
    echo 正在设置您的固定IP地址请稍等……
    
    netsh interface ip set address name="以太网" source=static addr=222.27.184.29 mask=255.255.255.128 gateway=222.27.184.62 gwmetric=1
    
    echo 正在设置您的DNS，请稍等……
    
    netsh interface ip set dns name="以太网" source=static addr=210.46.112.8 register=PRIMARY validate=no
    
    netsh interface ip add dns name="以太网" addr=202.97.224.68 validate=no
    
    netsh interface ip set wins name="以太网" source=static addr=none 
    
    set /p wait= 设置成功，按任意键退出
    
    exit
    
    :ONE
    echo 正在设置自动获得IP地址，请稍等……
    
    netsh interface ip set address name="以太网" source=dhcp
    
    netsh interface ip set dns name="以太网" source=dhcp 
    
    set /p wait= 设置成功，按任意键退出
    
    exit