[KaiC]

set WSHShell = CreateObject("WScript.Shell")
on error resume next

benutzer = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Micr osoft\WindowsNT\CurrentVersion\
RegisteredOwner")


frage = "Unter welchem Name soll Windows" _
& " registriert sein?"
ueberschrift = "Benutzer"
benutzer = InputBox(frage, ueberschrift,_
benutzer)

WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\
CurrentVersion\RegisteredOwner", benutzer

meldung = "Benutzer ist " & "jetzt """ & benutzer & """!"
MsgBox meldung, vbInformation

__________________________________________________ ______________



wieso funzt net ???