Как я могу получить размер архивной папки без входа в Windows?

Question

Как я могу получить размер папки архива без входа в Windows? И я хочу просто получить имя компьютера как переменную в блокноте.Я использую \\kullanici\d$\lotus\notes\data\archive в качестве пути.Вот мой код VBS.

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 

Answer 1

Помимо использования какой-либо незащищенной уязвимости безопасности, если вы работаете в операционной системе Windows и используете VBScript, вам понадобится иметь возможность проходить аутентификацию в \ kullanici с учетной записью, имеющей доступ к общему ресурсу d $.Обычно только администраторы имеют доступ к скрытому административному общему ресурсу, подобному этому.

Если \ kullanici - это компьютер под управлением Windows 2000, если вы предоставите всем доступ к общему ресурсу d $ и к D: \ lotus \ notes\ data \ archive folder, тогда любой анонимный пользователь будет иметь к ней доступ.