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@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))