中国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下很好用.

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