第一VBS在遠程服務器上，從這個腳本返回

Question

錯誤檢查diskpace：

space.vbs（13,2）Microsoft VBScript運行時錯誤：未找到路徑

servers.txt存在並且是可讀 我可以驅動器映射到任何servers.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$