Dim strComputer
Dim objWMIService
Dim colItemSet
Dim colItem
Dim i
Dim wNetwork
Dim printerPath
Dim printerPath2
Dim printerPath3
Dim printerPath4

    strComputer = "."
   
    On Error Resume Next
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    On Error GoTo 0
   
    If Not (objWMIService Is Nothing) Then
        Set colItemSet = objWMIService.execQuery _
            ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
        For Each colItem In colItemSet              ' There should only be one active one
            If Not IsNull(colItem.IPAddress) Then
                For i = LBound(colItem.IPAddress) To UBound(colItem.IPAddress)
                    If colItem.IPAddress(i) <> "0.0.0.0" Then   'any other connections to a PC such as bluetooth create a blank IP
                        If colItem.IPAddress(i) = "192.168.100.104" Then
                            Set wNetwork = WScript.CreateObject("WScript.Network")
                              printerPath = "\\sam1\KM-200"
                              wNetwork.AddWindowsPrinterConnection printerPath
                              printerPath2 = "\\sam1\KM-250"
                              wNetwork.AddWindowsPrinterConnection printerPath2
                              printerPath2 = "\\sam1\KM-350"
                              wNetwork.AddWindowsPrinterConnection printerPath2
                              printerPath2 = "\\sam1\KM-420"
                              wNetwork.AddWindowsPrinterConnection printerPath2
                              WScript.Quit
                        End If
                    End If
                Next
            End If
        Next
    End If

Dim strComputer,strIPAddress,strIPRange
Dim objNetwork
Dim IPConfigSet, IPConfig
Dim arrIPAddress

strComputer = "."

Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" _ 
 & strComputer & "/root/cimv2").ExecQuery("select IPAddress from " _ 
 & "Win32_NetworkAdapterConfiguration where IPEnabled=True") 
 
Set objNetwork = WScript.CreateObject("WScript.Network")

For Each IPConfig In IPConfigSet
     If Not IsNull(IPConfig.IPAddress) Then
          arrIPAddress = split(IPConfig.IPAddress(0) ,".")
          strIPRange = arrIPAddress(0) & "." & arrIPAddress(1) & "." & arrIPAddress(2) & ".0"	
          select case strIPRange
               case "192.168.100.0"
                    objNetwork.AddWindowsPrinterConnection "\\server\printer"
               case "192.168.0.0"
                    objNetwork.AddWindowsPrinterConnection "\\server\printer"
          end select
     end if
next

set objNetwork = nothing
set IPConfigSet = nothing