Como saber qual usuário está logado
No Windows 95, o computador pode ser configurado para que vários usuários se logam no mesmo equipamento.
O nome do usuário logado no micro pode ser obtido pelo seguinte código:
Dim s As String
Dim cnt As Long
Dim dl As Long
Dim CurUser as String
cnt = 199
s = String$(200, 0)
dl = GetUserName(s, cnt)
If dl <> 0 Then curuser = Left$(s, cnt) Else curuser = “”
‘ Declare a seguinte função na secção de declaração do Form ou no Módulo.
Declare Function GetUserName Lib “advapi32.dll” Alias _
“GetUserNameA” (ByVal lpBuffer As String, nSize As Long) _
As Long