宽带pppoe-创建-桌面快捷方式.vbs- Set WshShell = CreateObject("WScript.Shell")
- strCommandLine = "rasphone -a ""宽带连接"""
- WshShell.Run(strCommandLine)
- WScript.Sleep 1000
- WshShell.SendKeys "R"
- WScript.Sleep 30
- WshShell.SendKeys "{ENTER}"
- WScript.Sleep 30
- WshShell.SendKeys "{ENTER}"
- Set WshShell = Nothing
-
- ' 创建宽带连接桌面快捷方式
- Set WshShell = Wscript.CreateObject("Wscript.Shell")
- LnkPth = WshShell.SpecialFolders("Desktop")
- Set Link = WshShell.CreateShortcut(LnkPth & "\\宽带连接.lnk")
- Link.TargetPath = "rasphone.exe"
- Link.Arguments = "-d 宽带连接"
- Link.IconLocation = "SHELL32.dll,17"
- Link.Save
复制代码
|