Environ Excel

Sub informaciePocitac()
    Debug.Print ("Nainstalovane aplikacie: " & Environ("ALLUSERSPROFILE"))
    Debug.Print ("Meno pocitaca: " & Environ("COMPUTERNAME"))
    Debug.Print ("Hlavny disk: " & Environ("HOMEDRIVE"))
    Debug.Print ("Pouzivatelska zlozka: " & Environ("HOMEPATH"))
    Debug.Print ("Pouzivatelske konto: " & Environ("LOGONSERVER"))
    Debug.Print ("Operacny system: " & Environ("OS"))
    Debug.Print ("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