mit vbs skript => win reg ändern

KaiC · 01.12.2001, 18:53

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 ???

01.12.2001, 18:53	#1
KaiC Master Registriert seit: 30.04.2001 Alter: 51 Beiträge: 607	mit vbs skript => win reg ändern 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 ??? ____________________________________ __________________________________________________ _________________ Der Computer rechnet mit allem - nur nicht mit seinem Besitzer.

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)