[решено] Как узнать размер файла в доменных компьютерах

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Как узнать размер файла в доменных компьютерах

Всем доброго дня. Только начал изучать скрипты и прошу не судить строго. Решил начать с реальной задачи. Задача такая: нужно узнать размер файла в пользовательских машинах домена. Вот что у меня пока получилось:

Код:

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

На локальном комьютере все нормально работает. А как сделать так чтоб он собрал информацию со всех компов домена и записал все это в файл?

1 вариант: использовать Logon-скрипт, складывающий собранную информацию в базу данных (а не просто в текстовый файл — могут быть коллизии доступа).

2 вариант: использовать Wbem для доступа к удалённым машинам.

Первый вариант обычно применяется для регулярных задач, второй — для непосредственного, сиюжеминутного сбора.

Цитата:

Цитата Iska

1 вариант: использовать Logon-скрипт, складывающий собранную информацию в базу данных (а не просто в текстовый файл — могут быть коллизии доступа).
2 вариант: использовать Wbem для доступа к удалённым машинам.
Первый вариант обычно применяется для регулярных задач, второй — для непосредственного, сиюжеминутного сбора. »

А можно поподробней про второй вариант?

Посмотрите пример доступа здесь. Но Вам лучше использовать первый вариант, поскольку проще будет со всякими «.ExpandEnvironmentStrings()» и т.п.