第一个 vbs 检查远程服务器上的磁盘空间

first vbs checking diskpace on remote servers

错误 return 来自此脚本:

space.vbs(13,2) Microsoft VBScript 运行时间错误:找不到路径

servers.txt 存在且可读 我可以将驱动器映射到 servers.txt 中的任何服务器并手动检查 space

除非我的代码中存在语法错误,否则可能是身份验证问题?我不确定如何像在 vbs 中那样创建 net use 或 运行。尽管正如我所说,我可以手动映射驱动器。

错误的行显然是 设置 d = objfso.GetDrive("\strComputer\c$")

space.vbs查询服务器列表和return免费space

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
  1. VBScript 不会将变量插入字符串
  2. 您的计算机可能并不都是命名的"strComputer"

所以:

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