Вы можете создать командную строку, запускающую tf.exe с соответствующими параметрами, и использовать объект оболочки для ее запуска.Пример ниже представляет собой (непроверенное) ублюдочное пюре из нескольких вещей, которые у нас есть.(основная форма взята из .vbs, настроенного для копирования между общими сетевыми ресурсами, а командная строка TFS - из пакетного файла ночной сборки)
Dim strCmd
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
strCmd = "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE>tf get ""$/<Project Name>/Trunk/NET/<Application>"" /force /recursive"
objShell.Exec(strCmd & " > c:\temp\get.log ")