[VB] Username/Loginname opzoeken - Client software algemeen

vrijdag 20 april 2007 13:35

Acties:

Topicstarter

Voor een project moet ik de loginnaam hebben die gebruikt wordt om op het domein in te loggen. Aan de hand hiervan wordt een e-mail template opgebouwd, die naar externe klanten verstuurd moet worden.

Inmiddels heb ik een functie gevonden (.Application.Username), maar die geeft de volledige naam terug van de user (voornaam + achternaam volledig uitgeschreven). Wat ik wil is: Domein\Username. Ik kan helaas deze functie niet vinden in Office VB.

Weet iemand een andere functie , of misschien in welke VB Library deze functie zit? Dit is namelijk een zeer belangrijk onderdeel, omdat a.d.h.v. de Win Loginname, de volgende gegevens worden opgezocht: functie, telefoonnummer, faxnummer, logo (bovenaan in de mail), email adres, website, enzovoort. Deze gegevens zijn gekoppeld aan een inlognaam in de backend.

vrijdag 20 april 2007 14:23

Acties:

Janoz

Moderator Devschuur®

!litemod

Naast dat -nme- aangaf dat je een nieuw topic zou moeten maken gaf hij ook aan dat je dit op de juiste plek zou moeten doen

.

Ik verplaats hem even van PRG naar OFF

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'

vrijdag 20 april 2007 14:25

Acties:

Acid__Burn

Topicstarter

@Janoz:

Het spijt me... heb geprobeerd het netjes te doen, en kwam in PRG VB tegen... Het resultaat is bekend...

Volgende keer beter opletten *taking mental note*

vrijdag 20 april 2007 14:26

Acties:

StevenK

Ik lees daar altijd de environmentvariabele %USERNAME% voor uit.

Was advocaat maar vindt het juridische nog steeds leuk. Doet tegenwoordig iets in de metaal.

vrijdag 20 april 2007 14:32

Acties:

Acid__Burn

Topicstarter

@StevenK:

Helaas werkt die niet. Ik ken die syntax idd, maar die werkt niet in VB 6.3/Office VB...

Tevens krijg ik de WHERE statement niet voor elkaar:

sSQL = "SELECT [Velden] FROM Q_Medewerker_2 WHERE NAAM = (LoginName);"
(Access query). Hoe moet ik dit oplossen?

vrijdag 20 april 2007 14:34

Acties:

StevenK

Acid__Burn schreef op vrijdag 20 april 2007 @ 14:32:
@StevenK:

Helaas werkt die niet. Ik ken die syntax idd, maar die werkt niet in VB 6.3/Office VB...

Ik zeg toch ook niet dat ik die syntax gebruik. In VBA is 't bijvoorbeeld

code:

1	environ("username")

Tevens krijg ik de WHERE statement niet voor elkaar:

sSQL = "SELECT [Velden] FROM Q_Medewerker_2 WHERE NAAM = (LoginName);"
(Access query). Hoe moet ik dit oplossen?
[/quote]

code:

1	sSQL = "SELECT [Velden] FROM Q_Medewerker_2 WHERE NAAM = '" & username & "';"

Was advocaat maar vindt het juridische nog steeds leuk. Doet tegenwoordig iets in de metaal.

vrijdag 20 april 2007 14:45

Acties:

Verwijderd

Zie MSDN
Nu nog ff uitzoeken hoe je die DLL moet aanroepen

vrijdag 20 april 2007 15:02

Acties:

ParaNoiMia

Acid__Burn schreef op vrijdag 20 april 2007 @ 14:32:
@StevenK:

Helaas werkt die niet. Ik ken die syntax idd, maar die werkt niet in VB 6.3/Office VB...

Ik heb hier VBA in Word en Outlook gepakt maar daar werkt dit gewoon:

Environ("userdomain") & "\" & Environ("username")

Werkt dat bij jou echt niet ?

[ Voor 6% gewijzigd door ParaNoiMia op 20-04-2007 15:03 ]

vrijdag 20 april 2007 15:20

Acties:

Acid__Burn

Topicstarter

ParaNoiMia schreef op vrijdag 20 april 2007 @ 15:02:
[...]

Ik heb hier VBA in Word en Outlook gepakt maar daar werkt dit gewoon:

Environ("userdomain") & "\" & Environ("username")

Werkt dat bij jou echt niet ?

@:StevenK: Je bent goooeeed!!! Deze syntax werkt wel. Die ben ik ook nog niet tegengekomen bij een zoekrondje Google... $_/-\o_$
De WHERE clausule werkt nu ook. Misschien heel beschamend, maar ik was de single quotes vergeten...

Thanx M8's!!!