Sollte jemand mal nachträglich und in massen den Eigentümer und die Firma ändern wollen damit geht es einfacher ^^.
Funzt bei Win 2000 und XP. Bei Win 7 weiß ich nicht mal wo das zu finden ist xD.
Spoiler anzeigen
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Registry verändern des Eigentümers oder des Firmennamens...", 601, 150, 193, 125)
;GUISetFont(8, 400, 4, "MS Sans Serif")
GUISetBkColor(0xC0C0C0)
$Label1 = GUICtrlCreateLabel("Name des Eigentümers:", 112, 70, 116, 17)
$Input1 = GUICtrlCreateInput("", 254, 70, 217, 21)
$Label3 = GUICtrlCreateLabel("Name der Firma:", 112, 100, 116, 17)
$Input2 = GUICtrlCreateInput("", 254, 100, 217, 21)
GUICtrlSetData($Input2, "GAIA Akkumulatorenwerke GmbH" )
$Label2 = GUICtrlCreateLabel("Empfehlung: Eigentümer bekommt die Inventarnummer!", 184, 24, 400, 20)
$Button1 = GUICtrlCreateButton("Ändern", 488, 70, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Ändern", 488, 100, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Inhalt = GUICtrlRead($Input1)
RegWrite ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" , "RegisteredOwner", "REG_SZ", $Inhalt )
MsgBox(64, "Änderung", $Inhalt & " Erfolgreich übernommen" )
Case $Button2
$Inhalt2 = GUICtrlRead($Input2)
RegWrite ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" , "RegisteredOrganization", "REG_SZ", $Inhalt2 )
MsgBox(64, "Änderung", $Inhalt2 & " Erfolgreich übernommen" )
EndSwitch
WEnd
