Use Environ var. This Works Only on Windows NT and 2000.
Me.Label1 = "Temp Dir - " & Environ$("temp") Me.Label2 = "Sys Dir - " & Environ$("windir") &IIf(Len(Environ$("OS")), "SYSTEM32", "SYSTEM") Me.Label5 = "User Domain: " & Environ$("USERDOMAIN") Me.Label6 = "User Name: " & Environ$("USERNAME")