Upload a user picture from url to Active Directory with vbScript.

SavePictureToAdFromUrl.vbs

Function SavePictureToAdFromUrl(szADsPath, szUrl)
  Dim objUser, bytesRead, adoStreamRead
  Const adTypeBinary = 1

  Set xml = CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", szUrl, False
  xml.Send

  If xml.status = 200 Then
    Set adoStreamRead = CreateObject("ADODB.Stream")
    adoStreamRead.Type = adTypeBinary
    adoStreamRead.Open
    adoStreamRead.Write xml.responseBody
    adoStreamRead.Position = 0
    bytesRead = adoStreamRead.Read()
    adoStreamRead.Close

    Set objUser = GetObject(szADsPath)
    objUser.Put "thumbnailPhoto", bytesRead
    objUser.SetInfo
  End If
End Function