使用命令禁用/启用单一网卡和中止/重拔拔号连接问题 - 中国DOS联盟论坛

在网上找了若干资料，本论坛里面的合集也看遍了，有一个类似的问题，但在我的机器上没能运行成功，由于本人对编程一窍不通，故请求帮助。

XP下双网卡，一块8139（名称：本地连接），另一块集成PRO/100（名称：本地连接2）。8139接猫做PPPoe拔号上网（名称：宽带），PRO/100接局域网。
机器做代理服务器连着几台局域网内的电脑。

请高手帮忙：
1、用命令方式禁用/启用8139；
2、用命令方式中止/重拔拔号连接；
3、用命令方式禁用8139＆中止拔号连接/启用8139＆进行拔号连接。

谢谢谢谢，如果我还没表述清楚的话，请提问，恳求高手出手相助，这个命令对我相当有用！！！

[ Last edited by zh9158040 on 2007-8-22 at 03:27 PM ]

?????没人出手相助么、？？

@echo off & cd\&cls & color 1f

echo 现在是断开！！！！

netsh interface set interface name ="本地连接" ADMIN=DISABLED

ping -n 5 127.0.0.1 >nul

cls
echo 现在是启用!!!

netsh interface set interface name="本地连接" ADMIN=enabled

3楼的好像没用哈

我用的是2003的系统，在XP下可能与差别！！

谢谢三楼的大大，8过，非常不幸的是，这个命令俺的机器上行不通。
麻烦那位GGJJ，给出个在XP下试验通过的好不？
真的很感激！！！

PS：最好把创建文件的方法写上，我真是一窍不通的啊！！5555~~~~~~~

禁用/启用本地连接的VBS


Const ssfCONTROLS = 3  
sConnectionName = "本地连接"  '可改成需要控制的连接名称，如"无线网络连接"等  
sEnableVerb = "启用(&A)"  
sDisableVerb = "停用(&B)"   'XP系统中应为 "停用(&B)"  
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

ADSL 拨号


@echo off
color 0a
rem 设置链接名称，ADSL帐号，ADSL密码
set MyConnection=ADSL
set MyUsername=C225
set MyPassword=C225
echo 正在ADSL连接：%MyConnection% ...
Rasdial %MyConnection% %MyUsername% %MyPassword%
echo 已经连接：%MyConnection%

回禀7楼和8楼的大大：
　　我把命令复制到一个文本文档里，另存为.BAT的文件（对不？？），放在桌面上。
　　7楼大大的命令执行后一个窗口一闪而过看不清任何东东，执行N次，本地连接始终没有任何变化。
　　8楼大大的命令执行后在窗口也是一闪而过，不过第一行是绿字，内容看不不清楚，不论ADSL是否连接，也是没有变化。
　　
　　555555555555555，咋回事呢？？？？

顶上去，请高手帮助。

你先要学会使用搜索功能，仔细找一下会有收获的。

Originally posted by zh9158040 at 2007-8-20 09:47 AM:
回禀7楼和8楼的大大：
　　我把命令复制到一个文本文档里，另存为.BAT的文件（对不？？），放在桌面上。
　　7楼大大的命令执行后一个窗口一闪 ...

保存为vbs

我用得七楼qq43142691大大提供的P处理，重装系统前一直用得好好的，重装系统后再用，出错了，系统依然是XP。

行：2
字符：19
错误：无效字符
代码：800A0408
源：Microsoft VBScript 编译器错误

那位大大还能帮我看一下么？感激

七八楼qq43142691代码,WINXP下很好用.

系统问题。。。别用精简系统。。。。

第1楼　zh9158040	发表于 2007-08-07 11:19
新手上路　发帖 6　积分 14
使用命令禁用/启用单一网卡和中止/重拔拔号连接问题在网上找了若干资料，本论坛里面的合集也看遍了，有一个类似的问题，但在我的机器上没能运行成功，由于本人对编程一窍不通，故请求帮助。 XP下双网卡，一块8139（名称：本地连接），另一块集成PRO/100（名称：本地连接2）。8139接猫做PPPoe拔号上网（名称：宽带），PRO/100接局域网。机器做代理服务器连着几台局域网内的电脑。请高手帮忙： 1、用命令方式禁用/启用8139； 2、用命令方式中止/重拔拔号连接； 3、用命令方式禁用8139＆中止拔号连接/启用8139＆进行拔号连接。谢谢谢谢，如果我还没表述清楚的话，请提问，恳求高手出手相助，这个命令对我相当有用！！！ [ Last edited by zh9158040 on 2007-8-22 at 03:27 PM ]

第2楼　zh9158040	发表于 2007-08-10 08:01
新手上路　发帖 6　积分 14
?????没人出手相助么、？？

第3楼　429499381	发表于 2007-08-10 15:27
中级用户　发帖 202　积分 452
@echo off & cd\&cls & color 1f echo 现在是断开！！！！ netsh interface set interface name ="本地连接" ADMIN=DISABLED ping -n 5 127.0.0.1 >nul cls echo 现在是启用!!! netsh interface set interface name="本地连接" ADMIN=enabled 附件网络.rar (274 bytes)

第4楼　qq82015930	发表于 2007-08-11 15:33
中级用户　发帖 109　积分 235
3楼的好像没用哈

第5楼　429499381	发表于 2007-08-11 16:10
中级用户　发帖 202　积分 452
我用的是2003的系统，在XP下可能与差别！！

第6楼　zh9158040	发表于 2007-08-13 20:18
新手上路　发帖 6　积分 14
谢谢三楼的大大，8过，非常不幸的是，这个命令俺的机器上行不通。麻烦那位GGJJ，给出个在XP下试验通过的好不？真的很感激！！！ PS：最好把创建文件的方法写上，我真是一窍不通的啊！！5555~~~~~~~

第7楼　qq43142691	发表于 2007-08-14 01:17
中级用户　发帖 152　积分 326
禁用/启用本地连接的VBS Const ssfCONTROLS = 3 sConnectionName = "本地连接" '可改成需要控制的连接名称，如"无线网络连接"等 sEnableVerb = "启用(&A)" sDisableVerb = "停用(&B)" 'XP系统中应为 "停用(&B)" 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

第8楼　qq43142691	发表于 2007-08-14 01:19
中级用户　发帖 152　积分 326
ADSL 拨号 @echo off color 0a rem 设置链接名称，ADSL帐号，ADSL密码 set MyConnection=ADSL set MyUsername=C225 set MyPassword=C225 echo 正在ADSL连接：%MyConnection% ... Rasdial %MyConnection% %MyUsername% %MyPassword% echo 已经连接：%MyConnection%

第9楼　zh9158040	发表于 2007-08-20 09:47
新手上路　发帖 6　积分 14
回禀7楼和8楼的大大：　　我把命令复制到一个文本文档里，另存为.BAT的文件（对不？？），放在桌面上。　　7楼大大的命令执行后一个窗口一闪而过看不清任何东东，执行N次，本地连接始终没有任何变化。　　8楼大大的命令执行后在窗口也是一闪而过，不过第一行是绿字，内容看不不清楚，不论ADSL是否连接，也是没有变化。　　　　555555555555555，咋回事呢？？？？

第10楼　zh9158040	发表于 2007-08-22 15:27
新手上路　发帖 6　积分 14
顶上去，请高手帮助。

第11楼　yovie	发表于 2007-08-22 16:29
初级用户　发帖 42　积分 92　来自重庆市巫山县
你先要学会使用搜索功能，仔细找一下会有收获的。

第12楼　qq43142691	发表于 2007-08-23 00:56
中级用户　发帖 152　积分 326
Originally posted by zh9158040 at 2007-8-20 09:47 AM: 回禀7楼和8楼的大大：　　我把命令复制到一个文本文档里，另存为.BAT的文件（对不？？），放在桌面上。　　7楼大大的命令执行后一个窗口一闪 ... 保存为vbs

第13楼　zh9158040	发表于 2007-12-13 10:00
新手上路　发帖 6　积分 14
我用得七楼qq43142691大大提供的P处理，重装系统前一直用得好好的，重装系统后再用，出错了，系统依然是XP。行：2 字符：19 错误：无效字符代码：800A0408 源：Microsoft VBScript 编译器错误那位大大还能帮我看一下么？感激

第14楼　z640919a	发表于 2007-12-13 15:45
初级用户　发帖 72　积分 157
七八楼qq43142691代码,WINXP下很好用.

第15楼　qq43142691	发表于 2007-12-16 02:34
中级用户　发帖 152　积分 326
系统问题。。。别用精简系统。。。。