Hi,
It seams there's something wrong going on with the keys. Most of my desktops have Office 2000 under a Open License (same key) and there are some Office XP with a similar Open License too. Now I understand Open-AudIT does not detect Office 2000, but I have problems with Office XP. I have one retail version installed and that was detected correctly. The ones from Open License however are not detected correctly.
It seams it does find the XP key, but it can't figure out what version the software is. Here's the table: [code] mysql> select * from ms_keys where ms_keys_name=""; +------------+--------------------------------------+--------------+-------------------------------+-----------------------------+-----------------+------------------+-------------------+-------------------------+ | ms_keys_id | ms_keys_uuid | ms_keys_name | ms_keys_cd_key | ms_keys_release | ms_keys_edition | ms_keys_key_type | ms_keys_timestamp | ms_keys_first_timestamp | +------------+--------------------------------------+--------------+-------------------------------+-----------------------------+-----------------+------------------+-------------------+-------------------------+ | 12 | A6223DB2-A988-DB11-9134-0013D4D0773D | | VVVVV-XXXXX-CCCCC-YYYYY-ZZZZZ | RTM (first shipped version) | Enterprise | office_xp | 20070924162157 | 20070920113428 | | 50 | 00000000-0000-0000-0000-0010DFA23C9D | | VVVVV-XXXXX-CCCCC-YYYYY-ZZZZZ | RTM (first shipped version) | Enterprise | office_xp | 20070924162437 | 20070923204309 | +------------+--------------------------------------+--------------+-------------------------------+-----------------------------+-----------------+------------------+-------------------+-------------------------+ 2 rows in set (0.00 sec) [/code]
These are two of the five office xp boxes under the open licence.
The relevant audit.vbs code: [code] '''''''''''''''''''''''''''''''' ' MS CD Keys for Office XP ' '''''''''''''''''''''''''''''''' strKeyPath = "SOFTWARE\Microsoft\Office\10.0\Registration" oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys For Each subkey In arrSubKeys name_xp = get_sku_xp(subkey) release_type = get_release_type(subkey) edition_type = get_edition_type(subkey) path = strKeyPath & "\" & subkey strOffXPRU = "HKLM\" & path & "\DigitalProductId" subKey = "DigitalProductId" oReg.GetBinaryValue HKEY_LOCAL_MACHINE,path,subKey,key if IsNull(key) then else strOffXPRUKey=GetKey(key) form_input = "ms_keys^^^" & name_xp & "^^^" _ & strOffXPRUKey & "^^^" _ & release_type & "^^^" _ & edition_type & "^^^" _ & "office_xp" & "^^^" entry form_input,comment,objTextFile,oAdd,oComment strOffXPRUKey = "" release_type = "" edition_type = "" form_input = "" end if Next [/code]
So from which key should get_sku_xp get the name? In registry there's only DigitalProductID and ProductID.
Anyhow, when this gets settled I think I'll add Office 2000 support too. At least I'm thinking of it.
EDIT:
I added an wscript.excho in the get_sku_xp function and the version it is trying to find is "91" in case of Office XP Pro under Open License. Forgot to mention that the CD is in Estonian. But IIRC you would still get Office in English if you wanted off of it. There's a product number on the CD though: "X08-10852 ET"
|