asked on

VBScript Byte Array WebService

I am trying to call a webservice which returns a byte array which is a file.... I am trying to do this with vbscript. I can call the webservice no problem the issue is how do I get the contents (which is the actual file) to disk? I can get through the document and locate the contents the question is how do I get it to disk? I have essentially a text string which is an array of bytes and I dont know what to do with it.. in vb.net this is no problem I just dont know how to handle in vbscript.. can anyone help?

sirbounty

Hello NTGuru705,
You just need to write it to a file?
Use the FSO...
Dim objFSO:Set objFSO=CreateObject("Scripting.FileSystemObject")
Dim objOutput: SetobjOutput=objFSO.CreateTextFile("C:\YourFile.txt")
objOutput.WriteLine YourData

~sirbounty

NTGuru705

ASKER

Well not really... the data isnt text... so I am ot writing a text file...

The webservice is handing me a binary file... and it is handing it to me as a return parameter which is a byte array...

So i .net I can do something like this..

Public Function WriteFile(ByVal ccDocument As Byte(), ByVal FilePath As String) As Integer
Dim objFstream As FileStream
Dim lngLen As Long = ccDocument.Length
Try
objFstream = File.Open(FilePath, FileMode.Create, FileAccess.Write)
objFstream.Write(ccDocument, 0, CInt(lngLen))
objFstream.Flush()
objFstream.Close()
Catch ex As Exception
ErrorHandler("WriteFile", ex.Message, AgentName, EventLogEntryType.Error, -5000)
Return -5000
End Try

If Not objFstream Is Nothing Then
objFstream.Close()
objFstream = Nothing
End If
'IF YOU DIDNT ENCOUNTER AN ERROR RETURN 0
Return 0
End Function

How to do this in vbscript though?

ASKER CERTIFIED SOLUTION

WMIF

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

NTGuru705

ASKER

right but to write binary data you have to use the wrtie method and the parameter is a byte array which I dont think vbscript supports.

NTGuru705

ASKER

Ok I am making progress here...

This is what the XML looks like.. note the content is in the document element...
Problem is when I write it back to disk it isnt right.. anyone recognize the encoding or something? This is just being returned from a vb.net webservice as a byte array.

<ccDocument xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://services.firstfleetinc.com/">
<ccDocGID>1004</ccDocGID>
<Document>DQogImNjX0FkZEF0dHJpYnV0ZSAiICYgY2NEb2NHSUQgJiAiLCIgJiBjY0FUeXBlR0lEICYgIiwnIiAmIGNjQVZhbHVlICYgIg0KLS0gUkVUVVJOUyBUSEUgQVZBTFVFR0lEDQoNCnNxbCA9ICJjY19WYWxpZGF0ZUFWYWx1ZSAiICYgY2NBVHlwZUdJRCAmICIsJyIgJiBjY0FWYWx1ZSAmICInIg0KLS0gUkVUVVJOUyAxIE9SIDAgRk9SIFRSVUUgT1IgRkFMU0U=</Document>
- <ccDocProperties>
<ccDocGID>1004</ccDocGID>
<ccDocStatus>1</ccDocStatus>
<ccDocStatusName>Pending Index</ccDocStatusName>
<ccSorceFileExt>txt</ccSorceFileExt>
<ccDocTypeGID>1000</ccDocTypeGID>
<ccDocType>DEFAULT</ccDocType>
<ccDocDate>2007-03-26T14:44:46.407</ccDocDate>
<ccDocSize>203</ccDocSize>
<ccDocQueueGID>1000</ccDocQueueGID>
<ccDocWFName>UNK</ccDocWFName>
<ccDocWFGID>0</ccDocWFGID>
<ccDocWFSequence>0</ccDocWFSequence>
<ccDocAdded>2007-03-26T14:44:46.407</ccDocAdded>
<ccDocAuthor>1000</ccDocAuthor>
<ccDocAuthorID>admin</ccDocAuthorID>
<ccDocEdited>2007-03-26T14:44:46.407</ccDocEdited>
<ccDocEditor>1000</ccDocEditor>
<ccDocEditorID>admin</ccDocEditorID>
<ccDocViewed>2007-03-26T16:11:24.28</ccDocViewed>
<ccDocViewer>1000</ccDocViewer>
<ccDocViewerID>admin</ccDocViewerID>
<ccErrorCode>0</ccErrorCode>
<ccErrorString />
</ccDocProperties>
- <ccDocAttribues>
- <ccDocAttributes>
<ccRowID>3</ccRowID>
<ccATypeGID>1000</ccATypeGID>
<ccATypeName>DEFAULT</ccATypeName>
<ccAValueGID>1</ccAValueGID>
<ccAValue>Test</ccAValue>
<ccErrorCode>0</ccErrorCode>
<ccErrorString />
</ccDocAttributes>
- <ccDocAttributes>
<ccRowID>4</ccRowID>
<ccATypeGID>1000</ccATypeGID>
<ccATypeName>DEFAULT</ccATypeName>
<ccAValueGID>2</ccAValueGID>
<ccAValue>Sivils</ccAValue>
<ccErrorCode>0</ccErrorCode>
<ccErrorString />
</ccDocAttributes>
</ccDocAttribues>
<ccErrorCode>0</ccErrorCode>
<ccErrorString />
</ccDocument>

SOLUTION

rdivilbiss

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

NTGuru705

ASKER

yes and there are lots of dlls I have found to help me write this file to disk... thank for your help.. reference link

https://www.experts-exchange.com/questions/22497192/Base64-Binary-Javascript.html