Radik_Assasin
01-10-2013, 17:47
Всем доброго дня. Только начал изучать скрипты и прошу не судить строго. Решил начать с реальной задачи. Задача такая: нужно узнать размер файла в пользовательских машинах домена. Вот что у меня пока получилось:
Dim objFso
Dim f, strD, Owsh, strD2, s
Set objFso = CreateObject("Scripting.FileSystemObject")
Set Owsh = CreateObject("WScript.Shell")
strD = Owsh.ExpandEnvironmentStrings("%userprofile%") & "\Documents\Файлы Outlook\"
strD2 = Owsh.ExpandEnvironmentStrings("%username%") & "@fomsrt.ru.pst"
Set f = objFso.GetFile(strD & strD2)
s = f.Size/1048576
Str = Str & "Размер - " & s & vbCrLf
Set TextStream = objFso.CreateTextFile("C:\Test.txt")
TextStream.WriteLine(Str)
TextStream.Close
На локальном комьютере все нормально работает. А как сделать так чтоб он собрал информацию со всех компов домена и записал все это в файл?
Dim objFso
Dim f, strD, Owsh, strD2, s
Set objFso = CreateObject("Scripting.FileSystemObject")
Set Owsh = CreateObject("WScript.Shell")
strD = Owsh.ExpandEnvironmentStrings("%userprofile%") & "\Documents\Файлы Outlook\"
strD2 = Owsh.ExpandEnvironmentStrings("%username%") & "@fomsrt.ru.pst"
Set f = objFso.GetFile(strD & strD2)
s = f.Size/1048576
Str = Str & "Размер - " & s & vbCrLf
Set TextStream = objFso.CreateTextFile("C:\Test.txt")
TextStream.WriteLine(Str)
TextStream.Close
На локальном комьютере все нормально работает. А как сделать так чтоб он собрал информацию со всех компов домена и записал все это в файл?