将数据库中的二进制数据导出为文件

1. '
2. '
3. '   本程序将数据库中的二进制值导出为数据文件
4. '   使用：在CMD命令行下输入
5. '   outImg /? 查看帮助
6. '
7. '
8. Option Explicit
10. If Wscript.Arguments.Count = 0 Then Wscript.quit
12. Dim serverName , userName , password , database , sql , filePath
14. Dim i
15. For i = 0 To Wscript.Arguments.Count - 1
16.     Select Case Wscript.Arguments(i)
17.         Case "/S":
18.             If i + 1 < Wscript.Arguments.Count Then serverName = Wscript.Arguments(i + 1)
19.             If InStr(serverName,"/") > 0 Then
20.                 serverName = ""
21.             End If 
22.         Case "/U":
23.             If i + 1 < Wscript.Ar