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
          Wscript.echo oFolder.GetDetailsOf(oSubItem,2)
        End If
      End If
    Next
    Exit For
  End If
Next