Environ

Sub informaciePocitac()
    MsgBox ("Nainstalovane aplikacie: " & Environ("ALLUSERSPROFILE"))
    MsgBox ("Meno pocitaca: " & Environ("COMPUTERNAME"))
    MsgBox ("Hlavny disk: " & Environ("HOMEDRIVE"))
    MsgBox ("Uzivatelska zlozka: " & Environ("HOMEPATH"))
    MsgBox ("Uzivatelske konto: " & Environ("LOGONSERVER"))
    MsgBox ("Operacny system: " & Environ("OS"))
    MsgBox ("Adresar Windows: " & Environ("windir"))
End Sub

Sub infoPC()
    For i = 1 To 255
        info = Environ(i)
        Cells(i + 1, "A").Value = i
        Cells(i + 1, "B").Value = info
    Next
End Sub