Script: put user picture to Active Directory

Little script in vbScript:

Function PictureToAD(szADSOBJ, szFileName)
 Dim objUser, bytesRead, adoStreamRead
 Const adTypeBinary = 1
 Set adoStreamRead = CreateObject("ADODB.Stream")
 adoStreamRead.Type = adTypeBinary
 adoStreamRead.Open
 adoStreamRead.LoadFromFile szFileName
 bytesRead = adoStreamRead.Read()
 adoStreamRead.Close
 Set objUser = GetObject(szADSOBJ)
 objUser.Put "thumbnailPhoto", bytesRead
 objUser.SetInfo
End Function

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s