selfhtml.de - Alles für den Webmaster!

Anzeige: united-domains - Die ganze Welt der Domains

ASP Public Function in DIm Variable speichern

Autor: jaenu1989 [Beiträge: 1]
Datum: 26.04.2010 01:12:09

Hallo Zusammen. Nachdem ich zu dieser Frage in einem anderen Forum keine Antworten gefunden habe versuche ich es nun hier. Und zwar habe ich folgendes Problem:

Ich habe eine Funktion geschrieben, die die Mail adresse eines Users aus dem AD heraussucht und ausgibt. Nun möchte ich die Ausgabe dieser funktion in einer Variable speichern.
Mein Problem liegt glaub dadrin dass ich den Wald lauter Bäume nicht mehr sehe. Ich glaube eigentlich ist es ganz banal und einfach aber ich komme nicht drauf!

Meine Funktion:


response.write GetMailAddress(*USERNAME","*DOMÄNE*","","")

Public Function GetMailAddress(strUsername, strDnsDomain, strAccount, strPassword)

Dim objConnection, objCommand, objRecordSet
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"

objConnection.Properties("User ID") = "*AD-USER*"
objConnection.Properties("Password") = "*AD-USER-PASSWORT*"
objConnection.Properties("Encrypt Password") = True
objConnection.Properties("ADSI Flag") = 1

objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.CommandText = "SELECT mail FROM 'LDAP://" & strDnsDomain & "' WHERE objectCategory='user' AND Name='" & strUsername & "'"

On Error Resume Next
Set objRecordSet = objCommand.Execute

If Err.Number <> 0 Then Exit Function

objRecordSet.MoveFirst

GetMailAddress=objRecordSet.Fields("mail").Value

Set objConnection = Nothing
Set objCommand = Nothing
Set objRecordSet = Nothing

End Function



Diese funktion will ich in eine Dim Variable speichern!

Danke schon jetzt für die Antworten!

Antwort schreiben

Username:	Usernamen registrieren
Passwort:	Passwort vergessen?
Thema:
	Bitte benutze für deinen Beitrag die Groß-/Kleinschreibung!
Beitrag:	> Hallo Zusammen. Nachdem ich zu dieser Frage in > einem anderen Forum keine Antworten gefunden habe > versuche ich es nun hier. Und zwar habe ich > folgendes Problem: > > Ich habe eine Funktion geschrieben, die die Mail > adresse eines Users aus dem AD heraussucht und > ausgibt. Nun möchte ich die Ausgabe dieser > funktion in einer Variable speichern. > Mein Problem liegt glaub dadrin dass ich den Wald > lauter Bäume nicht mehr sehe. Ich glaube > eigentlich ist es ganz banal und einfach aber ich > komme nicht drauf! > > Meine Funktion: > > > response.write > GetMailAddress(*USERNAME","*DOMÄNE*","","") > > Public Function GetMailAddress(strUsername, > strDnsDomain, strAccount, strPassword) > > Dim objConnection, objCommand, objRecordSet > Const ADS_SCOPE_SUBTREE = 2 > > Set objConnection = > CreateObject("ADODB.Connection") > Set objCommand = CreateObject("ADODB.Command") > objConnection.Provider = "ADsDSOObject" > > objConnection.Properties("User ID") = > "*AD-USER*" > objConnection.Properties("Password") = > "*AD-USER-PASSWORT*" > objConnection.Properties("Encrypt Password") = > True > objConnection.Properties("ADSI Flag") = 1 > > objConnection.Open "Active Directory Provider" > Set objCommand.ActiveConnection = objConnection > > objCommand.CommandText = "SELECT mail FROM > 'LDAP://" & strDnsDomain & "' WHERE > objectCategory='user' AND Name='" & > strUsername & "'" > > On Error Resume Next > Set objRecordSet = objCommand.Execute > > If Err.Number <> 0 Then Exit Function > > objRecordSet.MoveFirst > > GetMailAddress=objRecordSet.Fields("mail").Value > > Set objConnection = Nothing > Set objCommand = Nothing > Set objRecordSet = Nothing > > End Function > > > > Diese funktion will ich in eine Dim Variable > speichern! > > Danke schon jetzt für die Antworten! >
Link (URL):
Titel für Link:
Grafik (URL):
	Die Breite der Grafik darf 468 Pixel nicht überschreiten.

E-Mail-Benachrichtigung:

wenn auf einen Beitrag zu diesem Thema geantwortet wird
nur wenn auf meinen eigenen Beitrag geantwortet wird
nie

Zum Abschicken deines Beitrags bitte die Schaltfläche "Abschicken" nur einmal anklicken und warten. Der Server braucht manchmal einige Zeit, bis er den Beitrag in die Datenbank übernommen hat. Wenn du die Schaltfläche mehrmals drückst, erscheint dein Beitrag auch mehrmals im Forum.

Bewerten Sie Ihren Webhosting-Provider

Wie zufrieden sind Sie mit Ihrem Webhosting-Provider? Gibt es Probleme beim Service, mit der Performance oder der Abrechnung?

Teilen Sie jetzt Ihre Erfahrungen mit anderen Webmastern und schreiben Sie eine Provider-Bewertung. Mit etwas Glück können Sie ein Apple iPad gewinnen!

Weitere Informationen und Teilnahme...