De grande utilidade o comando Environ("Comando") retornar diversas variáveis inerentes ao sistema operacional.
Ex: Environ("USERNAME") >> Retorna o nome do Usuário..
Para listar todas as varáveis conseguidas com o comando environ:
Cumprimentos.
Ex: Environ("USERNAME") >> Retorna o nome do Usuário..
Para listar todas as varáveis conseguidas com o comando environ:
Dim EnvString As String
Indx = 1
Do
EnvString = Environ(Indx)
Indx = Indx + 1
MsgBox EnvString
Loop Until EnvString = ""
Cumprimentos.