
CODE: [Copy to clipboard]VBS 部分@echo off
::**************************************
set ID=999
set pw=999
::**************************************
set book=%allusersprofile%\Application Data\Microsoft\Network\Connections\Pbk
set Lan=宽带连接
set adsl=rasphone.pbk
copy /y "%adsl%" "%book%\rasphone.pbk">nul
PPPoE.vbs
echo. 正在建立%Lan%连接...
rasdial %Lan% %ID% %pw%
exit
CODE: [Copy to clipboard]晕死。。居然上传不了。。。米办法。。只能等论坛恢复上传后再传了Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "Rasphone -a"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |