Fråga : Summariskt foto på utbytet 2007

Hälsningar förmiddagen för

I undrar precis, om denna är möjligheten på för href=" http://msexchangeteam.com/archive/2010/03/10/454223.aspx " för utbytet 2k7

http://msexchangeteam.com/ archive/2010/03/10/454223.aspx

I, kan inte verka för att få den funktionsduglig. " klar "

Svar : Summariskt foto på utbytet 2007

som precis followupen skriva jag anknöt till bruk jpegphotoattribut, du är bättre av att ändra detta till thumbnailphotoen

är här en de uppdaterad version som tas från anknyta som du g
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

-------------------
'Foto måste vara mindre än 10kb
Const ForReading = 1
InDir = ”C:\Temp\StaffPhotos”,
Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
fastställd oIADS = GetObject (”LDAP: //RootDSE”)
strDefaultNC = oIADS.Get (”defaultnamingcontext”)
Fastställd theConn = CreateObject (”ADODB.Connection”)
theConn.Provider = ”ADsDSOObject”,
theConn.Open ”annonsfamiljeförsörjare”,
Fastställd theCmd  = CreateObject (”ADODB.Command”)
theCmd.ActiveConnection = theConn
Fastställd objRecordSet = CreateObject (”ADODB.Recordset”)
För varje som är tFile i fso.GetFolder (InDir). Sparar
   tName = tFile.Name
   'Får personerna känd från spara vid avklädning extentionen.
   tName = lämnat (tName, InStrRev (tName, ”. ”) - 1)
   'Du kan behöva att tweak denna bet beroende av dina namnge reglar.
   strQuery = ”; ” & _,
                             ”(& (objectClass=person) (name=” & tName &”)); namnge adspath; subtree ",
   theCmd.CommandText = strQuery
   Fastställd objRS = theCmd.Execute
   Om objRS.RecordCount = 0 därefter
     MsgBox ”kan inte finna kontot för” & tName
   Annars
     Fastställd objUser = GetObject (objRS (”adspath”))
     ObjUser.Put ”thumbnailPhoto”, ReadByteArray (tFile.Path)
     ObjUser.SetInfo
   Avsluta om
Därefter
'Stulit från http://www.ericphelps.com/q193998/index.htm
Fungera ReadByteArray (strFileName)
   Const adTypeBinary = 1
   Dunkelt slänga i soptunnan
   Uppsättningen slänga i soptunnan = CreateObject (”ADODB.Stream”)
   slänga i soptunnan. Typ = adTypeBinary
   slänga i soptunnan. Öppna
   bin.LoadFromFile-strFileName
   ReadByteArray = slänga i soptunnan. Läst
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us