What does these VB Scripts do?

I inherited the following VB Script programs. Can someone tell me what exactly are they doing?

------------------------------------------------
1st script
------------------------------------------------

Dim OdbcDSN
Dim connect, cm
Dim counter
Dim output
Dim strDirectory, strFile,ol,Err
Dim starttime, exittime, x
Dim Objfso, Objfsotext, Objfolder, Objfile,ObjFileDelete


Const adCmdStoredProc = &H0004
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adVarChar = 200
Const adInteger = 3
Const adNumeric = 131
Const adCmdText = &H0001
Const adCmdUnknown = &H0008
 


counter = 0
x = 0
OdbcDSN = "DSN=hsdp10a;UID=pps_owner;PWD=comverse"
Set connect = CreateObject("ADODB.Connection")
connect.Open OdbcDSN

Set cm = CreateObject("ADODB.Command")          
Set cm.ActiveConnection = connect
           
    cm.CommandText = "batch_pkg_rs_util.check_report_status"
    cm.CommandType = adCmdStoredProc          
    set p = cm.Parameters
        p.Append cm.CreateParameter("@i_report_name",advarchar,adParamInput,10,"XREW_REPORT1")
        p.Append cm.CreateParameter("@o_report_run_status",advarchar,adParamOutput,1)
   
    cm.execute
         
         
          if p(1).value = 1 Then
                 counter=1
          else
                 counter=0
          end if
connect.close
set connect=Nothing






 
If counter = 1 Then
strFile = "C:\RS\Data_for_XREW_Report1.txt"


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ObjFileDelete = Objfso.GetFile(Strfile)
ObjFiledelete.Delete()
'Wscript.echo "Just deleted" & Strdirectory & Strfile
'Wscript.Quit

starttime = timer
exittime = starttime + 2
'Wscript.Echo "pausing" & strFile
do while timer < exittime
   x= x + 1
loop
'Wscript.Echo "done" & starttime



'Wscript.Echo "Just deleted "  & strFile
WScript.Sleep 100

'Wscript.Echo "pausing" & strFile



call objFSO.CreateTextFile(strFile, True)
'Wscript.Echo "Just created "  & strFile

End If

'END********************
------------------------------------------------
2nd script
------------------------------------------------
Dim OdbcDSN
Dim connect, cm
Dim counter
Dim output
Dim strDirectory, strFile,ol,Err
Dim starttime, exittime, x
Dim Objfso, Objfsotext, Objfolder, Objfile,ObjFileDelete


Const adCmdStoredProc = &H0004
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adVarChar = 200
Const adInteger = 3
Const adNumeric = 131
Const adCmdText = &H0001
Const adCmdUnknown = &H0008
 


counter = 0
x = 0
OdbcDSN = "DSN=usta;UID=dbs_owner;PWD=abcdef"
Set connect = CreateObject("ADODB.Connection")
connect.Open OdbcDSN

Set cm = CreateObject("ADODB.Command")          
Set cm.ActiveConnection = connect
           
    cm.CommandText = "batch_pkg_rs_util.check_report_status"
    cm.CommandType = adCmdStoredProc          
    set p = cm.Parameters
        p.Append cm.CreateParameter("@i_report_name",advarchar,adParamInput,10,"REPORT3_MONTHLY")
        p.Append cm.CreateParameter("@o_report_run_status",advarchar,adParamOutput,1)
   
    cm.execute
         
         
          if p(1).value = 1 Then
                 counter=1
          else
                 counter=0
          end if
connect.close
set connect=Nothing






 
If counter = 1 Then
strFile = "C:\RS\Data_for_Report3_Monthly_available.txt"


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ObjFileDelete = Objfso.GetFile(Strfile)
ObjFiledelete.Delete()
'Wscript.echo "Just deleted" & Strdirectory & Strfile
'Wscript.Quit

starttime = timer
exittime = starttime + 2
'Wscript.Echo "pausing" & strFile
do while timer < exittime
   x= x + 1
loop
'Wscript.Echo "done" & starttime



'Wscript.Echo "Just deleted "  & strFile
WScript.Sleep 100

'Wscript.Echo "pausing" & strFile



call objFSO.CreateTextFile(strFile, True)
'Wscript.Echo "Just created "  & strFile

End If

'END********************

Thank You

Shariq