vb/03-AdsObjectModify/Module1.bas

Attribute VB_Name = "Module1"
Option Explicit

Public Function OpenObject(adsPath As String) As Object

Dim CredentialsObject As IADsOpenDSObject

Set CredentialsObject = GetObject("LDAP:")

'Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "Administrator@nt5dom.msft.com", "", 0)
'Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "cn=root,o=Tunemedia,c=de", "martha", 0)
Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "cn=admin,o=netfrag.org,c=de", "ldap", 0)

End Function

1	Attribute VB_Name = "Module1"
2	Option Explicit
3
4	Public Function OpenObject(adsPath As String) As Object
5
6	Dim CredentialsObject As IADsOpenDSObject
7
8	Set CredentialsObject = GetObject("LDAP:")
9
10	'Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "Administrator@nt5dom.msft.com", "", 0)
11	'Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "cn=root,o=Tunemedia,c=de", "martha", 0)
12	Set OpenObject = CredentialsObject.OpenDSObject(adsPath, "cn=admin,o=netfrag.org,c=de", "ldap", 0)
13
14	End Function
15
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26