1. 程式人生 > >win7禁用啟用本地連接bat及vbs

win7禁用啟用本地連接bat及vbs

操作 script windows .exe off windows 7 reat 選擇 gpo

平臺:Windows 7 、8.1

目的:用bat啟用禁用網卡

操作:

cls
@ECHO OFF
title 啟用或禁用本地連接
CLS
color 0a
GOTO MENU
:MENU
ECHO.
ECHO. ==============啟用禁用本地連接==============
ECHO.
ECHO. 1 禁用本地連接a
ECHO. 2 啟用本地連接b
ECHO. 3 退 出
ECHO. ==========================================
ECHO.
ECHO.
echo. 請輸入選擇項目的序號:
set /p ID=
if "%id%"=="1" goto qiyong
if "%id%"=="2" goto jinyong
if "%id%"=="3" exit
PAUSE
:qiyong
echo 禁用本地連接a
netsh interface set interface name="本地連接" admin=DISABLED
goto MENU
:jinyong
echo 啟用本地連接b
netsh interface set interface name="本地連接" admin=ENABLED
GOTO MENU

用VBS也可以

‘Code By Coo_boi
‘Cmd operates the Net-Connections
Dim owSh,Operations
cmd="cmd.exe /c netsh interface set interface name=" & Chr(34) & "本地連接" & Chr(34) & " admin="
Operations=InputBox("1.禁用" & vbNewLine & "2.啟用","本地連接")
If Operations="" Then WScript.Quit
Set owSh=CreateObject("Wscript.Shell")
If Operations="1" Then
Operations="DISABLE"
ElseIf Operations="2" Then
Operations="ENABLE"
End If
cmd=cmd & Operations
owSh.Run cmd,True
Set owSh=Nothing

win7禁用啟用本地連接bat及vbs