Upload files with archive bit set and then remove archive bi

set shell = WScript.CreateObject("WScript.Shell")
set exec = shell.Exec("winscp.com /log=c:\bin\transfer.xml")
' set up our session
exec.StdIn.Write("option batch continue" + vbCRLF & _
   "option batch continue" + vbCRLF & _
   "option confirm off" + vbCRLF & _
   "option transfer binary" + vbCRLF & _
   "option reconnecttime 300" + vbCRLF& _
   "open myuser@myserver.xxx" + vbCRLF)

'set up a file system object that will traverse the directory we're checking
Set fso = CreateObject("Scripting.FileSystemObject") 
set shell = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.Unnamed.Count >= 1 Then 
  If fso.FolderExists(WScript.Arguments.Unnamed(0)) Then 
   strSourceDir = WScript.Arguments.Unnamed(0)
   strTargetDir = WScript.Arguments.Unnamed(1)
    Recurse fso.GetFolder(WScript.Arguments.Unnamed(0)) 
  Else 
    WScript.Echo "Folder not found." 
  End If 
Else 
  WScript.Echo "Please give folder name as argument 1." 
End If 
 
 
Sub Recurse(f) 
  For Each sf In f.SubFolders 
    Recurse sf 
  Next 
  
   For Each sf In f.Files 
      If sf.attributes and 32 Then 'archive attribute is set so lets upload that file
         putfile=replace(sf,strSourceDir,strTargetDir,1,-1,1)
         putfile=replace(putfile,"\","/")
         exec.StdIn.Write("put """ + sf + """ """ + putfile + """" + vbCRLF)
         Wscript.Echo "put """ + sf + """ """ + putfile + """" + vbCRLF
      end if
   Next 
End Sub 
WScript.Echo "done looking..."
exec.StdIn.Write("exit" + vbCRLF) 'we've finished evaluating all the files. Our winscp session may still be going on, however...
sInput = exec.StdOut.ReadAll() 'this allows the session to complete. The script will pause here until it can "readall" the output

'lets look at the xml log file that winscp wrote
set doc = CreateObject("MSXML2.DOMDocument")
doc.async = false
doc.load("c:\bin\transfer.xml")

' look for uploaded files
Set NodeList = doc.documentElement.selectNodes("//upload")

WScript.Echo("There are " & nodelist.length & " files")

'traverse all the uploaded files and look for those that were sucessfully uploaded so we can remove the archive bit
for i = 0 to NodeList.length - 1
    filename = nodelist(i).selectSingleNode("filename/@value").value
   if nodelist(i).selectSingleNode("result/@success").value="true" then 'if the file was sucessfully transferred...
      fso.getfile(filename).attributes = fso.getfile(filename).attributes -32 'remove the archive attribute
   end if
next