Запуск .VBS из пакетного файла

Question

Я писал несколько командных файлов для некоторых конкретных заданий в качестве поддержки рабочего стола.

Я уже несколько месяцев создаю скрипт резервного копирования профиля, меняя его, как нужно, и по мере возникновения новых проблем.

Я пытаюсь запустить следующий скрипт VBS изнутри своего командного файла и указать его вывод в другую папку.

Set oNet= WScript.CreateObject("WScript.Network") 
Set oDrives = oNet.EnumNetworkDrives 
oUser = oNet.UserName 
Set oFilesys = CreateObject("Scripting.FileSystemObject") 
Set oFiletxt = oFilesys.CreateTextFile("Mapped_Network_Drives_"&oUser&".cmd", True) 
For i = 0 to oDrives.Count - 1 
oFiletxt.WriteLine "Net Use " & oDrives.Item(i) & " " & chr(34)& oDrives.Item(i+1) & chr(34) & " /persistent:yes" 
Next 
oFiletxt.Close 

Этот VBS скрипт был сделан (не мной), чтобы экспортировать пользователя Подключенные сетевые диски в CMD файл, который использует netuse команду переназначить их.

Если сценарий VBS запущен сам за пределами командного файла, то он работает нормально, но когда он запускается внутри пакета с использованием cscript и т. Д., Он создает выходной файл Mapped_Network_Drives_% username% .cmd, но это пустой.

REM pushes script to use batch file Drive Letter as working directory 
setlocal & pushd %~d0 
ECHO ============================= 
ECHO Creating Backup Folder 
ECHO ============================= 
MD "%UserName%_Backup" 
ECHO ============================= 
ECHO Backing Up Mapped Network Drives 
ECHO ============================= 
REM pushes script to use Backup Folder as working directory 
pushd "%~d0%UserName%_Backup" 
REM Runs VB script to backup Mapped Network Drives 
cscript //nologo "%~dp0Mapped_Network_Drives.vbs" 
pause 

Выше приведено из кода, с которым я работал.

Answer 1

Попробуйте с этим

VBS часть: Исправленная итерации по коллекции привода

Option Explicit 

Dim userName, drives 
    With WScript.CreateObject("WScript.Network") 
     userName = .UserName 
     Set drives = .EnumNetworkDrives 
    End With 

Dim drive 
    With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("Mapped_Network_Drives_" & userName & ".cmd", True) 
     For drive = 0 To (drives.Count-1) Step 2 
      .WriteLine "net use " & drives.Item(drive) & " """ & drives.Item(drive+1) & """ /persistent:yes" 
     Next 
     .Close 
    End With 

партия часть: Обеспечивает все ссылки трактов должным образом обработаны

@echo off 
    setlocal enableextensions disabledelayedexpansion 

    call :getCurrentBatchFile _f0 
    for %%a in ("%_f0%") do (
     set "backupFolder=%%~da\%username%_Backup" 
     set "scriptsFolder=%%~dpa" 
    ) 

    md "%backupFolder%" 2>nul 
    pushd "%backupFolder%" && (
     cscript //nologo "%scriptsFolder%\Mapped_Network_Drives.vbs" 
     popd 
    ) || (
     echo Backup folder does not exist 
    ) 

    goto :eof 

:getCurrentBatchFile returnVar 
    set "%~1=%~f0" 
    goto :eof