Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Hi, How do I get the username that
- Thread starter mmfried
- Start date
Something like:
Public Declare Function WNetGetUser Lib "mpr" Alias "WNetGetUserA" _
(ByVal x As String, ByVal UserName As String, IBufSz As Long) As Long
Dim BufSz As Long, result As Long, Buffer As String
Dim NullPos As Integer
BufSz = 256
Buffer = String$(BufSz, 0)
result = WNetGetUser("", Buffer, BufSz)
If result = 0 Then
NullPos = InStr(Buffer, Chr(0))
GmsGetUser = Left(Buffer, NullPos - 1)
End If
Public Declare Function WNetGetUser Lib "mpr" Alias "WNetGetUserA" _
(ByVal x As String, ByVal UserName As String, IBufSz As Long) As Long
Dim BufSz As Long, result As Long, Buffer As String
Dim NullPos As Integer
BufSz = 256
Buffer = String$(BufSz, 0)
result = WNetGetUser("", Buffer, BufSz)
If result = 0 Then
NullPos = InStr(Buffer, Chr(0))
GmsGetUser = Left(Buffer, NullPos - 1)
End If
- Thread starter
- #4
- Status
Similar threads
- Locked
- Question
