如何在不登錄Windows的情況下獲取存檔文件夾的大小？

如何在不登錄Windows的情況下獲取存檔文件夾的大小？我只想將計算機的名稱作爲變量存入記事本。我使用\\kullanici\d$\lotus\notes\data\archive作爲路徑。這是我的VBS代碼。如何在不登錄Windows的情況下獲取存檔文件夾的大小？

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set WshNetwork = WScript.CreateObject("WScript.Network") 
Set TextFile = FSO.OpenTextFile("C:\Info.txt", 2, True) 

TextFile.Writeline "Sonuclar:" & cikti 
const dosyaYolu = "\d$\lotus\notes\data\archive\" 
const okumaModu = 1 
dim fso, dizin, makineAdlari, tekilAdlar, satir, cikti, FarkliMakine 
cikti = "" 
set fso = createObject("Scripting.FileSystemObject") 
if fso.FileExists("adlar.txt") then 
makineAdlari = fso.OpenTextFile("adlar.txt", okumaModu).readAll 
tekilAdlar = split(makineAdlari,vbCrLf) 
for each satir in tekilAdlar 
    farkliMakine = "\\" & satir & dosyaYolu 
    if fso.FolderExists(farkliMakine) then 
    set dizin = fso.GetFolder(farkliMakine) 
    cikti = cikti & vbcrlf & satir & " adlı makinede " & dosyaYolu & " dizini ~" & (dizin.Size /1073741824) & " mB" 
    set dizin = Nothing 
    else 
    cikti = cikti & vbCrLf & satir & " kullanıcısı " & dosyaYolu & " dizinine sahip değil!" 
    end if 
next 
msgBox cikti,64,"Sonuçlar:" 
else 
msgbox "adlar.txt dosyasının vbs dosyası ile aynı klasörde bulunduğundan emin olun.", 16 or 0, "Hata!" 
end if 

Set TextFile = Nothing 
Set WshNetwork = Nothing 
set fso = Nothing

來源

2011-06-23 Selo

除了利用未打補丁的一些安全漏洞，如果你在Windows操作系統上運行，並使用VBScript中，您將需要能夠驗證到\ kullanici使用具有訪問d $共享的帳戶。通常情況下，只有管理員才能訪問隱藏的管理共享。如果\ kullanici是Windows 2000計算機，但是如果您授予每個人訪問d $共享權限並訪問D：\ lotus \ notes \ data \ archive文件夾的權限，則任何匿名用戶都可以訪問它。

來源

2011-06-25 03:15:32 Dave

如何在不登錄Windows的情況下獲取存檔文件夾的大小？

回答

相關問題