converting batch command to AutoIT equivalence

[MarkS]

I have this cmd line string:

for /f 'tokens=2 usebackq skip=1' %%v in (`wmic csproduct get name`) do set modl=%%v

When executed, it sets the variable of "modl" with D830 (I'm on a Dell Latitude D830).

Is there an equivalent way to do it in AutoIt?

I seem to have a mental block when it comes to for/f loops.

Thanks

Mark

[PsaltyDS]

You can access the WMI COM object interface directly with AutoIt, but if you want to use the command line WMIC:

#include <Constants.au3>

Global $sExtCmd = "wmic csproduct get name"
Global $iPID = Run($sExtCmd, @WorkingDir, @SW_MINIMIZE, $STDOUT_CHILD)
Global $sStdOut = ""
Do
    $sStdOut &= StdoutRead($iPID)
Until @error
Global $sName = StringStripWS(StringMid($sStdOut, StringInStr($sStdOut, @CRLF)), 1+2)

MsgBox(64, "Name", "$sName = " & $sName)

Edited August 4, 2010 by PsaltyDS

[MarkS]

You can access the WMI COM object interface directly with AutoIt, but if you want to use the command line WMIC:

#include <Constants.au3>

Global $sExtCmd = "wmic csproduct get name"
Global $iPID = Run($sExtCmd, @WorkingDir, @SW_MINIMIZE, $STDOUT_CHILD)
Global $sStdOut = ""
Do
    $sStdOut &= StdoutRead($iPID)
Until @error
Global $sName = StringStripWS(StringMid($sStdOut, StringInStr($sStdOut, @CRLF)), 1+2)

MsgBox(64, "Name", "$sName = " & $sName)

Thanks for the quick reply, that really did the trick. So, how do you access wmi directly? Is it using the _WinAPI functions? Sorry, this is kinda new to me. I've been using batch files for 20 years but I'm beginning to see benefits of expanding my horizons.....

[PsaltyDS]

Basically, anything you do in Scriptomatic with VBScript is pretty easy to translate into AutoIt:

Global $oWMI = ObjGet("winmgmts:")
Global $colCS = $oWMI.ExecQuery("Select * from Win32_ComputerSystem")
Global $colBIOS = $oWMI.ExecQuery("Select * from Win32_BIOS")
Global $sModel, $sSerial

For $oComputer In $colCS
    $sModel = $oComputer.Model
Next

For $oComputer In $colBIOS
    $sSerial = $oComputer.SerialNumber
Next

MsgBox(64, "Results", "Model = " & $sModel & @CRLF & "SN = " & $sSerial)