Determine Model name of PC using Autoit?

[lyledg]

Below is the WMI code we are using to determine a machine model

On Error Resume Next
dim sModel
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
    sModel = objItem.Model
Next

Is there a way to do the same within Autoit? Or is there a DLL call or API call I can use using Autoit?

Cheers

Edited August 2, 2005 by lyledg

[HardCopy]

Below is the WMI code we are using to determine a machine model

On Error Resume Next
dim sModel
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
    sModel = objItem.Model
Next

Is there a way to do the same within Autoit? Or is there a DLL call or API call I can use using Autoit?

Cheers

<{POST_SNAPBACK}>

Someone Posted this the other day:

MsgBox(0,"",RegRead("Hkey_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\", "ProcessorNameString"))

Hardcopy

[quaizywabbit]

do a search for "Scriptomatic" here on these forums...the whole Scriptomatic program was converted to AutoIt, and it generates .au3 scripts...

[lyledg]

Thanks for thre reply Hardcopy, but that gives me the Processor model. I am looking for the brand of of laptop or PC, Say PC or Dell etc..

Thanks for the advice quaizywabbit, will have a look see..

[blindwig]

If it's a branded machine, look for oeminfo.ini in system32 folder. This is the info that shows up in system properties.

[lyledg]

Thanx for all the replies guys, but I have already compiled the script using quaizywabbit's suggestion and it works great!!! Great to know we can finally make an executable outof WMI calls!!!

VERY HAPPY!!! :dance: