Hi,
I tried your code for mapping drive with Multiple NICs, but i am getting this error.
set objNetwork = CreateObject("Wscript.Network")
![Name: Error.bmp
Views: 13
Size: 11.7 KB]()
I tried your code for mapping drive with Multiple NICs, but i am getting this error.
set objNetwork = CreateObject("Wscript.Network")
Code:
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.10.10"
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