Скрипты для системных администраторов Windows, Полезные скрипты для Win2003 Опции

[Nazim]

Предлагаю выкладывать сюда скрипты для администрирования. Например вот мой для подключения сетевого диска

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

Set WshNetwork = CreateObject("WScript.Network")
'Создание объекта типа Network Set Drives = WshNetwork.EnumNetworkDrives
c = 0 'Пременная проверки на наличие хотя бы одного сетевого диска!
i = 0 While i <= Drives.Count-1 'Проверка на наличие сетевых диков
c = 1 'MsgBox " У вас есть сетевой диск " & Drives.Item(i) & " - " & Drives.Item(i+1) i = i+2 Wend if c=0 then
'MsgBox "Нет ни одного подключенного диска"
'MsgBox "Попытка подключить сетевой диск" 'Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\Имясервера\имя папки"
End if

для подключения принтера

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\имяпринтсервера\имя принтера"

Меня например интересует скрипт, который отображает во сколько пользователь подключился в сеть.

Кстати кое что можно и тут найти

http://gallery.technet.microsoft.com/ScriptCenter/en-us/

Сообщение отредактировал Spectral - Apr 30 2011, 3:42

[Dr.Sydorenko]

судя по https://technet.microsoft.com/en-us/library/cc754900.aspx в 2008-й тоже можно в in (<Set>) указывать выполнение команд

[olexande]

Як варіант - через пошук (адміном) можна їх усі знайти та видалити, а 1-н потрібний "правильно" покласти ...

[mukolaich]

Успешно и много пишу на PowerShell, напишу Форумчанам за наличие его потом в портфолио

[Fanta]

Успешно и много пишу на PowerShell, напишу Форумчанам за наличие его потом в портфолио

можно бросать заявки на скрипты?

Если да то вот один

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

Есть AD и VPN построенный на Cisco. Они "дружат" между собой и если у юзера активирован Network Access Permison на вкладке Dial-In (скрин http://joxi.ru/8An0vjOcqXKzmO ) то он может пользоваться ВПНом используя свой доменный логин/пароль.

Но вся соль в том что ВПН разрешается только на определенный срок: день/неделя/декада/месяц.
Нужно автоматизировать прекращение доступа к ВПН.
Как я это вижу:
1) создается новый атрибут (или используется существующий) в котором указывается срок действия ВПН
2) При активации ВПНа пользователь добавляется в группу VPN
3) каждый день запускается скрипт который:
а) получает список юзеров группы VPN
б) проверяет каждого юзера и получает значение данного атрибута
в) если атрибут = сегодняшней дате то скрипт меняет значение Network Access Permison и удаляет юзера из группы

4) как опция: шлет мыло со списком удаленных юзеров.

[olexande]

Де плануєте зберігати строк дії vpn-доступу?

[Fanta]

Де плануєте зберігати строк дії vpn-доступу?

це проблема
щоб не городити городи вирішили створювати групу на кожен день
тобто якщо юзеру дають ВПН до 01.12.2015 то в окремій ОУ створюється група "01-12-2015" і туди вноситься юзер
кожного вечора в 23.50 запускається скрипт який бере сьогоднішню дату і порівнює її з назвою групи.
якщо така група є то скрипт всім юзерам цієї групи виключає Network Access Permison і (опціонально) видаляє юзера з групи

ось такий велосипед який "централізує" все це діло.

[olexande]

Теоретично, Вам може допомогти розширення схеми MS AD дублікатом поля користувача, як приклад "whenCreated".

Там як раз формат дата-час. Питання залишаэться, як зручно продивлятись, редагувати та слідкувати за "цими" датами...

Як варіант, можна створити і свою оснастку, чи тіпа сайту ...

Сообщение отредактировал olexande - May 21 2015, 11:46

[Fanta]

Теоретично, Вам може допомогти розширення схеми MS AD дублікатом поля користувача, як приклад "whenCreated".

Там як раз формат дата-час. Питання залишаэться, як зручно продивлятись, редагувати та слідкувати за "цими" датами...

Як варіант, можна створити і свою оснастку, чи тіпа сайту ...

так в тому то і фішка що можна кучу всього наворотити
але простіше тупо ставити юзеру галку і додавати його в групу. все інше має бути автоматизовано

[Fanta]

Успешно и много пишу на PowerShell, напишу Форумчанам за наличие его потом в портфолио

ще один:
вивести список файлів (і їх розташування) у яких довжина шляху більше 256 символів

[biqbo]

Доброго времени суток.
Возникла проблема что сетка ложится по 5-6 раз в день, на минуты 3-4.
Устройсва которые подключены по wi-fi остаются подключены к точкам доступа, но "теряют" свои сетевые адреса. Тоже самое и на ПК которые подключены шнурком.

Есть ли у кого скрипт cmd/bat для пинга и сохранения результатов в текствой файл?
Поделитесь пожалуйста, с меня "+"
Заранее спасибо.

ПС. Паралельно гуглю в поисках )

Сообщение отредактировал biqbo - Jul 13 2015, 21:05

[gonivo]

ping i.ua >c:\1

[HEAVY]

ping i.ua >c:\1.txt

[mak_v_]

Господа, нужен батник (под Шиндовс 2003) следующего содержимого:
1) Имеем список файлов в директории.
2) Необходимо пройтись по списку файлов и составить текстовй файл.

Например: имеем 3 файла:
file1, file2, file3
Необходимо на выходе получить текстовый файл с таким содержанием:
client.exe --sql="UPDATE row_files SET val='added_rowfile1' WHERE val='skipped_rowfile1' and type='well'"
client.exe --sql="UPDATE row_files SET val='added_rowfile2' WHERE val='skipped_rowfile2' and type='well'"
client.exe --sql="UPDATE row_files SET val='added_rowfile3' WHERE val='skipped_rowfile3' and type='well'"

Просю помощи....

Сообщение отредактировал mak_v_ - Aug 5 2015, 11:43

[Dr.Sydorenko]

Господа, нужен батник (под Шиндовс 2003) следующего содержимого:

Как-то так (для всех файлов в директории):

for /F %i IN ('dir /A /B c:\dir') DO @echo client.exe --sql="UPDATE row_files SET val='added_row%i' WHERE val='skipped_row%i' and type='well'" >> file.txt

Если в батнике, то заменить на %%i

если список файлов хранится в файле, то как-то так:

for /F %i IN (c:\dir\list.txt) DO @echo client.exe --sql="UPDATE row_files SET val='added_row%i' WHERE val='skipped_row%i' and type='well'" >> file.txt

Сообщение отредактировал Sintorres - Aug 5 2015, 12:29

[mzk]

Ребята, нужна помощь в написании скрипта на PowerShell

Копирование файлов по сети (порядка 30-40 тысяч мелких файлов)

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

$source = "c:\source\Библиотека"
$dest1 = "\\host1\c$\Program Files (x86)\P0\"
$dest1_1 = "\\host2\c$\Program Files (x86)\P0\Библиотека"

$dest2 = "\\host2\c$\Program Files (x86)\P0\"
$dest2_1 = "\\host2\c$\Program Files (x86)\P0\Библиотека"

$exclude = @('*.db','*.config')

Write-Output "Deleting from pc1..."
Remove-Item $dest1_1 -Recurse
Write-Output "Copying on pc1..."
Copy-Item $source -Destination $dest1 -Force -Recurse -Exclude $exclude
Write-Output "Complete pc1"


Write-Output "Deleting from pc2..."
Remove-Item $dest2_1 -Recurse
Write-Output "Copying on pc2..."
Copy-Item $source -Destination $dest2 -Force -Recurse -Exclude $exclude
Write-Output "Complete pc2"

Write-Output "Replacement fully completed."

Сначала нужно удалить всю папку "Библиотека" а потом скопировать новую из $source в $dest1 и $dest2 и тд... (всего 6).
Удаление происходит нормально, копирование тоже, но как только скрипт доходит до $dest2 удаляет там, то удаление происходит так же и в $dest1, одновременно короче.

Как это сделать по очереди?
Сначала $dest1, потом $dest2 и тд ?

В PowerShelle не силен, поэтому прошу помощи

[Spyder3W]

В конце каждого добавь

| Out-Null

Сообщение отредактировал Spyder3W - Aug 18 2015, 10:41

[mukolaich]

Ребята, нужна помощь в написании скрипта на PowerShell

Копирование файлов по сети (порядка 30-40 тысяч мелких файлов)

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

$source = "c:\source\Библиотека"
$dest1 = "\\host1\c$\Program Files (x86)\P0\"
$dest1_1 = "\\host2\c$\Program Files (x86)\P0\Библиотека"

$dest2 = "\\host2\c$\Program Files (x86)\P0\"
$dest2_1 = "\\host2\c$\Program Files (x86)\P0\Библиотека"

$exclude = @('*.db','*.config')

Write-Output "Deleting from pc1..."
Remove-Item $dest1_1 -Recurse
Write-Output "Copying on pc1..."
Copy-Item $source -Destination $dest1 -Force -Recurse -Exclude $exclude
Write-Output "Complete pc1"
Write-Output "Deleting from pc2..."
Remove-Item $dest2_1 -Recurse
Write-Output "Copying on pc2..."
Copy-Item $source -Destination $dest2 -Force -Recurse -Exclude $exclude
Write-Output "Complete pc2"

Write-Output "Replacement fully completed."

Сначала нужно удалить всю папку "Библиотека" а потом скопировать новую из $source в $dest1 и $dest2 и тд... (всего 6).
Удаление происходит нормально, копирование тоже, но как только скрипт доходит до $dest2 удаляет там, то удаление происходит так же и в $dest1, одновременно короче.

Как это сделать по очереди?
Сначала $dest1, потом $dest2 и тд ?

В PowerShelle не силен, поэтому прошу помощи

В принципе все правильно в скрипте, все отрабатывает последовательно и по очереди.
Единственное, нужно поменять Write-Output на Write-Host, это разные командлеты по принципу, использовать их тоже нужно в разных кейсах.
Out-Null нигде писать не надо.

Доброго времени суток.
Возникла проблема что сетка ложится по 5-6 раз в день, на минуты 3-4.
Устройсва которые подключены по wi-fi остаются подключены к точкам доступа, но "теряют" свои сетевые адреса. Тоже самое и на ПК которые подключены шнурком.

Есть ли у кого скрипт cmd/bat для пинга и сохранения результатов в текствой файл?
Поделитесь пожалуйста, с меня "+"
Заранее спасибо.

ПС. Паралельно гуглю в поисках )

Для этого есть 2 командлета:
Test-NetConnection -ComputerName www.contoso.com -InformationLevel Detailed | Out-File 'C:\Path\to\file.txt
Test-Connection -ComputerName www.contoso.com -Count 100500 | Out-File 'C:\Path\to\file.txt

Сообщение отредактировал mukolaich - Aug 28 2015, 20:17

[Aleha]

Привет всем.
Нужна помощь со скриптом на vbs.

Задача стоит такая: есть пользователи в AD, есть компьютеры там же. Надо чтобы при логине пользователя на компьютер, в поле Description пользователя прописывалось имя компьютера.

Пока пришел к такому решению:

Dim adsinfo, ThisComp, oUser

' Определяем объекты
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)

' Заносим данные в AD

'В поле Description учетки пользователя пишем имя компьютера
oUser.put "Description", ThisComp.cn
oUser.Setinfo
wscript.quit

Но так не подходит т.к. пользователи своими доменными УЗ заходят и на терминальные сервера, т.е. надо как то исключить их.
Все компьютеры названы одним и тем же паттерном (LND-WS0001, CPR-WS0001 и так далее, у нас четыре локации) а вот сервера бывают разные.
Думаю про какой то if then else, но язык vbs знаю из рук вон плохо.

[Fanta]

Но так не подходит т.к. пользователи своими доменными УЗ заходят и на терминальные сервера, т.е. надо

Зазвичай такі скрипти треба "вішати" на ОУ де є ПК і зазвичай для ПК і Севрерів юзаються різні ОУ.
Якщо ж все погано то ви на ГПО де юзається цей скрипт повісьте ВМІ-фільтр який буде фільтрвувати ТС і на них ця політика не буде примінятися!

[Aleha]

Зазвичай такі скрипти треба "вішати" на ОУ де є ПК і зазвичай для ПК і Севрерів юзаються різні ОУ.
Якщо ж все погано то ви на ГПО де юзається цей скрипт повісьте ВМІ-фільтр який буде фільтрвувати ТС і на них ця політика не буде примінятися!

Так скрипт предназначен для пользователя же, это logon-скрипт, потому отфильтровать так не получится, ни первым ни вторым способом.