Sistem Kurum Tarihini Öğrenme

Sistem kurulum tarihini öğrenmek için bu kodları kullanabilirsiniz.

Sub Sistem_Kurulum_Tarihi()
    Dim Shell As Object, Formats As Date
    Dim Zaman As String, RegKey As String, HexVal As String, SLocal As String
    On Error Resume Next
    Err.Clear
    Set Shell = CreateObject("WScript.Shell")
    RegKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate"
    Times = Shell.RegRead(RegKey)
    If Times <> "" Then
        Formats = DateAdd("s", Times, "1970-01-01 00:00:00")
        RegKey = "HKLM\SYSTEM\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias"
        Deg = Shell.RegRead(RegKey)
        If Deg <> "" Then
            HexVal = Hex(Deg)
            Deg = -CLng("&H" & HexVal)
            SLocal = DateAdd("n", Deg, Formats)
            SLocal = FormatDateTime(SLocal, vbGeneralDate)
            If Err.Number = 0 Then
                Zaman = SLocal
            End If
        End If
    End If
    MsgBox Zaman, vbInformation, "Sistem Kurulum Tarih/Saat"
End Sub

Hoşça kalın !