VBS将binary64图片数据保存为.jpeg文件

时间:2014-02-03 15:37:59

标签: vbscript jpeg binary-data

我需要从Active Directory(LDS)中提取用户图片并将其另存为.jpeg文件。我能够在AD中提取photo属性的二进制64数据,但我不知道如何将它写入我的.vbs脚本中的可用.jpeg文件。请发布示例代码!

1 个答案:

答案 0 :(得分:2)

由于您已经拥有了提取的二进制数据..这是一个获取该数据并创建一个.jpg文件的子程序。只需传递二进制数据和保存路径(即c:\ temp \ pic.jpg)。

Sub writeImage(binaryData, strFullPath)

  Set objADO = CreateObject("ADODB.Stream")
  objADO.Open
  objADO.Type = 1
  objADO.Position = 0

  objADO.Write binaryData
  objADO.SaveToFile strFullPath

  Set objADO = Nothing

End Sub

如果您没有数据,可以使用它从URL中提取数据。

Function binaryURL(strURL)
  Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")

  objHTTP.Open "GET", strURL, False
  objHTTP.Send

  binaryURL = objHTTP.ResponseBody
End Function

然后做一个..

Call writeImage(binaryURL("http://i.imgur.com/fr16Y6W.jpg"), "C:\temp\pic.jpg")