Hejsan!
det är första gången jag är inne här, har stött på ett litet problem på jobbet...
Jag håller på med en asp-applikation som skall skapa användarkonto till active directory, och jag har inga problem med att skapa active directory kontot. Men däremot har jag väldiga problem med att aktivera e-mailkontot mot Exchangeservern....

Vilka Active directory schema egenskaper/funktioner skall jag använda för att aktivera kontot mot exchangeservern ?
Eller har ni kanske nån kod som man kan få och studera ?

Hoppas att ni förstår mitt problem, och är tacksam för svar !

MVH/ Daniel

Titta på www.cdolive.com - där finns mycket och förhoppningsvis finner du den kod du behöver där.

Hälsningar
/Pelle

Tack så mycket....
Skall genast in o kolla !

Ville bara berätta att jag löst detta problem nu...
Min kod som jag skickar med har jag i princip bara tagit och klipp/klistrat in. Hoppas någon kan få ut något av det...

Koden :

<code>
Private Sub Main()

Set oContainer = GetObject("XXX") ' XXX = Sökvägen dit du vill skapa kontot

' Skapa kontot mot AD

Set oadsnew = oContainer.Create("user", "cn=" & cstr(rs("visningsnamn")))

oadsnew.samaccountname = cstr(rs("login"))
oadsnew.givenname = cstr(rs("fornamn"))
oadsnew.sn = cstr(rs("efternamn"))
oadsnew.middlename = cstr(rs("mellannamn"))
oadsnew.DisplayName = cstr(rs("visningsnamn"))
If rs("epost")=1 then oadsnew.mail = cstr(rs("mail"))
oadsnew.Description = cstr(rs("befattning"))
oadsnew.TelephoneNumber = cstr(rs("telefon"))
oadsnew.Title = cstr(rs("befattning"))
oadsnew.homedrive = cstr(rs("homedrive"))
oadsnew.HomeDirectory =cstr(rs("homedir"))
oadsnew.profilepath = cstr(rs("profil"))
oadsnew.scriptpath = cstr(rs("script"))
oadsnew.postalcode = cstr(Request.Form("txt_postnr"))
oadsnew.streetaddress = cstr(Request.Form("txt_gata"))
oadsnew.l=cstr(Request.Form("txt_stad"))
oadsnew.Department = cstr(adfunc.namn(rs("forvaltning"),rs("klinik"),rs("avdelning")))
oadsnew.Department = cstr(adfunc.namn(rs("forvaltning"),rs("klinik"),""))
oadsnew.company = cstr(adfunc.Namn(rs("forvaltning"),"",""))

oadsnew.SetInfo

oadsnew.setpassword "password"
oadsnew.pwdlastset=0
oadsnew.AccountDisabled = False

oadsnew.setinfo

' Registrering mot Exchange2000

strExchServer="ExchServer" ' "ExchServer" = Exchangeservern
strAddress = adsUser.EmailAddress
Set cdoExMailbox = adsUser
strMailBoxPath = MBStorePath(strExServer)
cdoExMailbox.CreateMailbox strMailBoxPath
cdoExMailbox.SMTPEmail = strAddress

oadsnew.SetInfo

Set cdoExMailbox = Nothing

End Sub


' Funktion för att ta reda på Path till Mailboxen

Public Function MBStorePath(strExServer)

Set cdoExMServer = CreateObject("CDOEXM.ExchangeServer")
Set cdoExMStorageGroup = CreateObject("CDOEXM.StorageGroup")
Set cdoExMMailboxStore = CreateObject("CDOEXM.MailboxStoreDB")

Set cdoDS2 = cdoExMServer.DataSource
cdoDS2.Open strExServer

For Each varStorageGroup In cdoExMServer.StorageGroups
cdoExMStorageGroup.DataSource.Open varStorageGroup
For Each varMailboxStore In cdoExMStorageGroup.MailboxStoreDBs
cdoExMMailboxStore.DataSource.Open varMailboxStore
If (cdoExMMailboxStore.Enabled = True) Then
' Return the name of the mailbox store on this server
MBStorePath = "LDAP://" & varMailboxStore
End If
Next
Next

Set cdoExMServer = Nothing
Set cdoExMStorageGroup = Nothing
Set cdoExMMailboxStore = Nothing

End Function

</code>