Writes data from WMI to OEMINFO.ini

WMItoOEMINFO.au3

;Generate oeminfo.ini from wmi
;WMI stuff taken from: http://cyrusbuilt.net/wordpress/?p=79

$objWMI = ObjGet("winmgmts:\\localhost\root\CIMV2")
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20

$objItems = $objWMI.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", 0x10 + 0x20)

If IsObj($objItems) Then
   For $objItem In $objItems
     
    iniwrite("c:\windows\system32\oeminfo.ini", "General","Model",$objitem.Model)
	  iniwrite("c:\windows\system32\oeminfo.ini", "General","Manufacturer",$objitem.Manufacturer)
      ;ConsoleWrite("Manufacturer: " & $objItem.Manufacturer)
      ;ConsoleWrite("Model: " & $objItem.Model)
      ;ConsoleWrite("Name: " & $objItem.Caption)
      ;ConsoleWrite("Description: " & $objItem.Description)
   Next
EndIf