Logon Script, detect network status

Question

I'm wondering if it it is possible to build a logon script, for Windows XP & Vista, that will detect where the user is connected to a particular network (Defined by IP schema). If they are connected to a specific network, then it will display a message such as, "Please note your will not be able to access the XYZ Network Drive, or your company email"

Answer 1

Why do this with batch file gyrations when you can just link GPOs to site objects? The "bonus" being that if you add addt'l subnets or move subnets around you'll never have to edit your script.

If you're looking at this being a user logon script that you want to apply only when users logon to specific computers then you'll need to look at using loopback group policy processing as well.

Answer 2

We use something like this to determine users location based on their IP address.
For example it gives us the ability to map different network drives based on users location.

Basically, someone in Brisbane gets an IP address 172.21.x.x but in Sydney it's 172.22.x.x.

this is in the logon script:

 cscript \\server\NETLOGON\network.vbs
 if %ErrorLevel% == 21 goto brisbane
 if %ErrorLevel% == 22 goto sydney
 if %ErrorLevel% == 23 goto melbourne
 if %ErrorLevel% == 168 goto other

 :brisbane
 net use o:\\\server_brisbane\shares
 goto exit
 :sydney
 net use o:\\\server_sydney\shares
 goto exit
 :melbourne
 net use f:\\\server_melbourne\finance
 copy "H:\Terminal Server.lnk" "%USERPROFILE%\Desktop"
 goto exit
 other:
 echo "not a supported network..."
 exit:

network.vbs :

'this script gets the ipaddress and returns the second octect
'to determine which subnet the computer is on
'21 = brisbane
'22 = sydney
'23 = melbourne

dim ipaddr, ipsubnet, iparray

strComputer = "."
Set objWMIService = GetObject( _ 
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select IPAddress from Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")


For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then 
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
                ipaddr=IPConfig.IPAddress(i)
                If (InStr(ipaddr, "172")<>0) then
            iparray=Split(ipaddr, ".")
            ipsubnet=iparray(1)
            'wscript.echo ipsubnet
        end if
        Next
    End If
Next

wscript.quit ipsubnet

Now you need to place some kind of a pop-up message in the right place.