Войти

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


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
На локальном комьютере все нормально работает. А как сделать так чтоб он собрал информацию со всех компов домена и записал все это в файл?

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

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

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

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

Iska
02-10-2013, 12:54
Посмотрите пример доступа здесь (http://forum.oszone.net/post-2224996.html#post2224996). Но Вам лучше использовать первый вариант, поскольку проще будет со всякими «.ExpandEnvironmentStrings()» и т.п.




© OSzone.net 2001-2012