Username ermitteln (Kein "Getusername_"!)

[CNESM]

Hallo Leute,

also die Möglichkeit mit der Registry hab ich gleich zu Beginn ausgeschlossen. Auch die NET Variante hab ich bereits ausgeschlossen. Leider findet er dort aber ebenfalls keine Informationen:

Der Benutzername konnte nicht gefunden werden.

Sie erhalten weitere Hilfe, wenn Sie NET HELPMSG 2221 eingeben.

Wahrscheinlich ist der FullName in unserem Firmennetzwerk nur auf dem Anmelde-Server hinterlegt.

Davon gehe ich stark aus, das es bei uns genauo ist. Gibts eine Möglichkeit, diese Abfrage im Grunde nachzubauen? Sprich: Schicke Stammnummer an den Server und erhalte den Namen. Irgendwie muss das ja auch Vista regeln ...

[Shardik]

Leider findet er dort aber ebenfalls keine Informationen:

Zitat:
Der Benutzername konnte nicht gefunden werden.

Sie erhalten weitere Hilfe, wenn Sie NET HELPMSG 2221 eingeben.

Der Benutzername konnte nicht gefunden werden.


ERLÄUTERUNG

Sie haben einen unbekannten Benutzernamen angegeben.

AKTION

Überprüfen Sie die Schreibweise des Benutzernamens.
Zur Anzeige einer Liste der Benutzer in der Sicherheitsdatenbank, geben Sie ein:


NET USER

Welche Ausgabe generiert denn "net user"?

[CNESM]

Folgendes:

R:\>NET USER

Benutzerkonten für \\HH00408D

-------------------------------------------------------------------------------
Administrator ASPNET Gast
SCBAdmin
Der Befehl wurde erfolgreich ausgeführt.

[jpd]

wenn du benutzer der domäne suchst..

dann verwende:

net user /domain

Ciao
jpd

[CNESM]

@ jpd

Da kriege ich nur ne ganze Latte von irgendwelchen Domainen, aber daraus irgendwie meinen Namen ableiten zu können, sehe ich nicht.

[jpd]

Hi CNESM,

so ist es auch möglich:

net user username /domain

ich gehe davon aus dass alle andere beispiele auch funktionieren,

du hast immer den localen benutzer abgefragt-

bei nicht local user müsstes du den computername bei alleistehende server (workgroup) verwenden,

computername\username


oder den domainname (bei domäne)

domain\username

Ciao
jpd

[CNESM]

Yes, das war's:

Code: Alles auswählen

Define FullName.S 
Define Output.S 
Define ProgramID.I 
Define UserID.S = "****" ; <-- Bitte User-ID eintragen 

ProgramID = RunProgram("Net", " User " + UserID+" /domain", "", #PB_Program_Hide | #PB_Program_Open | #PB_Program_Read) 

If ProgramID  
  While ProgramRunning(ProgramID) 
    Output + ReadProgramString(ProgramID) + #CR$ 
  Wend 

  FullName = StringField(Output, 4, #CR$) 
  Debug Trim(Mid(FullName, FindString(UCase(FullName), "NAME", 1) + 4)) 
EndIf

Vielen Dank jod! Vielleicht könnten die andere das auch nochmal testen, damit ich weiß, das das auch ne gängige Lösung ist!

[Shardik]

Vielleicht könnten die andere das auch nochmal testen, damit ich weiß, das das auch ne gängige Lösung ist!

Diese Lösung funktioniert bei mir im Firmennetzwerk nicht, weil ich nicht bei einer Domäne angemeldet bin, sondern bei einem Novell Netware Server (Novell Workstation Manager):

Die Anforderung wird auf einem Domänencontroller für Domäne xxx verarbeitet.

Systemfehler 1355 aufgetreten.

Die angegebene Domäne ist nicht vorhanden oder es konnte keine Verbindung hergestellt werden.

Funktioniert denn eines meiner Beispiele mit NetUserGetInfo_(), wenn Du beim NetUserGetInfo()-Aufruf vor die "P46789" den Domänennamen einträgst, wie "\\123_ADS\P46789" oder "123_ADS\P46789"? Zumal Du geschrieben hattest:
> Auch die NET Variante hab ich bereits ausgeschlossen.

[CNESM]

@ Shardik

Ich hab mal ein bissle mit der Funktion NetUserGetInfo_() und den neuen Erkenntnissen rumgespielt, aber trotzdem keine Ausgabe des FullRealNames erwirken können. Vielleicht man ich auch nur wieder etwas falsch

[bobobo]

code geht (mit ohne unicode)

mit unicode wie folgt

Code: Alles auswählen

..
..
..
    Output + ReadProgramString(ProgramID) + #CR$ 
  Wend 
  output.s=PeekS(@output,Len(output),#PB_Ascii)  ; dies hier rein tun
  FullName = StringField(Output, 4, #CR$) 
..