Comando para sacar marca del disco duro

[kriz96]

Código: Seleccionar todo

; Generated by AutoIt Scriptomatic

 $wbemFlagReturnImmediately = 0x10
 $wbemFlagForwardOnly = 0x20
 $colItems = ""
 $strComputer = "localhost"

 $Output=""
 $Output = $Output & "Computer: " & $strComputer  & @CRLF
 $Output = $Output & "==========================================" & @CRLF
 $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
 $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _
                                           $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

 If IsObj($colItems) then
    For $objItem In $colItems
       
       $Output = $Output & "Caption: " & $objItem.Caption & @CRLF
       
       if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
       $Output=""
    Next
 Else
    Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_DiskDrive" )
 Endif


 Func WMIDateStringToDate($dtmDate)

     Return (StringMid($dtmDate, 5, 2) & "/" & _
     StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
     & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
 EndFunc

Una ayuda vi este código en la red es para obtener pero no me sale en lugar de que me despliegue el msgbox que se guarde en un documento de texto

alguna ayuda ya que soy nuevo en esto estoy prendiendo pero aun me trabo en algunas cosas


Gracias por su ayuda

[Chefito]

Mira en la ayuda los comandos FileWrite y FileWriteLine y adapta sus ejemplos.

Saludos.