WMI detection af laptop

Dette burde virke:

bNotebook = False
sFullPathToMSI = "msi-filnavn-her"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colChassis = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_SystemEnclosure")

For Each objChassis in colChassis
    For Each intType in objChassis.ChassisTypes
        If intType = 9 Or intType = 10 Then
          bNotebook = True
          Exit For
        End If
    Next
    Exit For
Next

If bNotebook Then
  Set msi = CreateObject("WindowsInstaller.Installer")
  ' set the UI level to basic
  msi.UILevel = 3
  ' launch the installer
  msi.InstallProduct sFullPathToMSI, ""
  ' clean up
  Set msi = Nothing
End If

Læs mere om MSI UIlevels her:
http://www.installshield.com/news/newsletter/0212-articles/uilevels.asp

Just perfect !

Mange tak for hjælpen.

stoney