[deepred]

vdereberya,

Так условиями задачи не предусматривается ни подключение, ни расшаривание папок на
удаленном ПК, то предполагаю что папка доступна как сетевой диск и решение будет такое:

Код:

Dim input, StrDSTFolder, StrLoctFolder

    ArrSubFolders = Array("Folder1", "Folder2", "Folder3", "Folder4", "Folder5")
    ' Перечень вложенных папок
    Input = InputBox("Введите имя папки")

    StrDSTFolder   =  "F:\" ' Некая папка на сервере
    StrLoctFolder  =  StrDSTFolder & Input & "\"

    Set objShellApp = CreateObject("Shell.Application")
    Set objFolder = objShellApp.NameSpace(StrDSTFolder)
        objFolder.NewFolder(Input)

    Wscript.Sleep 3000

    Set objSubFolder = objShellApp.NameSpace(StrLoctFolder)
        For Each StrSubFolder In ArrSubFolders
            objSubFolder.NewFolder(StrSubFolder)
        Next

Wscript.Quit 0