VBS - Login Script for mapping with multiple NICs.

HI,

I tried this code for mapping drive with Multiple NICs, but i am getting this error.

set objNetwork = CreateObject("Wscript.Network")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colAdapters = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=True")
i = 0 
	For Each objAdapter in colAdapters 
	    For Each strAddress in objAdapter.IPAddress 
	        arrOctets = Split(strAddress, ".") 
	        If arrOctets(0) <> "" Then  arrSubnets(i) = arrOctets(0) & "." & arrOctets(1) & "." & arrOctets(2) 
	            i = i + 1 
WScript.Echo arrSubnetIPs(i)
	        End If 
	    Next 
	Next 
	Set colItems = objWMIService.ExecQuery _ 
	    ("Select * From Win32_LogicalDisk Where DeviceID = 'G:'") 
If colItems.Count = 0 Then
For i = 0 To UBound(arrSubnets) 
Select Case strSubnet
       Case "10.1.1" 
            objNetwork.MapNetworkDrive "G:", "\\10.1.1.62\zShared",True
	    objNetwork.MapNetworkDrive "F:", "\\10.1.1.62\zShared2",True

        Case "10.1.20" 
            objNetwork.MapNetworkDrive "G:", "\\10.1.20.150\sharedch",True
	    objNetwork.MapNetworkDrive "F:", "\\10.1.20.150\sharedch1",True	
End Select
Next
End If

Sainyam Aggarwal MCTS