Set Shell = WScript.CreateObject("Shell.Application")
For Each oItem In Shell.NameSpace(3).Items
  If oItem.Name="ネットワーク接続" Then
    Set oFolder=oItem.GetFolder
    For Each oSubItem In oFolder.Items
      If oFolder.GetDetailsOf(oSubItem,1)="ダイヤルアップ" Then
        If oFolder.GetDetailsOf(oSubItem,0)="@FreeD" Then
          If Left(oFolder.GetDetailsOf(oSubItem,2),2)="接続" Then
            WScript.Sleep 500
            oSubItem.InvokeVerb "切断(&O)"
            WScript.Sleep 30000
          Else
            WScript.Sleep 500
            oSubItem.InvokeVerb "接続(&O)"
            WScript.Sleep 15000
          End If
        End If
      End If
    Next
    Exit For
  End If
Next