Script für Computernamen bei einer unattended XP-Installation

Hallo,

wie der Name des Threats schon vermuten lässt geht es hier darum mit Auto-IT, nachdem Windows installiert wurde und alle Programme die man so braucht ebenso, den Rechnernamen zu ändern. Aber nicht in irgendein generiertes dingsbums sondern er soll die Namen anhand der MAC-Adresse der Netzwerkkarte aus einer Datei auslesen wo diese (wie auch immer) aufgelistet sind. Da ich unter Windows kein Microsofttool ,dass ich per batch ausführen könnte um den Namen zu ändern, gefunfen habe würde ich dann den "normalen" weg mit Auto-IT gehen. Also "System" öffnen --> Computername--> ändern und dann halt den Namen ändern durch die Daten aus einer Datei in der die Mac-Adressen mit den dazugehörigen Namen stehen.
Was ich jetzt hierzu wissen müsste wäre:

1. Wie lese ich die Mac-Adresse der Netzwerkkarte aus die momentan
eine Netzwerkverbindung hat (manche Pcs haben 2 Karten)

2. Wie vergleiche ich die MacAdresse mit denen in der Datei und wie lese ich dann aus der Datei den Namen aus.

Wenn mit dabei jemand helfen könnte wäre ich seeeehr Dankbar.

Zur erklärung wofür ich dieses Script brauche. Ich arbeite im Moment an einer Schule als Systemadministrator und will die unattended WinXp die ich erstellt habe "perfektionieren". Das würde den Job der Lehrer hier die normalerweise dafür zuständig sind erheblich erleichtern...

MfG

Akira2012

@ huggy : Das ganze m´ß für 180 PCs klappen. Das Erstellen einer Textdatei wo der Name und die Mac-Adresse auftauchen ist hier nicht das Problem die bekomme ich vom Server ^^. Das Problem ist es diese Auszuwerten davon habe ich keine ahnung Aber ich denke ich habe gerade während ich das hier schreibe deinen ansatz verstanden ^^. Aber wie liest er die Datei aus? habe ich keine Ahnung von -.-*

wolkenloser: Da steht was von GetMacfromIP aber ist das denn richtig? oO ich meine die IP wird ja nachher erst vom Server vergeben wenn der PC-Name steht.

Danke schonmal für eure lösungen!!

keiner mehr eine Idee?

btw hab das mit dem dll-call ausprobiert funktioniert echt gut aber wie kann ich jetzt in einer .txt Datei nach dem entsprechenden Wert suchen und den PC-Namen davor auslesen? Oder kann mit einer wenigstens einen Link schicken wo ich das nachlesen kann?
:musik2: :musik2: :musik2: :musik2:

So Ich habe jetzt in meinem Erfindungsgeist selber etwas entworfen...
Es ist nicht perfekt aber es funktioniert! Ich poste das hier mal damit andere arme unwissende die das gleiche vorhaben nicht solange dran tüfteln müssen wie ich. Ich habe hierfür das dllcall script von wolkenloser verwendet (thnx an dieser stelle ;-))

Ich bin für verbesserungsvorschläge offen aber bitte kein "Äh wie hast du das denn gemacht das ist ja viel zu kompliziert" oder sowas. Es war immerhin "mein 1. mal" :stolz_bin:

;Mac Adresse beziehen


dim $MAC1 = _GetMACFromIP (@IPAddress1)
 
;MsgBox(0,"MACADRESS von " & @IPAddress1, $MAC1)
 
 
Func _GetMACFromIP ($sIP)
   Local $MAC,$MACSize
   Local $i,$s,$r,$iIP

   $MAC        = DllStructCreate("byte[6]")
 
   $MACSize    = DllStructCreate("int")
   DllStructSetData($MACSize,1,6)
 
;call inet_addr($sIP)
   $r = DllCall ("Ws2_32.dll", "int", "inet_addr","str", $sIP)
   $iIP = $r[0]
 
;Make the DllCall
   $r = DllCall ("iphlpapi.dll", "int", "SendARP","int", $iIP,"int", 0,"ptr", DllStructGetPtr($MAC),"ptr", DllStructGetPtr($MACSize))
 
;Format the MAC address into user readble format: 00:00:00:00:00:00
   $s    = ""
   For $i = 0 To 5
        If $i Then $s = $s & ":"
       $s = $s & Hex(DllStructGetData($MAC,1,$i+1),2)
   Next
 
;Must free the memory after it is used, after Beta 93 nicht mehr notwendig
;~    DllStructDelete($MAC)
;~    DllStructDelete($MACSize)
 
;Return the user readble MAC address
   Return $s
EndFunc




;Pc-Namen von Mac-Adresse beziehen
send ("{LWINDOWN}")
send ("{LWINUP}")
send ("u")
winwaitactive ("Ausführen")
send ("C:\apps\InstallScripts\Mac.txt")
send ("{Enter}")
WinWaitActive("Mac.txt - Editor")
send ("{CTRLDOWN}")
send ("f")
send ("{CTRLUP}")
sleep(2000)
Send($MAC1, 1)
send ("{Enter}")
sleep(3000)
winclose ("Suchen")
sleep(3000)
send ("{HOME}")
send ("{RIGHT}")
send ("{RIGHT}")
send ("{RIGHT}")
send ("{RIGHT}")
send ("{RIGHT}")
send ("{RIGHT}")
send ("{RIGHT}")
send ("{RIGHT}")
send ("{CTRLDOWN}")
send ("c")
send ("{CTRLUP}")
WinClose("Mac.txt - Editor")


;PC-Namen ändern


run("control")
WinWaitActive("Systemsteuerung")
send ("s")
send ("s")
send ("s")
send ("s")
send ("s")
send ("s")
send ("s")
send ("{Enter}")
WinWaitActive("Systemeigenschaften")
send ("{RIGHT}")
send ("!n")
WinWaitActive("Computernamen ändern")
send ("{CTRLDOWN}")
send ("v")
send ("{CTRLUP}")
send ("{Enter}")
sleep(2000)
send ("{TAB}")
send ("{Enter}")


;neues Script für den Autostart kopieren/ altes löschen


FileDelete(@SystemDir & "\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\*.*")
FileCopy(@Scriptdir & "\domäne.exe", @SystemDir & "\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\domäne.exe")


shutdown (2)


exit

Dachte ich bekomm hier mal was feedback :weinen:

Ja das habe ich schon lange geändert die wundervolle welt des rundll habe ich bereits gefunden - trotzdem danke