Kontakt
DSVGO
'Deklarationsteil: Private Declare Function GetComputerNameA Lib "kernel32" _ (ByVal lpBuffer As String, nSize As Long) As Long Private Declare Function GetUserNameA Lib "advapi32.dll" _ (ByVal lpBuffer As String, nSize As Long) As Long 'Prozeduren: Public Function WhereAmI() As String Dim s As String * 255 GetComputerNameA s, Len(s) WhereAmI = Left$(s, InStr(s, vbNullChar) - 1) End Function Public Function WhoAmI() As String Dim s As String * 255 GetUserNameA s, Len(s) WhoAmI = Left$(s, InStr(s, vbNullChar) - 1) End Function
© Jost Schwider, 30.04.2000-30.04.2000 - http://vb-tec.de/login.htm