Windows-Produkt-ID auslesen geht nicht unter Windows 7 (64bit)

Marcus Gräfe · 19. Februar 2011, 15:19

Ich lese mit folgendem Befehl die Windows-Produkt-ID aus (nicht die Seriennummer):

Visual Basic-Quellcode

Value = GetSettingString(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows NT\CurrentVersion", "ProductId")

Das hat bisher unter jeder NT-Version geklappt (nicht getestet unter Vista). Unter Windows 7 (in dem Fall 64bit) gibt es zwar den angegebenen Eintrag noch, aber ich bekomme nur einen Leerstring zurück.

GetSettingString habe ich hier her: vbarchiv.net/tipps/tipp_511-al…omponenten-auflisten.html

Warum kann ich den Wert nicht auslesen? Ist das ein Windows-Sicherheitsfeature? UAC ist in meinem Fall komplett aus.

pc-freack · 19. Februar 2011, 16:00

versuch es mal so.
Also bei mir klappt das bei Windows 7 64bit:

Visual Basic-Quellcode

Value = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductID", Nothing)

Dafür musst du Microsoft.Win32 importieren.

Marcus Gräfe · 19. Februar 2011, 16:11

Ich habe VB 6 (siehe Präfix). Da kann ich kein "Microsoft.Win32" importieren. Außerdem ist der letzte Parameter in meiner Funktion der Standardwert, das wird also nichts bringen.

jvbsl · 19. Februar 2011, 16:21

Wäre es Möglich, dass sich der Wert von HKEY_LOCAL_MACHINE bei x64 geändert hat?
Wie sieht es denn mit anderen Registry Werten aus, funktionieren die?

Marcus Gräfe · 19. Februar 2011, 16:53

Alle anderen Werte kann ich aus der Registry lesen, sogar aus dem selben Schlüssel. Nur die Produkt-ID nicht.

bla · 19. Februar 2011, 17:10

Hier eine Alternative (würde mich wundern, wenn die funktioniert)

Visual Basic-Quellcode

Private Sub Form_Load()
MsgBox RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\ProductId")
End Sub
Public Function RegRead(Path As String) As String
Dim ws As Object
On Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Path)
Exit Function
ErrHandler:
RegRead = ""
End Function

Viellt benötigt man AdminRechte?

Marcus Gräfe · 19. Februar 2011, 17:54

Danke, ich habe aber nun eine andere Lösung gefunden. Das Problem ist der Zugriff von 32Bit-Anwendungen auf eine 64Bit-Registry. Hier steht die Lösung:

social.msdn.microsoft.com/Foru…69-4f07-b8e7-f3dce19f7ecb

In der "GetSettingString"-Funktion musste ich folgendes anpassen:

Visual Basic-Quellcode

lRegResult = RegOpenKeyEx(hKey, strPath, 0, &H1& Or &H100&, hCurKey)

Windows-Produkt-ID auslesen geht nicht unter Windows 7 (64bit)

Windows-Produkt-ID auslesen geht nicht unter Windows 7 (64bit)

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben