Hallo Experten,
ich möchte mit einem einfachen VBScript, das in eine HTML-Seite eingebettet ist, den angemeldeten Benutzer ermitteln.
Das geht, soweit ich schon herausgefunden habe mit folgendem aufruf:
Option Explicit
Private Declare Function GetUserName Lib „advapi32.dll“ _
Alias „GetUserNameA“ (ByVal lpBuffer As String, _
nSize As Long) As Long
Dim RetVal As Long
Dim Puffer As String * 256
Dim UserName As String
RetVal = GetUserName(Puffer, Len(Puffer))
’ Bei vbNullChar „abtrennen“ und anzeigen
If RetVal <> 0 Then
UserName = Left$(Puffer, InStr(1, Puffer, vbNullChar) - 1)
MsgBox "Hallo " & UserName
End If
–>
Allerdings bekomme ich für die ‚Private Declare Function‘-Anweisung jedesmal eine Fehlermeldung „Anweisungsende erwartet“.
Was ist an diesem Aufruf falsch, bzw. wo ist der Unterschied im Gegensatz zu Visual Basic? In VB funktioniert es jedenfalls ohne Probleme.
Vielen Dank für Eure Hilfe