Klasör boyutunu öğrenme. (yardım)

bence başlıktaki yardım kelimesine çok kızacaklar

bence başlıktaki yardım kelimesine çok kızacaklar

 Çözüm park'ta ki ÇÖZÜM kelimesini reklam içinmi kullanıyorsunuz ?

Ne şimdi sorunlar çözülemiyecekmi kim neye kızacak onu anlamadım !!

http://www.cozumpark.com/forums/21/ShowForum.aspx  

7. Gönderdiğiniz iletilerdeki başlıklar sorunları ifade edecek şekilde yazılmalıdır. Aksine  "çok acil, help, yardım, lütfen acil yardım vb.." başlıkları olan iletileri mümkün olduğunca kullanmayınız. Kullandığınız takdirde, mesajınız uyarı yapılmadan silinebilir.

bence başlıktaki yardım kelimesine çok kızacaklar

 Çözüm park'ta ki ÇÖZÜM kelimesini reklam içinmi kullanıyorsunuz ?

Ne şimdi sorunlar çözülemiyecekmi kim neye kızacak onu anlamadım !!

Melih bey merhaba, Mert bey biraz konuyu abartılı olarak yazmış, Kızmak kelimesi çok yanlış olmuş, sadece yeni girdiğini bir ortamda öncelikle forum kurallarını okumanız sizlere yardımcı olacaktır. Çünkü ben dahil ekip arkadaşlarım forum kurallarına uymayan sorulara yanıt vermiyoruz. Taktir edersiniz ki 43.000 kişilik bir platformda kurallara uymazsak bu kaliteyi yakalayamayız.

bilginize

Arkadaslar, bir komut ile ilgili yardıma ihtiyacım var;

olusturmak istedigim şey kullanıcıların kullandığı lotus mail programının arşiv klasorunun boyutunu göreceğim bir batch olusturmak örnek olarak;

\\kullanici\d$\lotus\notes\data\archive

arsiv klasörünün boyutunu kullanıcıların bilgisayarına girmeden sadece değişken olan bilgisayar ismini yazarak nasıl ogrenebilirim.. ?

Bu klonuda pek çok program bulunmaktadır

http://programmingguy.blogspot.com/2009/08/how-do-i-check-disk-space-of-remote.html

http://blogs.technet.com/b/heyscriptingguy/archive/2007/08/17/how-can-i-report-disk-quota-information-for-the-logged-on-user.aspx

veya sysinternals aracı olan 

http://technet.microsoft.com/en-us/sysinternals/bb896651

programını tavsiye ederim. 

Hakan bey tesk. ederim istedigim programi calistirmayi basardim, yanliz ufak bir kıstas daha olustu .vbs olarak calistirdiktan sonra ekranima bilgi olarak geliyor bunun yerine txt yada excel file hatta html olarakta rapor alabilme imkanım varmı bu komut ile ilgili bilgisi olan varmı acaba ?

Melih bey zaten doğrusu korkutmak değil bizlerin yaptığı gibi yardımcı olmak, hangi komut setini kullandınız ? Bilinen yöntem olarak >c:\hakan.txt şeklinde bir çıktı alabilirsiniz ama dediğim gibi siz komutu örneklerseniz bizde bildiğimiz bir şey varsa paylaşmaya gayret gösterelim.

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 fso = Nothing

Kullandığım komut bu, ama txt olarak rapor almak icin hangi komutu nereye yerlestirecegimi bilemedim.

Merhaba Melih Bey,

Aşağıdaki kod yardımcı olacaktır;

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

TextFile.Writeline "Sonuclar:" & cikti
......bla bla bla

Set TextFile = Nothing
Set WshNetwork = Nothing
Set FSO = Nothing

Merhaba Seyit bey,

Teşşekkür ederim kodu ekledim txt dosyasını açıyor istediğim yere fakat notepad dosyasının içersinde sadece Sonuclar: yazıyor rakamsal sonucları gostermiyor..