I've used the 'Send.kix' as a base to make a script of some routine manual commands. Thou the script itself is a kixforms, I'm having a problem specifically with a portion of it. Here's the function area:

Function send_click
 Dim $name
 $name = $computer.text
 If NOT $name
  $= $form.msgbox("Please enter a valid computer name","Computer Name")
  $computer.SetFocus
  Return
 EndIf
 Shell '%comspec% /c ping -n 3 $name | Find "TTL"'
 If @ERROR = 0
     If Exist('\\$name\C$$')
          If Exist('\\$name\c$$\asset.bat')
             Del('\\$name\c$$\asset.bat')
         EndIf
          If Exist('\\$name\c$$\infrtool.ini')
             Del('\\$name\c$$\infrtool.ini')
         EndIf
          If Exist('\\$name\c$$\infrtool.~in')
             Del('\\$name\c$$\infrtool.~in')
         EndIf
          If Exist('\\$name\c$$\infrtool\local$.sem')
             Del('\\$name\c$$\infrtool\local$.sem')
         EndIf
          If Exist('\\$name\c$$\infrtool\local$.xml.gz')
              SetFileAttr('\\$name\c$$\infrtool\local$.xml.gz',128)
             Del('\\$name\c$$\infrtool\local$.xml.gz')
         EndIf
        If Exist("\\$name\c$$\InfrTool\")
                If Exist("\\$name\c$$\infrtool\scanW32.exe")
                     $Compare = CompareFileTimes("\\nt-go-ap3\scans\scanner\scanW32.exe","\\$name\c$$\infrtool\scanw32.exe")
                    If $Compare = -3 OR $Compare = 1
                        Copy "\\nt-go-ap3\scans\scanner\scanW32.exe" "\\$name\c$$\infrtool"
                    EndIf
                Else
                    Copy "\\nt-go-ap3\scans\scanner\scanW32.exe" "\\$name\c$$\infrtool"
                EndIf
                If Exist("\\$name\c$$\infrtool\pdi.exe")
                    $Compare = CompareFileTimes("\\nt-go-ap3\scans\scanner\pdi.exe","\\$name\c$$\infrtool\pdi.exe")
                    If $Compare = -3 OR $Compare = 1
                        Copy "\\nt-go-ap3\scans\scanner\pdi.exe" "\\$name\c$$\infrtool"
                    EndIf
                Else
                    Copy "\\nt-go-ap3\scans\scanner\pdi.exe" "\\$name\c$$\infrtool" 
                EndIf
                Copy "\\nt-go-ap3\scans\scanner\infrtool.ini" "\\$name\c$$"
        Else
            MD "\\$name\c$\InfrTool"
            Copy "\\nt-go-ap3\scans\scanner\infrtool.ini" "\\$name\c$$"
            Copy "\\nt-go-ap3\scans\scanner\pdi.exe" "\\$name\c$$\infrtool\"
            Copy "\\nt-go-ap3\scans\scanner\scanW32.exe" "\\$name\c$$\infrtool\"
        EndIf
         $Hour=Val(Split(@Time,':')[0])
        $Min=Val(Split(@Time,':',-1)[1])
         If $Hour = 24
              $Hour = 0
        EndIf
            Select
            Case $Min => 0 AND $Min < 10
                $NEW= $min + 1
                $NewTime = '0'+$New
            Case $Min => 10
                $NEWTIME= $min + 1
            EndSelect
         Run '%comspec% /c at \\$name $Hour:$NEWTIME "c:\infrtool\pdi.exe"'
     Else
         $= $Form.msgbox("Cannot access the Adminshare"+Chr(13) + Chr(10)+"              on $name","Connection Failed")
     EndIf
 Else
     $= $Form.msgbox("The computer does not appear to be online","Ping Failed")
 EndIf
EndFunction


For some reason this area of that function is not working...

        Else
            MD "\\$name\c$\InfrTool"
            Copy "\\nt-go-ap3\scans\scanner\infrtool.ini" "\\$name\c$$"
            Copy "\\nt-go-ap3\scans\scanner\pdi.exe" "\\$name\c$$\infrtool\"
            Copy "\\nt-go-ap3\scans\scanner\scanW32.exe" "\\$name\c$$\infrtool\"
        EndIf

but everything else around this area works fine.
_________________________
penny = the target the playing field = three football fields side by side you = only allowed to stand on the outside of the playing field tool you get to use to find the penny = a ONE INCH LAWN DART get the level of difficulty?