Hello, Greg,
many thanks for your quick answer. 
I had hope I the file path for the files AT5 and the map bounding box as a parametre could hand over. 
       ...
   '--- Shapetables export ---------------------------------------------------
   LogFile.WriteLine(FormatDateTime(Date(), 0) & " " & FormatDateTime(Time(), 3))
   strsql = "SELECT table_name FROM information_schema.tables where table_name like ('" &rs("tmp_table_name") &"%');"
   LogFile.WriteLine(strsql)
   set et = conn.execute(strsql)
   et.movefirst
   do while not et.eof
      tbl_Name = et("table_name")            
      LogFile.WriteLine(et("table_name"))
      shp_name = shape_path&"\"&tbl_Name         ' Namen des Shapfiles erstellen
      strrun = """C:\Program Files\PostgreSQL\9.3\bin\pgsql2shp.exe"" -f "&shp_name&" -h localhost -p 5432 -u xxxxxxx-P xxxxxx" & osm_db &" ""SELECT * FROM "& tbl_name &""""
      LogFile.WriteLine(FormatDateTime(Date(), 0) & " " & FormatDateTime(Time(), 3))
      LogFile.WriteLine(strrun)
      vshell.run strrun,1,true               ' Export Shapefiles und warte bis fertig
      et.movenext               
   loop
   et.close                               ' Abfrageobjekt für Liste der Shapetabellen schließen
   '--- Den IMC starten ---
   for each v in at5_version
      prj =  imc_prjpath&"\"&tmpname&"_"&v&".sap"
      LogFile.WriteLine(FormatDateTime(Date(), 0) & " " & FormatDateTime(Time(), 3))
      LogFile.WriteLine("Create AT5 : "&tmpname&", Version : "&v)
           if objFSO.FileExists(prj) then
         ObjShell.ShellExecute imc_path&"\insightmapcreator.exe",""""&prj&""" -b",1
        else    
         LogFile.WriteLine("Error : No projectfile")
      end if   
   next
   rs.movenext 
LOOP
...