WinXP Computername per CmdLine ändern?

[Br@in]

Das Proggie hängt immer mit einem Registryzugriffsberechtigungsfehler (geiles Wort )

Dim f As New RegistryPermission(RegistryPermissionAccess.Write, "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Contr ol\ComputerName\ActiveComputerName\")

RichTextBox1.Text = f.GetPathList(RegistryPermissionAccess.Write)
Dim CompuName As String

Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(" System\CurrentControlSet\Control\ComputerName\Acti veComputerName\")

key.SetValue("ComputerName", "asdasdASd")

Eine nicht behandelte Ausnahme des Typs 'System.UnauthorizedAccessException' ist in mscorlib.dll aufgetreten.

Zusätzliche Informationen: In den Registrierungsschlüssel kann nicht geschrieben werden.

was hats da???