Hallo,
ich möchte mittels eines Usernamens herausfinden an welchen Rechnern sich gerade dieser User befindet bzw. eingelogt ist.
Wie kann ich das bewerkstelligen. Ich bräuchte jeden Rechner im Firmennetzwerk an dem er sich gerade angemolden befindet.
bitte um hilfe.
lg
Bernhard
Hallo,
ich möchte mittels eines Usernamens herausfinden an welchen
Rechnern sich gerade dieser User befindet bzw. eingelogt ist.Wie kann ich das bewerkstelligen. Ich bräuchte jeden Rechner
im Firmennetzwerk an dem er sich gerade angemolden befindet.
Wie Du das mit einem VB-Programm bekommst weiß ich nicht (ich suche aber noch 
), aber wo Du es auf dem Server findest. (W2k-Server)
-> Computerverwaltung -> Freigegebene Ordner -> Sitzungen.
Da steht genau das. Eventuell hilft Dir das ja weiter.
cu Rainer
Hallo,
danke für deine Hilfe. Habe am Server geschaut habe da nicht alles user gefunden … aber es ist mal ein ansatz.
Nur ich brauche es halt per VB … da ich das in ein Programm einbauen sollt.
lg
Bernhard
Hallo Bernhard,
dann frage ich noch mal genau nach, welches BS?
Ich habe das hier auf Windows2000 Server an der Stelle gefunden.
Wie das mit VB geht (VB6 Enterprise Edition) weiß ich immer noch nicht, heute Abend habe ich Zeit zum suchen…
cu Rainer
hallo ihr beiden,
das was ihr möchtet funtkioniert nur über einen api-call – für „.net“ mich bitte nochmal fragen.
folgendes habe ich für euch wobei sich der username ganz bequem über die erste befehlszeile ausgeben lässt
UserNameNT = ClipNull(GetUser())
'apicall
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Global UserNameNT As String
Function ClipNull(InString As String) As String
Dim intpos As Integer
On Error Resume Next
If Len(InString) Then
intpos = InStr(InString, vbNullChar)
If intpos \> 0 Then
ClipNull = Left(InString, intpos - 1)
Else
ClipNull = InString
End If
End If
End Function
Function GetUser() As String
Dim lpUserID As String
Dim nBuffer As Long
Dim Ret As Long
On Error Resume Next
lpUserID = String(25, 0)
nBuffer = 25
Ret = GetUserName(lpUserID, nBuffer)
If Ret Then
GetUser$ = lpUserID$
End If
End Function
hoffe es hilft
gruß
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Bernhard,
sieh Dir das mal an.
http://www.planetsourcecode.com/vb/scripts/ShowCode…
Und probier da mal ‚Finger‘ aus.
cu Rainer
wer lesen kann ist klar im vorteil…
und das hätte ich mal machen sollen bevor ich antworte 
gruß
rasta
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Meinst Du weil’s um VB6 und nicht .NET ging?
Macht doch nichts, eventuell liest es ja jemand, der es für .NET braucht.
cu Rainer
nein, meine lösung ist höchstens für ein teilstück des problems zu gebrauchen
gruß
rasta
Meinst Du weil’s um VB6 und nicht .NET ging?
Macht doch nichts, eventuell liest es ja jemand, der es für
.NET braucht.
cu Rainer
Hallo rasta,
tja, dann hätte ich wohl auch lesen sollen.
Weil ich .NET nicht kenne, habe ich mir Deinen Code nicht angesehen.
Tschuldigung.
cu Rainer
Hallo,
Betriebssystem XP. Dh. die Clients haben ALLE Xp.
Ich möchte einfach einen Loginnamen in a Textbox eingeben … Button drücken und a Liste der Rechner kriegen wo mit diesem User gerade eingelogt wurde/ist.
Danke für all eure antworten.
Bräuchte das in Visual Basic. Bzw. Tipps die mir in VB weiter helfen.
Danke nochmals
@RASTA mit deinem Code lese ich ja den „lokalen“ Usernamen aus. Oder hab ich da was übersehen. Ich bräuche wie gesagt was anderes.
ABER DANKE!!!