查看完整版本: bat如何控制网卡启用停用

bat如何控制网卡启用停用

控制网卡启用停用的bat怎么写啊？
3`Et0kG}8NL:`5uL/U D
c'r+e'A8m A)CP 只知道 set interface [name = ] IfName
0C-MfW#v:a         [ [admin = ] ENABLED|DISABLED
`{hn8XG]pb           [connect = ] CONNECTED|DISCONNECTED
%XV,kJ)|G.fs_           [newname = ] NewName ]
Y]JTDJW9bC^
3R~lO.^Ifr
{ Jz 可惜死活不成功，还请各位大虾帮忙。

[code]netsh interface set interface name="Local Area Connection" admin=DISABLED[/code]rem 把结尾的"DISABLED"改为"ENABLED"为开启指定的网卡。
yVo\@b1C3T|:v rem 只适用于Win2003，XP下可以用VBS来实现。,o*W$y n+cX
3~re4JP
===============改用vbs,复制如下内容另存为xxx.vbs======================[code]Const ssfCONTROLS = 3  dMQ!B8z]:]9d
sConnectionName = "本地连接"  '可改成需要控制的连接名称，如"无线网络连接"等  
oSV2f)\X D sEnableVerb = "启用(&A)"  $xO:{&\@xoz0Z;Z;Z
sDisableVerb = "停用(&B)"    非xp 系统可能 是禁用D.cR0T3o3}e(|
set shellApp = createobject("shell.application")  0l1Z,v/{m+@&E1{T#W
set oControlPanel = shellApp.Namespace(ssfCONTROLS)  
X4sCj-Mz5B+[&SVX set oNetConnections = nothing  .?%j+F5@0p/a%Jl5x
for each folderitem in oControlPanel.items  Q/jyj-E1_
if folderitem.name  = "网络连接" then  #Mq)M(`{ ]*U
   set oNetConnections = folderitem.getfolder: exit for  
e3Y^+cPC L%U9Y end if  8j9~u"j k%x,w&E7Y D
next  4y.m;Y5k)TT&f6k
if oNetConnections is nothing then  u^O8J|
msgbox "未找到网络连接文件夹"  
&^e4Rnf|6Dl;n wscript.quit  si%O)u0H,{?F
end if  
t%`0g~!j y set oLanConnection = nothing   Y#JD#{fei*f}
for each folderitem in oNetConnections.items  
w o:T#zYE5l:R if lcase(folderitem.name)  = lcase(sConnectionName) then  @'\ Q3T g _,y?4[
   set oLanConnection = folderitem: exit for  j;I_JG cpN
end if  

gg?,] ^*k-r next  /L@Qq;kY8K(m}_tQ
if oLanConnection is nothing then  
Lw[cM~4x] msgbox "未找到 '" & sConnectionName & "' item"  
j7~T3w A9}!r wscript.quit  4UVZ&d(XSs&y
end if  $~)j:bxC
A+[kx~j P)e
bEnabled = true   d[L%B/S-O/r/T],t
set oEnableVerb = nothing  5O_T8`7zHJ:g
set oDisableVerb = nothing  
-z^,k"jMmE+RQc s = "Verbs: " & vbcrlf  1c|h&e)O|,{1v}
for each verb in oLanConnection.verbs  ]&T?,`F
G D
s = s & vbcrlf & verb.name  
)XyuBb)`m if verb.name = sEnableVerb then   
4yuG&S0H%Z n[aA    set oEnableVerb = verb    /M
s
[Tttk U'ov
   bEnabled = false  
Pr3qIR end if  
(r4v[Fw;W if verb.name = sDisableVerb then   
F+h8}0Y}G    set oDisableVerb = verb    xusB'B;Q_?-t:O
end if  %B7@5tT(c/k|4SC qo
next  
N9U.lp{-~8WFr8QF 'debugging displays left just in case...  
"O.@+N"O@G{ '  A?7?G3Z
'msgbox s ': wscript.quit  \%_;Z:o!c"e
'msgbox "Enabled: " & bEnabled ': wscript.quit  
3`sD#[3Nr'_ 'not sure why, but invokeverb always seemed to work   
esgE!^
x0UT!d 'for enable but not disable.    eC0l9Sei$c-f/u
'  9w+p'T$[;pF
i]
'saving a reference to the appropriate verb object   
4D'V%eKE4t 'and calling the DoIt method always seems to work.  
~zt Mv#Z '  $X'UNl R0l0jl/j
if bEnabled then  8MC4r@$t @
'  oLanConnection.invokeverb sDisableVerb  
6TR"Kq1z8D.~
cC oDisableVerb.DoIt  
Stmj0t#s+|d8iB else  
(z/}kpjcU '  oLanConnection.invokeverb sEnableVerb  
n`;q!_5GhWwD oEnableVerb.DoIt  zai"KE$g;j
end if  
4y7cQ!A*~2pZ 'adjust the sleep duration below as needed...  4fdmo1@K
'  "EJwg)|$Z
'if you let the oLanConnection go out of scope  
%w5Tx9pw,qC9B'b
BzO 'and be destroyed too soon, the action of the verb  
.Q'q"v*QBL 'may not take...  h:^9n9@A
'  
/z$}c_z wscript.sleep 400 [/code]

好厉害啊。 我看看。