AD Attribute per VBS auslesen

[Manuel1990]

Hi Leute,

stehe im Moment vor folgendem Problem:

Wir müssen im Logonscript per VBS auslesen können ob der jeweillige Benutzer ein gewisses AD Attribut ausgefüllt hat und wenn nicht ihn daran erinnern. Ich kenne mich im Bereich VBS leider nur sehr schlecht aus weswegen ich auch nicht wirklich weiterkomme... Angefangen habe ich mit folgenden Befehlen:

Set objNetwork = CreateObject ("WScript.Network")

Set objuser = GetObject("LDAP://DC/cn=" & objnetwork.Username & ",ou=*****,ou=****,ou=*****,dc=****,dc=**") 'Zugriff auf AD

Nur kann ich ja mit dem Benutzernamen alleine das Objekt nicht finden und somit nicht auslesen... Kann mir da jemand weiterhelfen?

Grüsse
Manuel

[mamamia]

Wie "erinnerst" du ihn daran und muss er das dann selber füllen?
Um welches Attribut handelt es sich denn?

[Manuel1990]

Hi Mamamia,

hat sich erledigt! Hier die Lösung:

Set WSHShell = CreateObject("WScript.Shell")

Set strSysInfo = CreateObject("ADSystemInfo")
Set CrUser = GetObject("LDAP://" & strSysInfo.Username & "")

strUser = CrUser.FullName
strsq = CrUser.Gewünschtes Attribut

if strsq <> "" then
WScript.quit
end if

MsgBox "Blablablabla"
Return = WshShell.Run("iexplore.exe http://*********", 1)

Grüsse

[blub]

Hallo Manuel,
Ich weiss nicht mehr, wie VBS leere Attribute behandelt. Teste mal, ob ein Unterschied besteht, wenn das Attribut leer ist, oder null.

leer: Es stand mal ein Wert drinnen, aber der wurde gleöscht
null: es gab noch nie einen Wert

.Net hat für beide Fälle die "NullOrEmpty"-Eigenschaft, VBS weiss ichs nicht.

blub

[NilsK]

Moin,

Zitat von blub Ich weiss nicht mehr, wie VBS leere Attribute behandelt. Teste mal, ob ein Unterschied besteht, wenn das Attribut leer ist, oder null.

auf jeden Fall sollte man die Abfrage von Attributen, die auch leer sein können, in VBS immer in einen On-Error-Block einfassen, z.B.:

myVar = ""
On Error Resume Next
myVar = objUser.MyAttribute
On Error Goto 0
If myVar = "" Then WScript.Echo "Attribut hat keinen Wert."

Gruß, Nils