rasdial /?
USAGE:
        rasdial entryname [username [password|*]] [/DOMAIN:domain]
                [/PHONE:phonenumber] [/CALLBACK:callbacknumber]
                [/PHONEBOOK:phonebookfile] [/PREFIXSUFFIX]

        rasdial [entryname] /DISCONNECT

        rasdial

        For Online Privacy Information please refer to
        'http://go.microsoft.com/fwlink/?LinkId=34493'
复制代码

Dim LanName, Name, Password, OK
LanName = "你的宽带连接名称"
Name = "你的宽带帐号"
Password = "你的宽带密码"
If Lcase(CreateObject("Wscript.Network").UserName) <> "baba" Then WScript.Quit
If Weekday(Now(), vbMonday) <> 2 And Weekday(Now(), vbMonday) <> 4 Then 
  Do
  HitLan "/disconnect" : OK = "no"
  WScript.Sleep 5000
  Loop
  Else
  Do 
    If Mid(Time(), 4, Len(Time())) < "下午 08:00:00" Or Mid(Time(), 4, Len(Time())) > "下午 09:30:00" Then 
      HitLan "/disconnect" : OK = "no"
      Else
      If OK <> "ok" Then 
        HitLan LanName & " " & Name & " " & Password
        OK = "ok"
      End If
    End If
    WScript.Sleep 5000
  Loop
 End If 
    
Function HitLan(td)
  Dim WSSHELL
  Set WSSHELL = CreateObject("Wscript.Shell")
  WSSHELL.Run "Rasdial " & td & ">Nul 2>Nul", False, True
  Set WSSHELL = Nothing
End Function
复制代码

@Echo Off
TaskKill /f /im "Wscript.exe">Nul 2>Nul
Rasdial 你的宽带连接名称 宽带帐号 宽带密码>Nul 2>Nul
复制代码