随笔 - 85  文章 - 47  trackbacks - 0

常用链接

随笔分类

随笔档案

搜索

  •  

最新评论

DIALNAME = "xxx"
DIALUSER = "xxx"
DIALPASS = "xxx"

Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run("ping www.baidu.com", 0, true)
If RetCode <> 0 Then
    WshShell.Run "rasdial " & DIALNAME & " /DISCONNECT", 0, true
    WScript.Sleep(3000)
    WshShell.Run "rasdial " & DIALNAME & " " & DIALUSER & " " & DIALPASS, 0
    WScript.Sleep(3000)
End If

posted on 2009-11-09 13:40 w2001 阅读(228) 评论(0)  编辑 收藏 引用

只有注册用户登录后才能发表评论。
【推荐】超50万行VC++源码: 大型组态工控、电力仿真CAD与GIS源码库
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理