Windows 7 Wait For Network Startup Script

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
AdapterListQuery = "SELECT * FROM Win32_NetworkAdapter WHERE AdapterTypeID = 0 AND PhysicalAdapter = True "
'WScript.Echo "Scanning adapters"
Set colAdapters = objWMIService.ExecQuery(AdapterListQuery)
adapter_number = 0
For Each objAdapter in colAdapters
    If InStr(1,objAdapter.Name,"VMware",1) = 0 Then
        'WScript.Echo " Adapter found:" & objAdapter.Name
        adapter_number = adapter_number + 1
    End If
Next
flag_stoploop = False
cnt_timeout = 120 'Seconds
time_start = Now()
'Check adapter number
If adapter_number <= 0 Then
        'WScript.Echo "No matching adapters found! Exiting!"
        WScript.Quit
End If
'WScript.Echo "Entering check cycle"
while not flag_stoploop
    If DateDiff("s",time_start,Now()) > cnt_timeout Then
        flag_stoploop = True
        'WScript.Echo "  (!) Stopping because of timeout"
        WScript.Quit
    End If
    'WScript.Echo " Updating adapters list"
    Set colAdapters = objWMIService.ExecQuery(AdapterListQuery)
    For Each objAdapter in colAdapters
        If InStr(1,objAdapter.Name,"VMware",1) = 0 Then
            'WScript.Echo "  Checking adapter status:" & objAdapter.Name
            WScript.Sleep 500
            If (objAdapter.NetConnectionStatus = 2) Then
                flag_stoploop = True
                WScript.Echo "  (!) Stopping because of " & objAdapter.Name  & " is connected"
                Wscript.Quit
            End If
        End If
    Next
wend