Invalid procedure call or argument

[ybkenan]

維護公司原來的程序時，出現如下錯誤提示：

Script: D:\citrixs_usage.vbs
Line: 38
Char: 5
Error: Invalid procedure call or argument
Code: 800A0005
Source: Microsoft VBScript runtime error

第38，39行代碼如下：
iFreeSpace = FSO.GetDrive(sd).AvailableSpace/1024/1024/1024
iTotalSpace = FSO.GetDrive(sd).TotalSize/1024/1024/1024

其中sd = "\\xx2hk-citrix1\C$"

沒學過.Net，請高手指點。謝謝!

[ybkenan]

多謝樓上的解答。
我隻修改了chk_srv(9) -> chk_srv(12),並增加了以下紅色部份。如果我去掉這些就可以運行。應該不是sd的問題。


Dim drv(1), chk_srv(12),imessage,Path_txt,Path_Blat,maddress
Select Case i
Case 35 chk_srv(0) = f.ReadLine 'chk_srv(0) = "\\rc2hk-citrix1"
Case 36 chk_srv(1) = f.ReadLine 'chk_srv(1) = "\\rc2hk-citrix2"
Case 37 chk_srv(2) = f.ReadLine 'chk_srv(1) = "\\rc2hk-citrix3"
Case 38 chk_srv(3) = f.ReadLine 'chk_srv(1) = "\\rc2hk-citrix4"
Case 39 chk_srv(4) = f.ReadLine 'chk_srv(1) = "\\rc2hk-citrix5"
Case 40 chk_srv(5) = f.ReadLine 'chk_srv(1) = "\\rc2hk-citrix6"
Case 41 chk_srv(6) = f.ReadLine 'chk_srv(1) = "\\rc2hk-citrix7"
Case 42 chk_srv(7) = f.ReadLine 'chk_srv(1) = "\\rc2hk-citrix8"
Case 43 chk_srv(8) = f.ReadLine 'chk_srv(1) = "\\rc2hk-citrix9"
Case 44 chk_srv(9) = f.ReadLine 'chk_srv(1) = "\\rc2hk-citrix10"
Case 45 chk_srv(10) = f.readLine 'chk_srv(1) = "\\rc2hk-citrix11"
Case 46 chk_srv(11) = f.readLine 'chk_srv(1) = "\\rc2hk-citrix12"
Case 47 chk_srv(12) = f.readLine 'chk_srv(1) = "\\rc2hk-citrix13"

Case 48 Path_txt = f.ReadLine '\\rcl_files\misdept$\chksertxt\rc2hk-citrix_size.txt
Case 24 Path_Blat = f.ReadLine 'd:\Adm_script\Chkpst\blat\blat.exe
Case 27 maddress = f.ReadLine
'Case 33 maddress = f.ReadLine
Case Else f.SkipLine

[晓轩]

那就不太清楚了，帮你顶上去吧

[晓轩]

"\\xx2hk-citrix1\C$"
这个路径是否能够访问到？

[晓轩]

这个脚本主要计算C盘总空间，和剩余空间。
如果你之前用的好好的，那么有可能就是你的sd路径访问出了问题。