Question about ModelAlias.vbs - not producing what expected on Lenovo machines

Question

So i am trying to use ModelAlias.vbs userexit script to create sensible names for Lenovo machines so i can arrange my MDT driver structure accordingly.
I have found these articles:
Deplyment Guys Blog:
http://blogs.technet.com/b/deploymentguys/archive/2009/09/10/using-and-extending-model-aliases-for-hardware-specific-application-installation.aspx
Mikael Nystroms Blog:
http://deploymentbunny.com/2012/05/01/modelalias-user-exit-for-microsoft-deployment-toolkit-20102012/
Whats not so fun with Lenovo machines (there are other vendors also i guess) that model name for machine could be something like 6138W1K when giving commandprompt command wmic csproduct get name. Actual model name for 6138W1K is ThinkCentre M58p.
Problem:
So i assumed ModelAlias.vbs would return something like ThinkCentre M58 as an result so i could use that for folder structure (or in database) Problem is that ModelAlias.vbs gives that model number 6138W1K as result not
producing that actula model ThinkCentre M58p.
Im testing ModelAlias using this:
del C:\MININT\SMSOSD\OSDLOGS\VARIABLES.DAT /q
cscript ZTIGather.wsf /inifile:..\Control\CustomSettings.ini
“E:\Extra\Trace32.exe” c:\minint\smsosd\osdlogs\bdd.log
(Also from Mikael Nystroms blog:
http://deploymentbunny.com/2011/04/27/quick-and-dirty-testing-customsettings-ini-variables-in-mdt/)
Result from bdd.log
MODELALIAS is set accordig model NOT version info??
My CustomSettings.ini is set like this
[Settings]
Priority=SetModelAlias, Default
Properties=ModelAlias
[SetModelAlias]
UserExit=ModelAliasExit.vbs
ModelAlias=#SetModelAlias()#
Something is not right or is it :)

Answer 1

Looking at the script, the model numbers aren't populated, looks like you have to do that yourself.   The script will find the 4 leftmost characters of the Lenovo model type and return it. If you want to translate that to something else its up to you
to enter it. It really doesn't have to be translated, unless you want it to be. If your driver folder is named 1706 and the ModelAlias returns 1706, you're good to go.
See under "Select Case sModelSubString" where it says Case 1706? The next line 'SetModelAlias = "ThinkPad X60"' will translate 1706 into "ThinkPad X60". but that's the only example given. You would need to add a separate Case for each model you own.
Case Else says if you don't match any of the existing cases, then do this. In this case its "SetModelAlias = sModel", or return whatever sModel contains. I guess that is the entire 7 digit model and subtype?
Change that to SetModelAlias = sModelSubString, and it will return just the 4 digit model, i.e. 1706.
'============
    Case "LENOVO"
            ' Check by first 4 characters of the Model
            If SetModelAlias = "" Then
                sModelSubString = Left(sModel,4)
                Select Case sModelSubString
                    Case "1706"
                        SetModelAlias = "ThinkPad X60"
                    Case Else
                        SetModelAlias = sModel
                        oLogging.CreateEntry "USEREXIT:ModelAliasExit.vbs|SetModelAlias - Alias rule not found.  ModelAlias set to Model
value." , LogTypeInfo
                End Select
            End If
'=============
I'm not going to go into a vbscript tutorial here, there are many sites around the net to learn from. Here is a good tutorial on Select Case:
http://technet.microsoft.com/en-us/library/ee176979.aspx