erkennung dynamisch oder statisch

strCompListe = "C:\Computers.txt"  
strDom = "testdom"  
strSuff = "local"  

Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")  
Set objCommand =   CreateObject("ADODB.Command")  
objConnection.Provider = "ADsDSOObject"  
objConnection.Open "Active Directory Provider"  

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://DC=" & strDom &",DC=" & strSuff & "' " _  
        & "Where objectClass='computer'"    
objCommand.Properties("Page Size") = 1000  
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE   
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Set fso = CreateObject("Scripting.FileSystemObject")  
Set objCompFile = fso.CreateTextFile(strCompListe, True)
Do Until objRecordSet.EOF
    objCompFile.WriteLine(objRecordSet.Fields("Name").Value)  
    objRecordSet.MoveNext
Loop
objCompFile.Close
MsgBox "Computerliste in " & strCompListe & " erstellt."  

strCompListe = "C:\Computers.txt"  
strIPListe = "C:\IPAdressen.csv"  

Set fso = CreateObject("Scripting.FileSystemObject")  
Set objCompFile = fso.OpenTextFile(strCompListe, 1)
Set objIPFile = fso.CreateTextFile(strIPListe, 2, True) 'oder 8, wenn an bestehende Liste angehängt werden soll  
Do While Not objCompFile.AtEndOfStream
	strComputer = objCompFile.ReadLine
	Set objWMIService = GetObject("winmgmts:" _  
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  

	Set colAdapters = objWMIService.ExecQuery _
		("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")  
 
	For Each objAdapter in colAdapters
		strErgebnis = strComputer
		If Not objAdapter.DHCPEnabled Then
			strErgebnis = strErgebnis & ";statisch"  
		Else
			strErgebnis = strErgebnis & ";dynamisch"	  
		End If
		strErgebnis = strErgebnis & ";" & _  
					Chr(34) & objAdapter.Description & Chr(34) & _
					";" & objAdapter.DNSHostName  
		If Not IsNull(objAdapter.IPAddress) Then
			strErgebnis = strErgebnis & ";" & objAdapter.IPAddress(0)  
		Else
			strErgebnis = strErgebnis & ";Keine IP"  
		End If
		objIPFile.Writeline strErgebnis
	Next
Loop
objCompFile.Close
objIPFile.Close
MsgBox "IP-Liste in " & strIPListe & " erstellt."  

SERVER;statisch;"Intel DC21140 PCI Fast Ethernet Adapter";server;192.168.1.2