| GetUserName, advapi32.dll |
|
|
| Declare Function GetUserName Lib "advapi32.dll" Alias _ |
| "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long |
|
| Sub ShowUserName() |
| Dim Buffer As String * 100 |
| Dim BuffLen As Long |
| BuffLen = 100 |
| GetUserName Buffer, BuffLen |
| MsgBox Left(Buffer, BuffLen - 1) |
| End Sub |
|
| Function NetUserName() |
| Dim Buffer As String * 100 |
| Dim BuffLen As Long |
| BuffLen = 100 |
| GetUserName Buffer, BuffLen |
| NetUserName = Left(Buffer, BuffLen - 1) |
| End Function |
|
|
|
|
|
|
|
|
|
zurück