Вставка / обновление строк с некоторыми столбцами и сохранение значений других

Вы можете использовать свойство CurrentDirectory .

Dim WshShell, strCurDir
Set WshShell = CreateObject("WScript.Shell")
strCurDir    = WshShell.CurrentDirectory
WshShell.Run strCurDir & "\attribute.exe", 0
Set WshShell = Nothing