Kør kommando via vbscript

Hej
Jeg har fundet dette script. Det vil jeg gerne omskrive til at fyre en kommando af for hver mappe. En der kan hjælpe?

**********************************************************
Option Explicit
Dim strFolderToSearch, objFSO, objRootFolder, objFolder, colSubfolders, strOutput

strFolderToSearch = "C:\Windows\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objRootFolder = objFSO.GetFolder(strFolderToSearch)
Set colSubfolders = objRootFolder.SubFolders

For Each objFolder in colSubfolders
    strOutput = strOutput & objFolder.name
    strOutput = strOutput &  vbCrLf
Next

MsgBox strOutpu
**********************************************************

kommandoen for hver folder jeg gerne vil køre er:

autoimager /f e:\test\*.jpg /p resize /rzka /rzw 800 /rzh 600 /op e:\testoutput\mappe

Dog skal e:\test\*.jpg udskiftes med hver enkelt undermappe ovenstående finder og tilsvarende skal e:\testoutput\mappe udskiftes med den tilsvarende undermappe som ovenstående finder. Altså noget med:

strFolderToSearch = "C:\billeder\"

For Each objFolder in colSubfolders
autoimager /f strFolderToSearch\objFolder.name\*.jpg /p resize /rzka /rzw 800 /rzh 600 /op e:\billeder\objFolder.name
Next

Uden at kunne finde ud af at skrive det rigtigt i VB