Скрипты для системных администраторов Windows, Полезные скрипты для Win2003 |
Здравствуйте Гость [ Вход | Регистрация ] | Форум в сети 6733-й день
![]() |
Шановні користувачі! Запрошуємо вас до офіційного телеграм-канала 0day Community. Тут ви зможете поспілкуватися одне з одним та дізнатися про останні новини щодо роботи ресурса, поставити запитання до адміністрації, тощо. Перейти до телеграм-канала можна відсканувавши QR-код або натиснувши на посилання: @zeroday_ua |
Скрипты для системных администраторов Windows, Полезные скрипты для Win2003 |
Nazim |
Пост
#261
|
Благодарности: 3890 Репутация: ![]() ![]() Постоялец ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 799 С нами с: 14-March 07 ![]() |
Предлагаю выкладывать сюда скрипты для администрирования. Например вот мой для подключения сетевого диска
» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... « для подключения принтера » Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... « Меня например интересует скрипт, который отображает во сколько пользователь подключился в сеть. Кстати кое что можно и тут найти http://gallery.technet.microsoft.com/ScriptCenter/en-us/ Сообщение отредактировал Spectral - Apr 30 2011, 3:42 |
![]() ![]() |
Nazim |
![]()
Пост
#262
|
Благодарности: 3890 Репутация: ![]() ![]() Постоялец ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 799 С нами с: 14-March 07 ![]() |
Нужно изменить пароль локального админа в сети с помощью скрипта.
Есть скрипт Dim Container Dim ContainerName Dim User, UsrSID, b Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") ComputerName=WshNetwork.ComputerName Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & ComputerName & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48) For Each objItem in colItems ostype=objItem.OSType osver=objItem.Version oslang=objItem.OSLanguage spver=objItem.ServicePackMajorVersion Next strOSVer = Left(osVer, 3) If strosver<>"5.2" then strSelect="Select * from Win32_UserAccount" Set colSystemUsers = objWMIService.ExecQuery (strSelect) For Each objSystemUser in colSystemUsers if Right(objSystemUser.SID,3)="500" Then Set objUser = GetObject("WinNT://" & ComputerName & "/" & objSystemUser.Name & ",user") NewPassword="supper" Call objUser.SetPassword(NewPassword) Exit For End If Next End if Потом создаю батник для запуска этого скрипта с правами админа ибо под правами обычными пароль не меняется. start путь к скрипту -u Администратор -p пароль Никак не получается. Возможно есть еще какие то варианты. Пробовал с помощь программы AdminLink - результат тот же Сообщение отредактировал Nazim - Jan 21 2009, 12:30 |
Disconnect |
Пост
#263
|
Репутация: ![]() ![]() Дух Группа: Пользователи Сообщений: 42 С нами с: 21-March 06 ![]() |
................Никак не получается. Возможно есть еще какие то варианты. Пробовал с помощь программы AdminLink - результат тот же Если через AD то в групповых политиках компьютера закинуть скрипт в Автозагрузку. "Конфигурация коипьютера" -> "Конфигурация Windows" -> "Сценарии (запуск/завершение)" -> "Автозагрузка". И будет все ок. |
![]() ![]() |
![]() |
Упрощённая версия | Сейчас: 20th August 2024 - 22:24 |
Сайт не розміщує електронні версії творів, а займається лише колекціонуванням та каталогізацією посилань, що публікуються нашими користувачами. Якщо Ви є правовласником якоїсь частини опублікованого матеріалу та не бажаєте, щоб посилання на нього знаходилось в нашому каталозі, зв’яжіться з нами і ми видалимо його. Файли для обміну надані користувачами сайту і адміністрація не несе відповідальності за їх вміст. |