VBS-Logoutscript IP-bezogen aber wie?

Dim WshNetwork, WshShell
Dim oDrives, fUser, fOS, fDomain, fUserName, oGroupDict
Dim objNetwork
Dim objFSO, objFileCopy
Dim strFilePath, strDestination

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objNetwork = CreateObject("WScript.Network")  
Set WshNetwork = WScript.CreateObject("WScript.Network")  
Set WshShell = WScript.CreateObject("WScript.Shell")  
Set oDrives = WshNetwork.EnumNetworkDrives

UserName = (WshShell.ExpandEnvironmentStrings("%UserName%"))  
fUser = (WshNetwork.UserName)
Set WshShell = CreateObject("WScript.Shell")  

'Check if you are connected in LAN 172.16.****************************************  
strComputer = "."  
Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2" )  
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True" )  
For Each objAdapter in colAdapters
    IPdebut = LBound(objAdapter.IPAddress)
    IPfin = UBound(objAdapter.IPAddress)
    If (objAdapter.IPAddress(IPdebut) => "172.16" ) then   

'Anmerkung: hier weiss ich nicht weiter; wenn IP ungleich 172.16 beginnt soll er abbrechen; ansonsten zur näcjhsten Sprungmarke (war das nur einfach unter BAT)  


	'## Sequence remove Network Printers"  
		Dim UncPrinters
		UncPrinters	= Array("Drucker1","Drucker2","Drucker3",Drucker4")  
'Anmerkung: ich möchte eigentlich nicht jeden Drucker einzeln auffüren müssen sondern eben alles was \\211PRT02\ beginnt --> Wie setze ich Wildcards?  

		Set objNetwork = WScript.CreateObject("WScript.Network")  
			For i = 0 To Ubound(UncPrinters) 
			on error resume next
			 objNetwork.RemovePrinterConnection("\\211PRT02\" & UncPrinters(i))  
			Next
			
	'##Sequence remove Network Drives##  
		Dim DelNetDrive
			Set WshNet = CreateObject("WScript.Network")  
				For DriveAsc = 102 To 122
				On Error Resume Next
				DelNetDrive = Chr(DriveAsc) & ":"  
				WshNet.RemoveNetworkDrive DelNetDrive, True, True
			Next