Скрипты для системных администраторов Windows, Полезные скрипты для Win2003 |
Здравствуйте Гость [ Вход | Регистрация ] | Форум в сети 6731-й день
![]() |
Шановні користувачі! Запрошуємо вас до офіційного телеграм-канала 0day Community. Тут ви зможете поспілкуватися одне з одним та дізнатися про останні новини щодо роботи ресурса, поставити запитання до адміністрації, тощо. Перейти до телеграм-канала можна відсканувавши QR-код або натиснувши на посилання: @zeroday_ua |
Скрипты для системных администраторов Windows, Полезные скрипты для Win2003 |
Nazim |
Пост
#1
|
Благодарности: 3890 Репутация: ![]() ![]() Постоялец ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 799 С нами с: 14-March 07 ![]() |
Предлагаю выкладывать сюда скрипты для администрирования. Например вот мой для подключения сетевого диска
» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... « для подключения принтера » Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... « Меня например интересует скрипт, который отображает во сколько пользователь подключился в сеть. Кстати кое что можно и тут найти http://gallery.technet.microsoft.com/ScriptCenter/en-us/ Сообщение отредактировал Spectral - Apr 30 2011, 3:42 |
![]() ![]() |
ups |
Пост
#61
|
Репутация: ![]() ![]() Активист ![]() Группа: Пользователи Сообщений: 338 С нами с: 2-November 06 ![]() |
%computername%
|
olexande |
Пост
#62
|
Репутация: ![]() ![]() Старожил ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 2 042 С нами с: 27-February 07 ![]() |
А есть информация про эти "зарезервированные" переменные почитать?
|
ups |
Пост
#63
|
Репутация: ![]() ![]() Активист ![]() Группа: Пользователи Сообщений: 338 С нами с: 2-November 06 ![]() |
|
igor_loboda |
Пост
#64
|
Репутация: ![]() ![]() Дух Группа: Пользователи Сообщений: 26 С нами с: 16-April 06 ![]() |
Ребят подскажите плиз,как через групповые политики или через скрипт всем юзверям проставить по дефолту английский язык при входе в профиль?
|
Nazim |
Пост
#65
|
Благодарности: 3890 Репутация: ![]() ![]() Постоялец ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 799 С нами с: 14-March 07 ![]() |
Ребят подскажите плиз,как через групповые политики или через скрипт всем юзверям проставить по дефолту английский язык при входе в профиль? Попробуй в политиках Конфигурация пользователя - Административные шаблоны - Панель управления - Язык и стандарты. Сам не пробовал. |
-danger- |
Пост
#66
|
Репутация: ![]() ![]() Cтаршой ![]() ![]() Группа: Пользователи Сообщений: 627 С нами с: 16-March 06 ![]() |
существует ли скрипт или батник для включения/отключения дефолтного сетевого подключения?
Сообщение отредактировал -danger- - Dec 16 2008, 12:41 |
Nazim |
Пост
#67
|
Благодарности: 3890 Репутация: ![]() ![]() Постоялец ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 799 С нами с: 14-March 07 ![]() |
существует ли скрипт или батник для включения/отключения дефолтного сетевого подключения? посмотри тут http://forum.script-coding.info/viewtopic.php?id=743, а именно скрипт, который переключает состояние указанного сетевого подключения компьютера (если включено - отключает, и наоборот) » Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... « Сообщение отредактировал Nazim - Dec 16 2008, 14:24 |
oia |
Пост
#68
|
Благодарности: 25192 Репутация: ![]() ![]() Домовой ![]() ![]() ![]() ![]() Группа: Validating Сообщений: 4 340 С нами с: 12-March 06 ![]() ![]() |
Этот скрипт vbs, написанный мной спонтанно, позволяет устанавливать или сбрасывать флажок «разрешить удалённый доступ к этому компьютеру» на вкладке удалённые сеансы в свойствах системы! Теперь вы сможете подключаться к удалённому рабочему столу любой машины в вашей сети…
Требуются некоторые пояснения. Переписать скрипт на любой язык программирования, включая мой любимый С++ не составит труда даже для самых юных кодеров! VBS выбран мной только из соображений лени, если так можно выразиться (под руками был генератор скриптов именно vbs) правда править его ручками пришлось всё равно! » Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... « |
Nazim |
![]()
Пост
#69
|
Благодарности: 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 |
ups |
Пост
#70
|
Репутация: ![]() ![]() Активист ![]() Группа: Пользователи Сообщений: 338 С нами с: 2-November 06 ![]() |
Команда start не имеет ключей -u и -p или, в данном случае, идёт речь о версии мне неизвестной, однако эти ключи имеет другая полезная утилита - psexec. Здесь я плавно перешёл к альтернативным вариантам
![]() Для решения данной задачи делаем следующий батничек, который запускаем со своей машины psexec \\ComputerName -u Администратор -p Пароль cmd /k "net user ЛокальныйАдмин ПАРОЛЬ" либо предварительно запускаем cmd от имени того самого Администратор'a и тогда батник будет таким psexec \\ComputerName cmd /k "net user ЛокальныйАдмин ПАРОЛЬ" Напомню, что для корректной работы psexec на удалённом ПК должны быть открыты системные шары А для любителей графики хочу порекомендовать софтину XS BAP - http://www.avianwaves.com/Tech/Tools/XS_BAP/ Конечно, у каждого из этих вариантов есть свои плюсы-минусы, но, по-моему, они куда более безопастны, чем скрипт запускающийся на удалённой машине, в котором будет указан пароль админа в явном виде. |
Nazim |
Пост
#71
|
Благодарности: 3890 Репутация: ![]() ![]() Постоялец ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 799 С нами с: 14-March 07 ![]() |
Напомню, что для корректной работы psexec на удалённом ПК должны быть открыты системные шары немного поправлю, если системные шары закрыты, то ничего у вас не получиться. есть еще и такие вот варианты Set WshNetwork = CreateObject("WScript.Network") strComputer = WshNetwork.ComputerName Set objUser = GetObject("WinNT://" & strComputer & "/Администратор,user") objUser.SetPassword "12345" objUser.SetInfo и JScript fso=WScript.CreateObject("Scripting.FileSystemObject"); file=fso.OpenTextFile("changedpasses.txt",8,true); AD=GetObject("winmgmts:\\\\.\\root\\directory\\LDAP"); computers=new Enumerator(AD.ExecQuery("SELECT DS_cn FROM ds_computer ")); exclusions=Exclude("changedpasses.txt"); while(!computers.atEnd()) { currentComputer=computers.item().DS_cn; flag=0; for(i=0;i<=exclusions.length-1;i++) { if(currentComputer.toLowerCase()==exclusions[i].toLowerCase()) { flag=1; break; } } if(flag!=1) { if(Alive(currentComputer)) { try { WMI=GetObject("winmgmts:{impersonationLevel=Impersonate}!\\\\"+currentComputer+"\\Root\\CIMV2"); users=new Enumerator(WMI.ExecQuery("SELECT * FROM Win32_UserAccount")); while(!users.atEnd()) { if(users.item().Name=="Администратор") { ChangePass(currentComputer,"Администратор",file); } else if(users.item().Name=="Administrator") { ChangePass(currentComputer,"Administrator",file); } users.moveNext(); } } catch(e) {WScript.Echo(currentComputer+" Connection Error");} } } computers.moveNext(); } file.Close(); function ChangePass(comp,username,outfile) { var User; User=GetObject("WinNT://"+comp+"/"+username+",user"); User.SetPassword("pass"); //здесь задаем пароль WScript.Echo(comp+" Password for "+username+" successfully changed"); outfile.WriteLine(comp.toLowerCase()); } function Exclude(lst) { var i,fso,file,exclusion; fso=WScript.CreateObject("Scripting.FileSystemObject"); file=fso.OpenTextFile(lst,1,true); i=0; exclusion=new Array(); while (!file.atEndOfStream) { exclusion[i]=file.ReadLine(); i++; } file.Close(); return exclusion; } function Alive(pc) { var pingProv,ping,ret; pingProv=GetObject("winmgmts:{impersonationLevel=Impersonate}!\\\\.\\Root\\CIMV2"); ping=pingProv.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '"+pc+"' and Timeout=10"); ping=new Enumerator(ping).item().StatusCode; (ping==0) ? ret=true : ret=false; return ret; } Сообщение отредактировал Nazim - Jan 22 2009, 9:24 |
BANDIT(filmmaniac) |
Пост
#72
|
Благодарности: 353848 Репутация: ![]() ![]() Маньяк ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 12 332 С нами с: 31-January 07 ![]() |
Может у кого-то есть скрипт, который отключает брандмауэр?
|
klez |
Пост
#73
|
Репутация: ![]() ![]() Активист ![]() Группа: Пользователи Сообщений: 430 С нами с: 2-October 07 ![]() |
Можно заюзать в батнике Netsh
для ХП к примеру так netsh firewall set opmode mode=DISABLE profile=DOMAIN или так netsh firewall set opmode disable Для висты аналогично. |
BANDIT(filmmaniac) |
Пост
#74
|
Благодарности: 353848 Репутация: ![]() ![]() Маньяк ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 12 332 С нами с: 31-January 07 ![]() |
|
klez |
Пост
#75
|
Репутация: ![]() ![]() Активист ![]() Группа: Пользователи Сообщений: 430 С нами с: 2-October 07 ![]() |
Ааа, тогда так(для висты)
sc stop mpssvc А что бы задизаблить sc config start=disabled mpssvc Сообщение отредактировал klez - Feb 9 2009, 12:42 |
BANDIT(filmmaniac) |
Пост
#76
|
Благодарности: 353848 Репутация: ![]() ![]() Маньяк ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 12 332 С нами с: 31-January 07 ![]() |
Наверно на Висте этот процесс немного по другому называется, потому что на ХР не сработал.
|
klez |
Пост
#77
|
Репутация: ![]() ![]() Активист ![]() Группа: Пользователи Сообщений: 430 С нами с: 2-October 07 ![]() |
Упс, забыл про ХП.
Кажется там это SharedAccess Сообщение отредактировал klez - Feb 9 2009, 13:06 |
BANDIT(filmmaniac) |
Пост
#78
|
Благодарности: 353848 Репутация: ![]() ![]() Маньяк ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модеры Сообщений: 12 332 С нами с: 31-January 07 ![]() |
Вот нагуглил то что надо, чтобы вообще не включался.
net stop SharedAccess sc config SharedAccess start= disabled |
Disconnect |
Пост
#79
|
Репутация: ![]() ![]() Дух Группа: Пользователи Сообщений: 42 С нами с: 21-March 06 ![]() |
................Никак не получается. Возможно есть еще какие то варианты. Пробовал с помощь программы AdminLink - результат тот же Если через AD то в групповых политиках компьютера закинуть скрипт в Автозагрузку. "Конфигурация коипьютера" -> "Конфигурация Windows" -> "Сценарии (запуск/завершение)" -> "Автозагрузка". И будет все ок. |
gonny |
Пост
#80
|
Незарегистрированный ![]() |
А можно сделать так, чтоб флешки только с определенным именем подключались к компу, а остальные нет? Или какой-то файл на флешку для проверки положить..или только шифрованое понимает..а не шифрованное не понимает
|
![]() ![]() |
![]() |
Упрощённая версия | Сейчас: 19th August 2024 - 10:37 |
Сайт не розміщує електронні версії творів, а займається лише колекціонуванням та каталогізацією посилань, що публікуються нашими користувачами. Якщо Ви є правовласником якоїсь частини опублікованого матеріалу та не бажаєте, щоб посилання на нього знаходилось в нашому каталозі, зв’яжіться з нами і ми видалимо його. Файли для обміну надані користувачами сайту і адміністрація не несе відповідальності за їх вміст. |