Скрипты для системных администраторов 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

[ups]

%computername%

[olexande]

А есть информация про эти "зарезервированные" переменные почитать?

[ups]

Переменные среды в Cmd.exe - http://it.bakinity.biz/smart.php?cat=2&id=134

[igor_loboda]

Ребят подскажите плиз,как через групповые политики или через скрипт всем юзверям проставить по дефолту английский язык при входе в профиль?

[Nazim]

Ребят подскажите плиз,как через групповые политики или через скрипт всем юзверям проставить по дефолту английский язык при входе в профиль?

Попробуй в политиках Конфигурация пользователя - Административные шаблоны - Панель управления - Язык и стандарты. Сам не пробовал.

[-danger-]

существует ли скрипт или батник для включения/отключения дефолтного сетевого подключения?

Сообщение отредактировал -danger- - Dec 16 2008, 12:41

[Nazim]

существует ли скрипт или батник для включения/отключения дефолтного сетевого подключения?

посмотри тут http://forum.script-coding.info/viewtopic.php?id=743, а именно скрипт, который переключает состояние указанного сетевого подключения компьютера (если включено - отключает, и наоборот)

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

strNetConn = "Сетевые подключения" ' Network Connections для англ. версии ОС
strConn = "Подключение по локальной сети" ' имя или часть имени подключения
strEnable = "&Включить" ' En&able для англ. версии ОС
strDisable = "&Отключить" ' Disa&ble для англ. версии ОС

Set objShell = CreateObject("Shell.Application")
Set objCP = objShell.Namespace(3) ' Панель управления
For Each elem in objCP.Items
If elem.Name = strNetConn Then
' получение папки "Сетевые подключения"
Set colNetwork = elem.GetFolder
Exit For
End If
Next

Set Conn = Nothing
For Each clsConn in colNetwork.Items
If Instr(LCase(clsConn.name), LCase(strConn)) Then
' получение указанного подключения
Set Conn = clsConn
Exit For
End If
Next
If Conn Is Nothing Then
WScript.Echo "Network Connection not found"
WScript.Quit
End If

bEnabled = True
Set objEnable = Nothing
Set objDisable = Nothing
For Each clsVerb in Conn.verbs
' если доступен глагол "Enable", подключение отключено
If clsVerb.Name = strEnable Then
Set objEnable = clsVerb
bEnabled = False
End If
' если доступен глагол "Disable", подключение подключено
If clsVerb.name = strDisable Then
Set objDisable = clsVerb
End If
Next

If bEnabled Then
objDisable.DoIt
strStatus = "disabled."
Else
objEnable.DoIt
strStatus = "enabled."
End If
WScript.Sleep 1000

WScript.Echo Conn.Name & " " & strStatus

Сообщение отредактировал Nazim - Dec 16 2008, 14:24

[oia]

Этот скрипт vbs, написанный мной спонтанно, позволяет устанавливать или сбрасывать флажок «разрешить удалённый доступ к этому компьютеру» на вкладке удалённые сеансы в свойствах системы! Теперь вы сможете подключаться к удалённому рабочему столу любой машины в вашей сети…

Требуются некоторые пояснения.
Переписать скрипт на любой язык программирования, включая мой любимый С++ не составит труда даже для самых юных кодеров! VBS выбран мной только из соображений лени, если так можно выразиться (под руками был генератор скриптов именно vbs) правда править его ручками пришлось всё равно!

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

1. подставьте нужные значения
strComputer = "ИмяУдалённогоКомпьютера"
strDomain = "ИмяДомена"
2. подставьте имя машины на которой запускаете скрипт
ServerName='ИмяКомпьютера'
3. параметр = 1 установит флажок параметр = 0 сбросит его
objInParam.Properties_.Item("AllowTSConnections") = 1

Запустить скрипт легко по контекстному меню смотрите рисунки.

P.S. Проверено на 32 битных и 64 битных системах (WindowsServer2003, WindowsXP)

strComputer = "ИмяУдалённогоКомпьютера"
strDomain = "ИмяДомена"
Wscript.StdOut.Write "Please enter your user name:"
strUser = Wscript.StdIn.ReadLine
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()
Wscript.Echo

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _
"root\CIMV2", _
strUser, _
strPassword, _
"MS_409", _
"ntlmdomain:" + strDomain)
' Obtain an instance of the the class
' using a key property value.
Set objShare = objWMIService.Get("Win32_TerminalServiceSetting.ServerName='ИмяКомпьютера'")

' Obtain an InParameters object specific
' to the method.
Set objInParam = objShare.Methods_("SetAllowTSConnections"). _
inParameters.SpawnInstance_()


' Add the input parameters.
objInParam.Properties_.Item("AllowTSConnections") = 1

' Execute the method and obtain the return status.
' The OutParameters object in objOutParams
' is created by the provider.
Set objOutParams = objWMIService.ExecMethod("Win32_TerminalServiceSetting.ServerName='ИмяКомпьютера'", "SetAllowTSConnections", objInParam)

' List OutParams
Wscript.Echo "Out Parameters: "
Wscript.echo "ReturnValue: " & objOutParams.ReturnValue

[Nazim]

Нужно изменить пароль локального админа в сети с помощью скрипта.

Есть скрипт

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]

Команда 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]

Напомню, что для корректной работы 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)]

Может у кого-то есть скрипт, который отключает брандмауэр?

[klez]

Можно заюзать в батнике Netsh
для ХП к примеру так
netsh firewall set opmode mode=DISABLE profile=DOMAIN
или так
netsh firewall set opmode disable
Для висты аналогично.

[BANDIT(filmmaniac)]

Можно заюзать в батнике Netsh
для ХП к примеру так
netsh firewall set opmode mode=DISABLE profile=DOMAIN
или так
netsh firewall set opmode disable
Для висты аналогично.

Он вырубает файрволл для сети, а мне именно для службы.

[klez]

Ааа, тогда так(для висты)
sc stop mpssvc
А что бы задизаблить
sc config start=disabled mpssvc

Сообщение отредактировал klez - Feb 9 2009, 12:42

[BANDIT(filmmaniac)]

Наверно на Висте этот процесс немного по другому называется, потому что на ХР не сработал.

[klez]

Упс, забыл про ХП.
Кажется там это SharedAccess

Сообщение отредактировал klez - Feb 9 2009, 13:06

[BANDIT(filmmaniac)]

Вот нагуглил то что надо, чтобы вообще не включался.

net stop SharedAccess
sc config SharedAccess start= disabled

[Disconnect]

................Никак не получается. Возможно есть еще какие то варианты. Пробовал с помощь программы AdminLink - результат тот же

Если через AD то в групповых политиках компьютера закинуть скрипт в Автозагрузку.
"Конфигурация коипьютера" -> "Конфигурация Windows" -> "Сценарии (запуск/завершение)" -> "Автозагрузка".
И будет все ок.

[gonny]

А можно сделать так, чтоб флешки только с определенным именем подключались к компу, а остальные нет? Или какой-то файл на флешку для проверки положить..или только шифрованое понимает..а не шифрованное не понимает