Página 1 de 1

Verifique la fecha de instalación del sistema operativo

Publicado: 05 Oct 2014, 13:11
por comand
Hola chicos del foro indetectables, como el tema de AutoIt es muy quieto decidieron dejar un script sencillo, pero tal vez un día te necesitan.
$oWMI = ObjGet("winmgmts:\\.\root\CIMV2")
MsgBox(4096, "mensaje", 'El sistema operativo fue installado ' & _getLastInstallDate())
 
Func _getLastInstallDate()
	$oItem = $oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
	For $objItem In $oItem
		$ano = StringMid($objItem.InstallDate, 1, 4)
		$mes = StringMid($objItem.InstallDate, 5, 2)
		$dia = StringMid($objItem.InstallDate, 7, 2)
		$hora = StringMid($objItem.InstallDate, 9, 2)
		$min = StringMid($objItem.InstallDate, 11, 2)
	Next
	Return $dia & "/" & $mes & "/" & $ano & " as " & $hora & ":" & $min
EndFunc
Nota: punto por punto, porque así es como microsoft recomienda.