MostrarPC

$processador = _DosRun('WMIC CPU GET Manufacturer,Name')
$placaMae = _DosRun('wmic baseboard get product,Manufacturer,version')
$PlacadeVideo = _DosRun('wmic path win32_VideoController get name')
$DriveAudio = _DosRun('wmic SOUNDDEV get ProductName')
$teste = _DosRun('wmic sounddev')
$Sistema = _DosRun('wmic OS get Caption')
$Arquitetura = _DosRun('wmic OS get OSArchitecture')

$aPass = StringReplace("O modelo da placa mãe :" & Replace($placaMae) & "% O modelo do Processador:" & Replace($processador) &  "% O modelo da placa de Video: " & Replace($PlacadeVideo) & "% O modelo do drive de audio: " & Replace($DriveAudio), @CRLF, "")
$bPass = StringReplace($aPass, @CR, "")
$cPass = StringReplace($bPass, "%", @CRLF)


;~ MsgBox(32, "", "A placa Placa Mãe é " & $placaMae & @CRLF & "o Processador é " & @CRLF & $processador)
MsgBox(32, "", $cPass & @cr & 'conteudo copiado para area de transferencia')
ClipPut($cPass)





Func _DosRun($sCommand)
    Local $nResult = Run('"' & @ComSpec & '" /c ' & $sCommand, @SystemDir, @SW_HIDE, 6)
    ProcessWaitClose($nResult)
    Return StdoutRead($nResult)
EndFunc   ;==>_DosRun


 Func Replace($hText)
   $hText = StringReplace($hText, 'Manufacturer', "")
   $hText = StringReplace($hText, 'SerialNumber', "")
   $hText = StringReplace($hText, 'Version', "")
   $hText = StringReplace($hText, 'Name', "")
   $hText = StringReplace($hText, 'product', "")
   $hText = StringReplace($hText, 'ProductName', "")
   Return $htext
 EndFunc   ;==>Replace