MAC Adresse auslesen in Variable,Variable mit Textliste vergleichen, Computernamen umbenennen

'Gesamt  
Option Explicit
'-----------------------------------------  
'getMAC  
'-----------------------------------------  
Dim fso, ntwrk,strComputer,objWMIService,colAdapters,objAdapter,SAVEMACAddress
set fso = createobject ("scripting.filesystemobject")  
set ntwrk = createobject ("wscript.network")  
strComputer = ntwrk.computername

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
SAVEMACAddress = objAdapter.MACAddress
Next

'-----------------------------------------  
'Vergleich  
'-----------------------------------------  

Dim objFSO, objWshNetwork, objFile
Dim strWorkDir, strText, strLine, strMacFind, computername
Const ForReading = 1, ForWriting = 2, ForAppending = 8

strWorkDir = "Vergleich.csv"  
strText = ""  
strMacFind = SAVEMACAddress

Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")  

strText = strWorkDir
  If objFSO.FileExists(strText) Then
  Set objFile = objFSO.OpenTextFile(strText, ForReading)
    Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
        If UCase(Left(strLine, Len(strMacFind))) = UCase(strMacFind) Then 
			computername = Split(strLine, ",")(1)  
		Else
			computername = "DUMMYNAME"  
			Exit Do
		End If
    Loop
    objFile.Close
  End If
  
'-----------------------------------------  
'Rename  
'-----------------------------------------  

If WScript.Arguments.length =0 Then
  Set objShell = CreateObject("Shell.Application")  
  'Pass a bogus argument with leading blank space, say [ uac]  
  objShell.ShellExecute "wscript.exe", Chr(34) & _  
  WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1  
Else

Dim computernamerename
computernamerename = computername

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  

Set colComputers = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")  

For Each objComputer in colComputers
    err = objComputer.Rename(computernamerename)
Next

End if