Отправляет email-рассылки с помощью сервиса Sendsay

Использование VbScript для администратора Windows

Подписаться Бесплатная «Серебряная» новостная рассылка Подписчиков 439 RSS
  Июль 2008   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 26-06-2008

Автор
Новопашин Владимир

Статистика

439 подписчиков
0 за неделю
←   Все выпуски   →

Использование VbScript для администратора Windows Выводим сетевые ресурсы в файл.


Добрый день уважаемый подписчик!
Я решил сделать пробу пера и мой первый скрипт будет выводить присоединенные к компьютеры сетевые
диски и принтеров.

Ниже код скрипта предназначен для вывода присоединенных сетевых дисков и принтеров в файл.
Скопируйте ниже код (Листинг 1) в файл и сделайте его с расширением vbs. При выполнении этого
файла создается текстовый протокол log.txt, который создается в том же каталоге, что и сам
исполняемый vbs файл.

В файл log.txt выводится следующая информация :
- наименование домена;
- наименование локального компьютера;
- имя пользователя;
- наименование присоединенных сетевых дисков;
- наименование присоединенных сетевых принтеров.

В следующей рассылке обсудим как присоединить сетевые диски и принтеры.

В случае, если возникли вопросы пишите по адресу: novopashinwm@mail.ru .

Листинг 1.
---> Начинаем копировать здесь
Dim objPrinters, objDisks, objPrinter, objDisk
Dim objFSO, objLog, objNetwork

Set objFSO = CreateObject("Scripting.FileSystemObject")
'Создаем файл протокола log.txt
Set objLog = objFSO.CreateTextFile ("log.txt")
Set objNetwork = WScript.CreateObject("WScript.Network")
'Получаем коллекцию сетевых дисков присоединенных к компьютеру
Set objDisks = objNetwork.EnumNetworkDrives
'Получаем коллекцию принтеров
Set objPrinters = objNetwork.EnumPrinterConnections
'Имя домена
objLog.WriteLine "Domain = " & objNetwork.UserDomain
'Имя локального компьютера
objLog.WriteLine "Computer Name = " & objNetwork.ComputerName
'Имя пользователя
objLog.WriteLine "User Name = " & objNetwork.UserName
objLog.WriteLine
'Выводим присоединенные сетевые диски
objLog.WriteLine "Network drive mappings:"

For i = 0 to objDisks.Count - 1 Step 2
objLog.WriteLine "Drive " & objDisks.Item(i) & " = " & objDisks.Item(i+1)
Next

objLog.WriteLine
'Выводим присоединенные сетевые принтеры
objLog.WriteLine "Network printer mappings:"
For i = 0 to objPrinters.Count - 1 Step 2
objLog.WriteLine "Port " & objPrinters.Item(i) & " = " & objPrinters.Item(i+1)
Next

objLog.Close

Set objFSO = Nothing
Set objLog = Nothing
Set objNetwork = Nothing
Set objDisks = Nothing
Set objPrinters = Nothing

---> Заканчиваем копирование здесь
В избранное