Hej Alle VB-Folk.
Jeg skal lige bruge koden til at hente brugernavnet fra
Windows.
SÅ HVIS DU HAR DEN SÅ MAIL
PÅ forhånd tak.
mvh. Zakarias
1.del skal i topppen
<pre>
Option Explicit
Private Declare Function WNetGetUserA Lib "mpr" (ByVal lpname
As String, ByVal lpUserName As String, lpnlength As Long) As Long
</pre>
2.del skal bare være et sted i koden for sig selv det er en funktion
<pre>
Function HentBruger() As String
Dim Bruger As String * 255
Bruger = Space(255)
Call WNetGetUserA(vbNullString, Bruger, 255&)
HentBruger = Left$(Bruger, InStr(Bruger, vbNullChar) - 1)
End Function
</pre>
3. del er der du bruger funktion at til at finde brugern
<pre>
Private Sub Command1_Click()
MsgBox HentBruger()
End Sub
<pre>
Mvh.
Thomas Christensen
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41