10
Office Produktnummer auslesen
Hi,
ich suche nach einer Möglichkeit die Produktnummer! NICHT die Seriennummer/Lizenzkey auszulesen.
Ich habe einen Registrierungsschlüssel gefunden bzw. zwei.
Der eine hat keine Leseberechtigung und der zweite geht aber.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\User information\Product Identification <-geht
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\9.0\Registration\ProductID <-geht nicht
So, dies betrifft aber nur Windows 2000 und Office 2000. Leider ist dies unter Windows XP nicht der gleiche Schlüssel.
Wie kann ich alternativ diese Nummer auslesen um sie dann weiter zu benutzen.
BITTE keine Tools!
Ich brauch das in Form eines Scripts, um das in eine DB zu schreiben.
Die Windows Produktnummer kann ich problemlos auslesen.
Dank im Vorraus!
ich suche nach einer Möglichkeit die Produktnummer! NICHT die Seriennummer/Lizenzkey auszulesen.
Ich habe einen Registrierungsschlüssel gefunden bzw. zwei.
Der eine hat keine Leseberechtigung und der zweite geht aber.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\User information\Product Identification <-geht
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\9.0\Registration\ProductID <-geht nicht
So, dies betrifft aber nur Windows 2000 und Office 2000. Leider ist dies unter Windows XP nicht der gleiche Schlüssel.
Wie kann ich alternativ diese Nummer auslesen um sie dann weiter zu benutzen.
BITTE keine Tools!
Ich brauch das in Form eines Scripts, um das in eine DB zu schreiben.
Die Windows Produktnummer kann ich problemlos auslesen.
Dank im Vorraus!
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 34383
Url: https://administrator.de/tutorial/office-produktnummer-auslesen-34383.html
Ausgedruckt am: 24.12.2024 um 13:12 Uhr
10 Kommentare
Neuester Kommentar
Lösung:
So klappt das
ProdNr = Produktnummer
sOfficeVer = Version
Damit kann man dan machen was man möchte!
Danke an: http://www.winhelpline.info/forum/tipps-und-tricks-windows-xp/93668-rec ...
WICHTIG
Bei "11.0" und "10.0" kann der RegKey varriieren. Vorher bitte checken! Thx an Biber!
set WshShell = CreateObject("WScript.Shell")
sRegPre = "HKLM\SOFTWARE\Microsoft\Office\"
sRegPost = "\Common\InstallRoot\"
sRegProdPre = "HKLM\SOFTWARE\Microsoft\Office\"
sRegProdPast = "\Registration\"
Select Case True
Case RegKeyExists(sRegPre & "11.0" & sRegPost)
ProdNr = WshShell.RegRead(sRegProdPre & "11.0" & sRegProdPast & "{91110407-6000-11D3-8CFE-0150048383C9}\ProductID")
sOfficeVer = "Microsoft Office 2003"
Case RegKeyExists(sRegPre & "10.0" & sRegPost)
ProdNr = WshShell.RegRead(sRegProdPre & "10.0" & sRegProdPast & "{91110407-6000-11D3-8CFE-0050048383C9}\ProductID")
sOfficeVer = "Microsoft Office 2002"
Case RegKeyExists(sRegPre & "9.0" & sRegPost)
ProdNr = WshShell.RegRead(sRegProdPre & "9.0" & sRegProdPast & "ProductID\")
sOfficeVer = "Microsoft Office 2000"
Case RegKeyExists(sRegPre & "8.0 " & sRegProdPast" & sRegPost)
ProdNr = WshShell.RegRead(sRegProdPre & "8.0" & sRegProdPast & "ProductID\")
sOfficeVer = "Microsoft Office 97"
Case Else
sOfficeVer = "Keine"
End Select
Function RegKeyExists(ByVal sRegKey)
' Returns True or False based on the existence of a registry key.
Dim sDescription, oShell
Set oShell = CreateObject("WScript.Shell")
RegKeyExists = True
sRegKey = Trim (sRegKey)
If Not Right(sRegKey, 1) = "\" Then
sRegKey = sRegKey & "\"
End If
On Error Resume Next
oShell.RegRead "HKEYNotAKey\"
sDescription = Replace(Err.Description, "HKEYNotAKey\", "")
Err.Clear
oShell.RegRead sRegKey
RegKeyExists = sDescription <> Replace(Err.Description, sRegKey, "")
On Error Goto 0
End FunctionSo klappt das
ProdNr = Produktnummer
sOfficeVer = Version
Damit kann man dan machen was man möchte!
Danke an: http://www.winhelpline.info/forum/tipps-und-tricks-windows-xp/93668-rec ...
WICHTIG
Bei "11.0" und "10.0" kann der RegKey varriieren. Vorher bitte checken! Thx an Biber!
---
Moin Xaero1982,
Hinweis: Der Key bei Office 2002 (10.0) und wahrscheinlich auch bei Office 2003 (11.0) ist unter Umständen leicht variierbar:
Bei Dir: .... "{91110407-6000-11D3-8CFE-0050048383C9}\ProductID"
Bei mir: .... "{90110407-6000-11D3-8CFE-0050048383C9}\ProductID"
...also die 2. Ziffer im ersten Block kann 0 oder 1 sein. Mindestens.
Ich würde zumindest vorher mal bei ein paar Clients (oder Freiwilligen hier im Forum) den Test mit
reg query "HKLM\SoftWare\Microsoft\office" /s |find "Registration"
..machen und den Output mal ansehen.
Denn an der Stelle reicht wahrscheinlich eine Suche nach "-6000-11D3-8CFE-"... denn die findet die ProductID, während eine exacte Suche in die Grütze geht.
Gruß
Biber
Hinweis: Der Key bei Office 2002 (10.0) und wahrscheinlich auch bei Office 2003 (11.0) ist unter Umständen leicht variierbar:
Bei Dir: .... "{91110407-6000-11D3-8CFE-0050048383C9}\ProductID"
Bei mir: .... "{90110407-6000-11D3-8CFE-0050048383C9}\ProductID"
...also die 2. Ziffer im ersten Block kann 0 oder 1 sein. Mindestens.
Ich würde zumindest vorher mal bei ein paar Clients (oder Freiwilligen hier im Forum) den Test mit
reg query "HKLM\SoftWare\Microsoft\office" /s |find "Registration"
..machen und den Output mal ansehen.
Denn an der Stelle reicht wahrscheinlich eine Suche nach "-6000-11D3-8CFE-"... denn die findet die ProductID, während eine exacte Suche in die Grütze geht.
Gruß
Biber
Besten Dank
Meine Admins konnten mir aber nicht sagen, auf welchem PC was installiert ist und alle auslesen hat ich dann auch keine Lust.
Kann man auch nur einen Teilregkey vergleichen?
Muss ich mal testen, also dank für den Tipp!
Meine Admins konnten mir aber nicht sagen, auf welchem PC was installiert ist und alle auslesen hat ich dann auch keine Lust.
Kann man auch nur einen Teilregkey vergleichen?
Muss ich mal testen, also dank für den Tipp!
Na ja, Xaero,
vom CMD-Prompt aus bzw. vom Batch würde ich einfach als Oneliner abschicken:
for /f "tokens=7 delims=\" %i in ('reg query "HKLM\SoftWare\Microsoft\office\10.0\registration" ^|find "0407-6000-"') do @echo %i
... und als Antwort bekommen:
{90110407-6000-11D3-8CFE-0050048383C9}
{90120407-6000-11D3-8CFE-0050048383C9}
[Oder so ähnlich]
Das Prinzip sollte eigentlich auch mit den RegXXX()-VBS-Funktionen machbar sein, denn zumindest die RegKeys, die unterhalb der ja namentlich bekannten Verzeichnisse
- HKLM\SoftWare\Microsoft\Office\10.0\Registration
- HKLM\SoftWare\Microsoft\Office\11.0\Registration
- HKLM\SoftWare\Microsoft\Office\12.0\Registration (????) falls schon draußen
...liegen, diese RegKeys kannst Du ja ermitteln, denke ich, und diese mit der InStr()-Funktion auf "0407-6000-11D3-8CFE" prüfen.
[wobei "0407" sicherlich "deutsche Version" heißt]
Du weißt ja, mir würde das alles zu lange dauern und ich würde es per Batch-Oneliner abfackeln.
Grüße
Biber
vom CMD-Prompt aus bzw. vom Batch würde ich einfach als Oneliner abschicken:
for /f "tokens=7 delims=\" %i in ('reg query "HKLM\SoftWare\Microsoft\office\10.0\registration" ^|find "0407-6000-"') do @echo %i
... und als Antwort bekommen:
{90110407-6000-11D3-8CFE-0050048383C9}
{90120407-6000-11D3-8CFE-0050048383C9}
[Oder so ähnlich]
Das Prinzip sollte eigentlich auch mit den RegXXX()-VBS-Funktionen machbar sein, denn zumindest die RegKeys, die unterhalb der ja namentlich bekannten Verzeichnisse
- HKLM\SoftWare\Microsoft\Office\10.0\Registration
- HKLM\SoftWare\Microsoft\Office\11.0\Registration
- HKLM\SoftWare\Microsoft\Office\12.0\Registration (????) falls schon draußen
...liegen, diese RegKeys kannst Du ja ermitteln, denke ich, und diese mit der InStr()-Funktion auf "0407-6000-11D3-8CFE" prüfen.
[wobei "0407" sicherlich "deutsche Version" heißt]
Du weißt ja, mir würde das alles zu lange dauern und ich würde es per Batch-Oneliner abfackeln.
Grüße
Biber
Ich weiss, ich weiss
Ich brauche das in meinem Fall als Startscript und das soll dann automatisch in eine Access DB geschrieben werden.
In deinem Fall müsst ich das dann erst mal wieder einlesen.
Bei mir stehts direkt in einer Variable.
PS: wenn ich deinen onliner eingebe bekomme ich kein Echo
Ich brauche das in meinem Fall als Startscript und das soll dann automatisch in eine Access DB geschrieben werden.
In deinem Fall müsst ich das dann erst mal wieder einlesen.
Bei mir stehts direkt in einer Variable.
PS: wenn ich deinen onliner eingebe bekomme ich kein Echo
Habe hier einen Rechner bei dem früher mal Office 2003 installiert war und jetzt Office 2000 läuft (warum auch immer).
- HKLM\SoftWare\Microsoft\Office\10.0\Registration
- HKLM\SoftWare\Microsoft\Office\11.0\Registration
Diese Schlüssel sind allerdings beide vorhanden, wie kann ich herausfinden, welche Version im Augenblick installiert ist?
- HKLM\SoftWare\Microsoft\Office\10.0\Registration
- HKLM\SoftWare\Microsoft\Office\11.0\Registration
Diese Schlüssel sind allerdings beide vorhanden, wie kann ich herausfinden, welche Version im Augenblick installiert ist?
Check ich nicht@ jens.
Wenn 2000 läuft müsste ein Eintrag mit 9.0 vorhanden sein, da 10.0 = Office 2002 und 11.0 =Office 2003.
Wie findest du es raus? Office starten Menü "?" dann Info und oben steht die genaue Versionsnummer.
Wenn 2000 läuft müsste ein Eintrag mit 9.0 vorhanden sein, da 10.0 = Office 2002 und 11.0 =Office 2003.
Wie findest du es raus? Office starten Menü "?" dann Info und oben steht die genaue Versionsnummer.
Sorry, habe beim beantworten nur aus dem Tread kopiert. Ich möchte aus der Registry auslesen welches Office installiert ist und auf diesem Rechner sind trotz deinstallation des höheren Office die Registryeinträge noch vorhanden. Kennt einer einen Schlüssel der zweifelsfrei die aktuelle Officeversion verrät?
Office Starten und Nummer lesen ...
Ansonsten solltest du den alten Registrierungseintrag löschen.
Es kann gut sein, dass unter:
- HKLM\SoftWare\Microsoft\Office\XX.0\
kein Schlüssel Registration vorhanden ist.
Solltest du mal checken!
Ansonsten solltest du den alten Registrierungseintrag löschen.
Es kann gut sein, dass unter:
- HKLM\SoftWare\Microsoft\Office\XX.0\
kein Schlüssel Registration vorhanden ist.
Solltest du mal checken!
