[vbscript] Naam uit ldap halen en in register plaatsen

[Xiric]

Ik ben op zoek naar een manier om via vbscript de naam van de gebruiker uit LDAP te halen en die dan weg schrijven in het register.
Dit in verband met een applicatie waarmee je PDF's kan maken en dan moet als auteur de naam van degene komen die op dat moment is ingelogged.
Ik weet niet eens als het mogelijk maar als dat zo is zal het heel mooi zijn.
Het enige relevante topic wat ik kon vinden was [rml][ VBScript]User eigenschappen lezen uit AD[/rml]

het gaat dus niet om de login naam maar om de naam van de gebruiker.

Iets in het register weg schrijven is niet mogelijk

code:

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\test\author", " ?????? ", "REG_SZ"

Iemand enig idee hoe ik daar de naam van de gebruiker in het register krijg ?

Alvast bedankt

[Verwijderd]

Xiric schreef op woensdag 03 augustus 2005 @ 09:07:
Ik ben op zoek naar een manier om via vbscript de naam van de gebruiker uit LDAP te halen en die dan weg schrijven in het register.
Dit in verband met een applicatie waarmee je PDF's kan maken en dan moet als auteur de naam van degene komen die op dat moment is ingelogged.
Ik weet niet eens als het mogelijk maar als dat zo is zal het heel mooi zijn.
Het enige relevante topic wat ik kon vinden was [rml][ VBScript]User eigenschappen lezen uit AD[/rml]

het gaat dus niet om de login naam maar om de naam van de gebruiker.

Iets in het register weg schrijven is niet mogelijk

code:

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\test\author", " ?????? ", "REG_SZ"

Iemand enig idee hoe ik daar de naam van de gebruiker in het register krijg ?

Alvast bedankt

Waarom wil je dat in het register zetten, ze kan toch gewoon een variabele of een tijdelijk bestand zetten?

[Xiric]

met roaming profiles kan er elke keer iemand anders achter die pc zitten dus elke keer een andere auteur. vandaar.

[Equator]

Dus als ik het goed begrijp, weet je wel hoe je de Full Name van de gebruiker uit de LDAP provider moet halen, maar je krijgt deze niet in het register

Visual Basic:

varUsername = ldapusernamegeneuzel
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\test\author", varUsername , "REG_SZ"

Das dan toch niet zo moeilijk

[Xiric]

jah dat snap je goed alleen de sleutel is telkens leeg.
wat ik nu heb ik

code:

Dim objNet, strDisplayName

On Error Resume Next

Set objNet = CreateObject("Wscript.Network") 
Set objUser = CreateObject("ADSystemInfo")
varDisplayname = GetObject("LDAP://" & objUser.DisplayName)
Set oShell = WScript.CreateObject("WScript.Shell") 
oShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\test\author", varDisplayname , "REG_SZ"

[elevator]

maak van:

code:

varDisplayname = GetObject("LDAP://" & objUser.DisplayName)

gewoon eens:

code:

varDisplayname = objUser.DisplayName

:)

[Xiric]

thanx maar sleutel is nog steeds leeg
(is btw ook mijn post op dat andere forum )

[ Voor 40% gewijzigd door Xiric op 03-08-2005 11:11 ]

[Equator]

Zet On Error Resume NExt eens uit.. Zo kan je niet debuggen.
Heb je uberhuabt wel admin rechten.. (Die heb je nodig om in HKEY_LOCAL_MACHINE te schrijven.

[Xiric]

Deze eigenschap of methode wordt niet ondersteund door dit object: 'abjuser.Displayname'
code 800A01B6

Visual Basic:

Dim objNet, strDisplayName
Set objNet = CreateObject("Wscript.Network") 
Set objUser = CreateObject("ADSystemInfo")
varDisplayname = GetObject("LDAP://" & objUser.DisplayName)
Set oShell = WScript.CreateObject("WScript.Shell") 
oShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\test\author", varDisplayname , "REG_SZ"

en ja heb administrator rechten

[ Voor 14% gewijzigd door Xiric op 03-08-2005 11:31 ]

[Verwijderd]

DisplayName is volgens mij de AD propertie "givenName".
Kijk eens naar dit topic voor meer info.

[ Voor 5% gewijzigd door Verwijderd op 03-08-2005 11:40 ]

[Verwijderd]

Ik snap nog niet waarom het het register in moet, je plaatst het gewoon in een file in het profiel van die user en leest die zooi weer uit...

[Xiric]

omdat een bepaald pakket in het register onthoud wie de auteur van dat document is en als er meerdere mensen gebruik maken van die computer de auteur telkens moet verranderen.

maar ik ben al een heel stuk verder
http://portal.loginconsul...adid=915;start=0#lastPost