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