Recuperare la data di installazione del sistema operativo

Imports System.Management

Imports System.Globalization

Public Function InstallDateSO() As DateTime?

    Dim dtmInstallDate As DateTime? = Nothing

    Dim oSearcher As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")

    Dim oMgmtObj = oSearcher.Get().OfType(Of ManagementObject)().FirstOrDefault()

    If oMgmtObj IsNot Nothing Then

        Dim str = oMgmtObj("InstallDate").ToString()

        dtmInstallDate = System.DateTime.ParseExact(str.Substring(0, str.Length - 4),

                                                    "yyyyMMddHHmmss.ffffff",

                                                    CultureInfo.InvariantCulture)

    End If

    Return dtmInstallDate

End Function

using System.Management;

using System.Globalization;

public DateTime? InstallDateSO()

{

    DateTime? dtmInstallDate = null;

    var oSearcher = new ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem");

    var oMgmtObj = oSearcher.Get().OfType<ManagementObject>().FirstOrDefault();

    if (oMgmtObj != null)

    {

        string strValue = oMgmtObj.GetPropertyValue("InstallDate").ToString();

        dtmInstallDate = System.DateTime.ParseExact(strValue.Substring(0, strValue.Length - 4),

                                                    "yyyyMMddHHmmss.ffffff",

                                                    CultureInfo.InvariantCulture);

    }

    return dtmInstallDate;

}