Getting Computer name and User Name
-----------------------------------------
Is it possible to get the name of the Computer using vba?
(i.e. debug.print computerName) PS.

How can you get the user name from the loged in user in a network
(without using application.username)?

What I want to know is who is the person using my program and
which PC is he or she using.

Thank you for helping.


Jan

debug.print environ("computername")

and

debug.print environ("username")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jan G. Thorstensen" wrote in message
...
Getting Computer name and User Name
-----------------------------------------
Is it possible to get the name of the Computer using vba?
(i.e. debug.print computerName) PS.

How can you get the user name from the loged in user in a network
(without using application.username)?

What I want to know is who is the person using my program and
which PC is he or she using.

Thank you for helping.


Jan

http://www.erlandsendata.no/english/index.php?t=envbaos

--
Regards,
Tom Ogilvy

"Jan G. Thorstensen" wrote in message
...
Getting Computer name and User Name
-----------------------------------------
Is it possible to get the name of the Computer using vba?
(i.e. debug.print computerName) PS.

How can you get the user name from the loged in user in a network
(without using application.username)?

What I want to know is who is the person using my program and
which PC is he or she using.

Thank you for helping.


Jan

Thank you so much!
That did the trick...

Jan

"Bob Phillips" skrev i melding
...
debug.print environ("computername")

and

debug.print environ("username")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jan G. Thorstensen" wrote in message
...
Getting Computer name and User Name
-----------------------------------------
Is it possible to get the name of the Computer using vba?
(i.e. debug.print computerName) PS.

How can you get the user name from the loged in user in a network
(without using application.username)?

What I want to know is who is the person using my program and
which PC is he or she using.

Thank you for helping.


Jan

Hi Tom
Is alvin
I have try this but i don't know how to get it to work

Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function ReturnUserName() As String
' returns the NT Domain User Name
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetUserName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnUserName = UCase(Trim(tString))
End Function

How to i call the function and how do i get the username
i believe the username is in Returnusername?

Alvin


"Tom Ogilvy" skrev:

http://www.erlandsendata.no/english/index.php?t=envbaos

--
Regards,
Tom Ogilvy

"Jan G. Thorstensen" wrote in message
...
Getting Computer name and User Name
-----------------------------------------
Is it possible to get the name of the Computer using vba?
(i.e. debug.print computerName) PS.

How can you get the user name from the loged in user in a network
(without using application.username)?

What I want to know is who is the person using my program and
which PC is he or she using.

Thank you for helping.


Jan

Sorry i have fout out how

Thanks anyway tom

Alvin


"Alvin Hansen" skrev:

Hi Tom
Is alvin
I have try this but i don't know how to get it to work

Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function ReturnUserName() As String
' returns the NT Domain User Name
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetUserName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnUserName = UCase(Trim(tString))
End Function

How to i call the function and how do i get the username
i believe the username is in Returnusername?

Alvin


"Tom Ogilvy" skrev:

http://www.erlandsendata.no/english/index.php?t=envbaos

--
Regards,
Tom Ogilvy

"Jan G. Thorstensen" wrote in message
...
Getting Computer name and User Name
-----------------------------------------
Is it possible to get the name of the Computer using vba?
(i.e. debug.print computerName) PS.

How can you get the user name from the loged in user in a network
(without using application.username)?

What I want to know is who is the person using my program and
which PC is he or she using.

Thank you for helping.


Jan

Note that the environ approach won't work with Windows 95 / 98 / ME. Not
sure about OSX.

Best wishes Harald


"Bob Phillips" skrev i melding
...
debug.print environ("computername")

and

debug.print environ("username")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jan G. Thorstensen" wrote in message
...
Getting Computer name and User Name
-----------------------------------------
Is it possible to get the name of the Computer using vba?
(i.e. debug.print computerName) PS.

How can you get the user name from the loged in user in a network
(without using application.username)?

What I want to know is who is the person using my program and
which PC is he or she using.

Thank you for helping.


Jan