请问WinXP下在DOS命令行中控制网卡启用或停用？ - 中国DOS联盟论坛

rem 适用于Win2003
rem 把Win2003的ifmon.dll拷贝到WinXP以后WinXP也可以用
rem 禁用本地连接
netsh interface set interface name="本地连接" admin=DISABLED
rem 启用本地连接
netsh interface set interface name="本地连接" admin=ENABLED

@echo off
rem 用批处理调用devcon.exe来实现
echo 请输入你的选择：（禁用网卡为N,启用为Y）
set/p SELECT= 
if /i %SELECT%==Y set SELECT=ENABLE&GOTO :DO
if /i %SELECT%==N set SELECT=DISABLE
:DO
for /f "tokens=2 delims=&" %%i in ('devcon find pci\* ^| findstr "Fast Ethernet"') do devcon %SELECT% *%%i*>NUL

devcon.exe
http://upload.cn-dos.net/img/496.zip

'XP下可以用VBS来实现

Const ssfCONTROLS = 3  
sConnectionName = "本地连接"  '可改成需要控制的连接名称，如"无线网络连接"等  
sEnableVerb = "启用(&A)"  
sDisableVerb = "停用(&B)"    非xp 系统可能 是禁用
set shellApp = createobject("shell.application")  
set oControlPanel = shellApp.Namespace(ssfCONTROLS)  
set oNetConnections = nothing  
for each folderitem in oControlPanel.items  
 if folderitem.name  = "网络连接" then  
   set oNetConnections = folderitem.getfolder: exit for  
 end if  
next  
if oNetConnections is nothing then  
 msgbox "未找到网络连接文件夹"  
 wscript.quit  
end if  
set oLanConnection = nothing  
for each folderitem in oNetConnections.items  
 if lcase(folderitem.name)  = lcase(sConnectionName) then  
   set oLanConnection = folderitem: exit for  
 end if  
next  
if oLanConnection is nothing then  
 msgbox "未找到 '" & sConnectionName & "' item"  
 wscript.quit  
end if  
bEnabled = true  
set oEnableVerb = nothing  
set oDisableVerb = nothing  
s = "Verbs: " & vbcrlf  
for each verb in oLanConnection.verbs  
 s = s & vbcrlf & verb.name  
 if verb.name = sEnableVerb then   
   set oEnableVerb = verb    
   bEnabled = false  
 end if  
 if verb.name = sDisableVerb then   
   set oDisableVerb = verb    
 end if  
next  
'debugging displays left just in case...  
'  
'msgbox s ': wscript.quit  
'msgbox "Enabled: " & bEnabled ': wscript.quit  
'not sure why, but invokeverb always seemed to work   
'for enable but not disable.    
'  
'saving a reference to the appropriate verb object   
'and calling the DoIt method always seems to work.  
'  
if bEnabled then  
'  oLanConnection.invokeverb sDisableVerb  
 oDisableVerb.DoIt  
else  
'  oLanConnection.invokeverb sEnableVerb  
 oEnableVerb.DoIt  
end if  
'adjust the sleep duration below as needed...  
'  
'if you let the oLanConnection go out of scope  
'and be destroyed too soon, the action of the verb  
'may not take...  
'  
wscript.sleep 400

第1楼　cedarprince	发表于 2008-07-05 12:45
新手上路　发帖 3　积分 10
请问WinXP下在DOS命令行中控制网卡启用或停用？ netsh interface set interface 这个命令在WinXP 中无法启用或停用网卡？？

第2楼　HAT	发表于 2008-07-05 13:12
版主　发帖 5,017　积分 9,023
最近流行重复发帖？

第3楼　HAT	发表于 2008-07-05 13:17
版主　发帖 5,017　积分 9,023
rem 适用于Win2003 rem 把Win2003的ifmon.dll拷贝到WinXP以后WinXP也可以用 rem 禁用本地连接 netsh interface set interface name="本地连接" admin=DISABLED rem 启用本地连接 netsh interface set interface name="本地连接" admin=ENABLED @echo off rem 用批处理调用devcon.exe来实现 echo 请输入你的选择：（禁用网卡为N,启用为Y） set/p SELECT= if /i %SELECT%==Y set SELECT=ENABLE&GOTO :DO if /i %SELECT%==N set SELECT=DISABLE :DO for /f "tokens=2 delims=&" %%i in ('devcon find pci\* ^\| findstr "Fast Ethernet"') do devcon %SELECT% %%i>NUL devcon.exe http://upload.cn-dos.net/img/496.zip 'XP下可以用VBS来实现 Const ssfCONTROLS = 3 sConnectionName = "本地连接" '可改成需要控制的连接名称，如"无线网络连接"等 sEnableVerb = "启用(&A)" sDisableVerb = "停用(&B)" 非xp 系统可能是禁用 set shellApp = createobject("shell.application") set oControlPanel = shellApp.Namespace(ssfCONTROLS) set oNetConnections = nothing for each folderitem in oControlPanel.items if folderitem.name = "网络连接" then set oNetConnections = folderitem.getfolder: exit for end if next if oNetConnections is nothing then msgbox "未找到网络连接文件夹" wscript.quit end if set oLanConnection = nothing for each folderitem in oNetConnections.items if lcase(folderitem.name) = lcase(sConnectionName) then set oLanConnection = folderitem: exit for end if next if oLanConnection is nothing then msgbox "未找到 '" & sConnectionName & "' item" wscript.quit end if bEnabled = true set oEnableVerb = nothing set oDisableVerb = nothing s = "Verbs: " & vbcrlf for each verb in oLanConnection.verbs s = s & vbcrlf & verb.name if verb.name = sEnableVerb then set oEnableVerb = verb bEnabled = false end if if verb.name = sDisableVerb then set oDisableVerb = verb end if next 'debugging displays left just in case... ' 'msgbox s ': wscript.quit 'msgbox "Enabled: " & bEnabled ': wscript.quit 'not sure why, but invokeverb always seemed to work 'for enable but not disable. ' 'saving a reference to the appropriate verb object 'and calling the DoIt method always seems to work. ' if bEnabled then ' oLanConnection.invokeverb sDisableVerb oDisableVerb.DoIt else ' oLanConnection.invokeverb sEnableVerb oEnableVerb.DoIt end if 'adjust the sleep duration below as needed... ' 'if you let the oLanConnection go out of scope 'and be destroyed too soon, the action of the verb 'may not take... ' wscript.sleep 400

第4楼　cedarprince	发表于 2008-07-05 16:26
新手上路　发帖 3　积分 10
谢谢首先谢谢声明：重发帖不是故意的是网络问题回复：第一种方法 ifmon.dll覆盖我试过是不行不知有什么窍门没第二种方法用工具。我试过行但我在应用中不能用工具第三种方法用VBS。我在应用中不能用结论：是不是WINxp的DOS命令行环境中不能实现网卡的启用或停用

第5楼　HAT	发表于 2008-07-05 21:01
版主　发帖 5,017　积分 9,023
我想你的结论是正确的

第6楼　cedarprince	发表于 2008-07-05 21:26
新手上路　发帖 3　积分 10
第一种方法 ifmon.dll覆盖？？能确定可用吗？？