On Error Resume Next

'---------------------------------------------------------------------------

'無線LAN接続完了するぐらいまで待つ
WScript.sleep(7000)

'ネットワークが有効ならTrue、さもなくばFalse
Set NetworkAdapters = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_NetworkAdapterConfiguration")

IsNetworkEnabled = False
For Each Adapter In NetworkAdapters
    IPAddress = Adapter.IPAddress
    If IsArray(IPAddress) Then
       If (InStr(IPAddress(0), "0.0.0.0") = 0) Then
       	  IsNetworkEnabled = True
          Exit For
       End If
    End If
Next
'---------------------------------------------------------------------------

'---------------------------------------------------------------------------
'PCカードスロットにPHSが存在すればTrue、さもなくばFalse
Set IsPhsExists = False
If (IsNetworkEnabled = False) Then
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   Set colItems = objWMIService.ExecQuery("Select * from Win32_SerialPort")
   For Each objItem in colItems
       If(InStr(objItem.Name, "PCMCIA") > 0) Then
           IsPhsExists = True
           Exit For
       End If
   Next
End If
'---------------------------------------------------------------------------

'---------------------------------------------------------------------------
'PHSがカードスロットに差さっているか、ネットワークが有効ならQMAIL3で巡回
'QMAIL3実行後(巡回開始指示後）はすぐ終了
If (IsPhsExists Or IsNetworkEnabled) Then
   Set WshShell = Wscript.CreateObject("Wscript.Shell")
   WshShell.Run "d:\bin\q3u\q3u.exe -g 'YOUR_COURSE_NAME_HERE'", 0, False
End If
'---------------------------------------------------------------------------