Question

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

Answer 1

由于您已经拥有了提取的二进制数据..这是一个获取该数据并创建一个.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")

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

1 个答案: