первые VBS проверки diskpace на удаленных серверах

Question

ошибка вернувшихся из этого сценария:

space.vbs (13,2) Microsoft VBScript Ошибка: Путь не найден

servers.txt существует и может быть прочитан я могу сопоставьте диск с любым сервером в server.txt и проверьте место вручную

Если в моем коде не существует синтаксической ошибки, может ли это быть проблема аутентификации? Я не уверен, как создать сетевое использование или запустить как в vbs. Хотя, как я уже сказал, я могу сопоставить диск вручную.

Строка с ошибкой, по-видимому множество d = objfso.GetDrive ("\ strComputer \ C $")

space.vbs запросить список серверов и вернуть свободное пространство

dim strInputPath, strOutputPath 
dim objFSO, objTextIn, objTextOut 

strInputPath = "c:\servers.txt" '- location of input 
strOutputPath = "c:\output.csv" '- location of output 

set objFSO = CreateObject("Scripting.FileSystemObject") 
set objTextIn = objFSO.OpenTextFile(strInputPath,1) 
set objTextOut = objFSO.CreateTextFile(strOutputPath) 

Do until objTextIn.AtEndOfStream = True 

    strComputer = objTextIn.ReadLine 
    set d = objfso.GetDrive("\\strComputer\c$") 
    objTextOut.WriteLine now & "," & strComputer & "," & d.FreeSpace/1073741824 

loop 

Answer 1

1. VBScript не интерполировать переменные в строки
2. Ваши компьютеры, вероятно, не все названные «strComputer»

Итак:

>> strComputer = "pipapo" 
>> WScript.Echo 1, "\\strComputer\c$" 
>> WScript.Echo 2, "\\" & strComputer & "\c$" 
>> 
1 \\strComputer\c$ 
2 \\pipapo\c$