[Freeswitch-branches] [commit] r2404 - freeswitch/branches/davehorner/libs/win32

[Freeswitch SVN]

Author: davehorner
Date: Sat Aug 26 17:26:20 2006
New Revision: 2404

Modified:
   freeswitch/branches/davehorner/libs/win32/util.vbs

Log:
Added error handling for machines that can't create ADODB.

Modified: freeswitch/branches/davehorner/libs/win32/util.vbs
==============================================================================
--- freeswitch/branches/davehorner/libs/win32/util.vbs	(original)
+++ freeswitch/branches/davehorner/libs/win32/util.vbs	Sat Aug 26 17:26:20 2006
@@ -1,3 +1,9 @@
+'
+' Contributor(s):
+' Michael Jerris <mike at jerris.com>
+' David A. Horner http://dave.thehorners.com
+'----------------------------------------------
+
 'On Error Resume Next
 ' **************
 ' Initialization
@@ -7,7 +13,20 @@
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set WshSysEnv = WshShell.Environment("SYSTEM")
 Set xml = CreateObject("Microsoft.XMLHTTP")
+Dim UseWgetEXE
+
+
+On Error Resume Next
 Set oStream = CreateObject("Adodb.Stream")
+On Error Goto 0
+
+If oStream=0 Then
+	wscript.echo("Failed to create Adodb.Stream, using alternative download method.")
+	UseWgetEXE=true
+Else
+	UseWgetEXE=false
+End If
+
 Set objArgs = WScript.Arguments
 quote=Chr(34)
 ScriptDir=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))