中国DOS联盟

附件 1: 网络.rar (2007-8-10 15:27, 274 bytes,下载次数： 41)

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 

@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%

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