Версия для печати темы

Автор: Nazim May 8 2008, 14:32

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

Автор: klez May 8 2008, 14:55

Проверка изменений параметров в AD и отправка извещения на электронную почту или в список Sharepoint

Автор: Nazim May 8 2008, 15:08

Кстати вот есть также сайтик http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/

Автор: Spyder3W May 8 2008, 15:11

если например с 1 поста могут использоватся то со 2 - неа

Автор: olexande May 8 2008, 15:22

Наверно проще всего получать когда пользователь подключился - в батнике или логон скрипте:

echo. | date >> user_date.log

Автор: klez May 8 2008, 15:29

Это скрипт делает backup системы и заливает его на фтп

Автор: metalolom May 8 2008, 15:54

Это скрипт полезен в больших структурах где отдел кадров далеко от ИТ.
Скрипт блокирует/разблокировывает пользователей в AD, беря из определённого файла список их ФИО, и уведомляет администратора по почте о результатах.
Скрипт писался на коленке, здесь предоставлена лишь общая часть, некоторые моменты можно оптимизировать, но меня лично и так устраивает

Dim Mlogins(9000),MAdspath(9000),MFullName(9000)
Dim objFileSystem, objInputFileFromKardy,strData
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const OPEN_FILE_FOR_READING = 1

'Указываем домен
Const strDomainName="<имя домена например domain.com>"
'Указываем OU в AD, внутри которой мы будем искать
Const strStartOU="Domain Users"
strDomainDN="DC="&Replace(strDomainName,".",",DC=")

'---------------------Получение данных--------------------
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "<LDAP://OU="&strStartOU&","&strDomainDN&">;(&(objectCategory=person)(objectClass=user));ADsPath;subtree"
objCommand.Properties("Page Size")=4000

Set objRecordSet = objCommand.Execute


'------Индексирование --------
index=0
While Not objRecordset.EOF
strADsPath = objRecordset.Fields("ADsPath")
Set objUser = GetObject(strADsPath)
MFullName(index)=objUser.DisplayName&" "
Mlogins(index)=objUser.sAMAccountName
MAdspath(index)=strADsPath
index=index+1
objRecordset.MoveNext

Wend
objConnection.Close

index=index-1
maxindex=index

'Путь в файлу в котором хранится список ФИО людей учётные записи которых нужно открыть/закрыть
strFileOfFiried = "d:\file_of_firied.txt"

Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objInputFileFromKardy = objFileSystem.OpenTextFile(strFileOfFiried,OPEN_FILE_FOR_READING)
'Загоняем содержимое файла в массив
inputDataFromFiried = Split(objInputFileFromKardy.ReadAll, vbNewline)
'Обнуляем списки результатов
UserDisables=""
UserUpdated=""
UserNoFound=""
UserDuplicated=""
ii=0


For each strFULL In inputDataFromFiried
if Len(strFULL)>5 then
'обнуляем счётчик найденых соответсвий
e=0
'1е поле:выделяем из строчки ФИО пользователя
strFIO=Left(strFULL,InStr(strFULL,";")-1)
'Разбиваем по частям ФИО
Familia=Left(strFIO,(Instr(strFIO," ")-1))
N=Trim(mid(strFIO,Instr(strFIO," ")))
Imya=Left(N,(Instr(N," ")-1))
Otchestvo=Trim(mid(N,Instr(N," ")))
'Собираем по частям ФИО
strFIO=Familia&" "&Imya&" "&Otchestvo

index=maxindex
While index>1

'Разбиваем по частям ФИО в AD

AdFamilia=""
AdImya=""
AdOtchestvo=""
AdFamilia=Left(MFullName(index),(Instr(MFullName(index)," ")-1))
if Len(Trim(mid(MFullName(index),Instr(MFullName(index)," "))))>1 then
AdN=Trim(mid(MFullName(index),Instr(MFullName(index)," ")))
if Len(Left(AdN,(Instr(AdN," "))))>1 then
AdImya=Left(AdN,(Instr(AdN," ")-1))
if Len(Trim(mid(AdN,Instr(AdN," "))))>1 then
AdOtchestvo=Trim(mid(AdN,Instr(AdN," ")))
end if
end if

end if


'Собираем по частям ФИО
AdstrFIO=AdFamilia&" "&AdImya&" "&AdOtchestvo
AdstrFIO1=AdImya&" "&AdOtchestvo&" "&AdFamilia
AdstrFIO2=AdImya&" "&AdFamilia&" "&AdOtchestvo
'Wscript.Echo AdstrFIO

if (StrFIO=AdstrFIO) or (StrFIO=AdstrFIO1) or (StrFIO=AdstrFIO2) then
e=e+1
Mindex=index
end if
index=index-1
Wend


if e=1 then
'блокируем логин в AD
LockUser(Mlogins(Mindex))
UserDisables=UserDisables& "User: " &strFIO&" is disabled" & vbCrLf
end if
'Не блокируем/открываем, т.к. у нас найдено несколько одинаковых ФИО
if e>1 then
UserNoFound=UserNoFound &"User: " &strFIO&" is found more than 1 times" & vbCrLf
end if
'Не блокируем/открываем, т.к. пользователь не найден
if e=0 then
UserDuplicated=UserDuplicated&"User: " &strFIO&" is not found " & vbCrLf
end if

end if


Next






'если есть какой-то результат, то
if (len(UserDisables)+len(UserNoFound)+len(UserDuplicated) > 10) then
' начинаем отправлять почту

Set objNetwork = CreateObject("Wscript.Network")
objComputerName = objNetwork.ComputerName
objUserName = objNetwork.UserName
Set objMessage = CreateObject("CDO.Message")
objMessage.From = "<e-mail от кого отправляется почта>"
objMessage.To = "<e-mail кому отправляется почта>"
objMessage.Subject = "Тема письма"

'Ставим кодировочку
objMessage.bodypart.charset= "koi8-r"
objMessage.TextBody = UserDisables&vbCrLf&UserNoFound&vbCrLf&UserDuplicated
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<адрес smtp сервера>"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==

objMessage.Send


end if



objInputFileFromKardy.Close
Set objFileSystem = Nothing
Sub LockUser(strText)
' в этой строчке значение TRUE - дисейблит пользователя, FALSE - открывает пользователя
strDisableAccount = TRUE

strUserLogin = strText
set objUser = GetObject("WinNT://<домен>/"& strUserLogin &",user")


if strDisableAccount = TRUE then
objUser.AccountDisabled = strDisableAccount
objUser.Description = "Account is Disabled because of firing " & "at "&" "&Date()
objUser.SetInfo
end if

if strDisableAccount = FALSE then
objUser.AccountDisabled = strDisableAccount
objUser.Description = "Account is Opened by script " & "at "&" "&Date()
objUser.SetInfo
end if


End Sub

Автор: Alex_GR May 8 2008, 16:02

Нужен скрипт для получения инфо по объектам АД - Пользователь (поиск по всему каталогу или конкретным OU ), у которых "Срок действия учетной записи: Истекает дд/мм/гггг"

Автор: Alex_GR May 8 2008, 16:14

(Nazim @ May 8 2008, 16:08)

Автор: klez May 8 2008, 16:18

Этот скрипт предназначен для копирования файла в пользовательские перемещаемые профил

Автор: Nazim May 8 2008, 16:20

Автор: Alex_GR May 8 2008, 16:25

(Nazim @ May 8 2008, 17:20)

Автор: Nazim May 8 2008, 16:57

Пробовать правда времени нету, но попробую и так понять
Сеть у тебя какая?(домен или)
Проверяеш где? И что именно меняеш в скрипте (нужно ж указывать учетную запись, домен и прочее)?

Автор: klez May 8 2008, 17:01

Cкрипт рекурсивно устанавливает всем пользователям домена атрибут "User must change password on next logon"

Автор: metalolom May 8 2008, 20:27

(Alex_GR @ May 8 2008, 17:25)

Автор: metalolom May 9 2008, 14:45

Предлагаю тему закрепить.

Автор: klez May 12 2008, 9:21

Получение SID (а) компьютера из AD

Автор: Alex_GR May 12 2008, 10:45

(metalolom @ May 8 2008, 21:27)

Автор: klez May 12 2008, 11:09

Скрипт опрашивает компьютеры домена на предмет того, какой пользователь залогинен в данный момент на каждом компьютере

Автор: metalolom May 13 2008, 13:25

(Alex_GR @ May 12 2008, 11:45)

(Alex_GR @ May 12 2008, 11:45)

Автор: klez May 13 2008, 14:35

Скрипт ищет по всем контроллерам пользователей, которые не логинились уже более 90 дней и дизейблит их. После чего скидывает в файл их имена в форме Distinguished Name:

Автор: 3in May 16 2008, 15:53

командный файл (closefl.bat ) закрывает все файлы, открытые пользователями в сети на вашем компьютере

Автор: pekshin May 22 2008, 8:28

А есть ли скрипт, для разблокировки компа после определенного времени простоя компа заблокированым?

Автор: Alex_GR May 26 2008, 16:26

1. Скрипт для уведомления пользователя об окончании действия учетки в домене за 10 дней (параметр можно изменить в 27 строке - dtmDaysToExpire > 10 ).
Бросать в логон.
В 5-й и 7-й строке подставить свои значения для домена и подразделения.

' Script name: WarnUserAboutAccountExpiration.vbs
' Created by Alex_GR - 26/05/2008

'Указываем домен
Const strDomainName="domen.com"
'Указываем OU в AD, внутри которой мы будем искать
Const strStartOU="Domain Users"
strDomainDN="DC="&Replace(strDomainName,".",",DC=")

On Error Resume Next
'Option Explicit
Dim strUserName, oNetwork, aConnection, aCommand, aResult, strDN, dtmAccountExpiration, dtmDaysToExpire, oShell
Set oNetwork = CreateObject("Wscript.network")
Set oShell = CreateObject("Wscript.shell")
strUserName = oNetwork.UserName
Set aConnection = CreateObject("ADODB.Connection")
Set aCommand = CreateObject("ADODB.Command")
aConnection.Provider = "ADsDSOObject"
aConnection.Open
aCommand.ActiveConnection = aConnection
aCommand.CommandText="<LDAP://OU="&strStartOU&","&strDomainDN&">;(&(objectCategory=User)(samAccountName=" & strUserName & "));distinguishedName;subTree"
Set aResult = aCommand.Execute()
strDN = aResult.Fields("distinguishedName")
Set objUser = GetObject("LDAP://" & strDN)
dtmAccountExpiration = objUser.AccountExpirationDate
dtmDaysToExpire = DateDiff("d", Now, dtmAccountExpiration)
If Err.Number = -2147467259 Or dtmAccountExpiration = "1/1/1970" Or dtmAccountExpiration = "01/01/1601 03:00:00" Or dtmAccountExpiration = "01.01.1601 03:00:00" Or dtmAccountExpiration = "1.1.1970" Or dtmDaysToExpire > 10 Then
' Можно выводить другое сообщение, если найдено соответствие условию
' MsgBox "Всe good "
Else
oShell.Popup "До окончания испытательного срока осталось " & dtmDaysToExpire & " дней!" & vbCrLf & _
"Учётная запись действительна до " & dtmAccountExpiration & vbCrLf & _
"Просьба об этом уведомить Вашего руководителя.", 60, "Уведомление от ИТ Департамента", 48+0
End If

Автор: Nazim May 30 2008, 18:23

Может кто знает, кто встречал - нужен скрипт рассылки сообщений типа сохраните все данные. Конкретно для ситуации нужно вырубить файлсервер, так чтобы не бегать по офису а просто запустить скриптик. Знаю что можно с командной строки воспользоваться командой net send , но это чуток не то. Кто что скажет?

Автор: olexande Jun 3 2008, 10:28

(Nazim @ May 30 2008, 19:23)

Может кто знает, кто встречал - нужен скрипт рассылки сообщений типа сохраните все данные. Конкретно для ситуации нужно вырубить файлсервер, так чтобы не бегать по офису а просто запустить скриптик. Знаю что можно с командной строки воспользоваться командой net send , но это чуток не то. Кто что скажет?

Автор: Fanta Jun 13 2008, 14:31

(klez @ May 8 2008, 15:55)

P.S. Еще нужно?

Автор: klez Jun 13 2008, 16:34

Такого скрипта не встречал.
Но думаю что если это делать действительно автоматически, то без расширения схемы AD, тут не обойтись.IMHO

Автор: Fanta Jun 18 2008, 13:21

(klez @ Jun 13 2008, 17:34)

Такого скрипта не встречал.
Но думаю что если это делать действительно автоматически, то без расширения схемы AD, тут не обойтись.IMHO

Автор: Alex_GR Jun 19 2008, 17:57

(Fanta @ Jun 18 2008, 14:21)

Скрипт який перевіряеє нових юзерів і відсилає ім лист з вказаним текстом
(переверяє з тією ж періодичністю з якою виконуеться скрипт тобто та яка вказана в Scheduled Tasks)

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

'Created by Mike Ruman 8/13/05
'Sends an email to accounts created today.

Dim StrDate, CurrentUTC
  
'Create the current date and time stamp for query for day before last
CurrentUTC = DatePart("yyyy", Date)
'now add Month in mm if only M add leading 0
if DatePart("m" , Now) < 10 then
   CurrentUTC = CurrentUTC & 0 & DatePart("m" , Now)
  else
   CurrentUTC = CurrentUTC & DatePart("m" , Now)
end if
'now add Day in dd if only d add leading 0
if DatePart("d" , Now) < 10 then
'OPTIONAL - FOR MANY DAYS, replace line below with CurrentUTC = CurrentUTC & 0 & DatePart("d" , Now - X)  where X = # of days

   CurrentUTC = CurrentUTC & 0 & DatePart("d" , Now)
  else
'OPTIONAL - FOR MANY DAYS, replace line below with CurrentUTC = CurrentUTC & DatePart("d" , Now - X)  where X = # of days
   CurrentUTC = CurrentUTC & DatePart("d" , Now)
end if
' Tag hour, minute, second on
strDate = CurrentUTC&"000001.0Z"
  
'Create AD Connection
Set oConnection1 = CreateObject("ADODB.Connection")
Set oCommand1 = CreateObject("ADODB.Command")
oConnection1.Provider = "ADsDSOObject"  ' This is the ADSI OLE-DB provider name
oConnection1.Open "Active Directory Provider"
' Create a command object for this connection.
Set oCommand1.ActiveConnection = oConnection1
'Set Query definition
' тут задаем доменные параметры берем из AD
oCommand1.CommandText = "select mail from 'LDAP://DC=it, DC=local' WHERE objectCategory='Person' AND objectClass='user'AND msExchHideFromAddressLists<>'True' AND whenCreated>='" & strDate & "'"

oCommand1.Properties("Page Size") = 30000
' Execute the query.
Set rs = oCommand1.Execute
  

rs.movefirst
'Create the loop of results
Do Until rs.EOF = True

  
'Create Email
' настройки письма для пользователя
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[email protected]"
objEmail.To = rs.Fields("mail")
'Optional BCC field
'objEmail.BCC = "[email protected]"
objEmail.Subject = "A welcome message from Exchange"
objEmail.HTMLbody = "Добро пожаловать в ........."
  
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/languagecode") = 1049
'objMessage.BodyPart.CharSet = "windows-1251".
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext") = true
'Optional Add an attachment
'objEmail.AddAttachment "C:\new_hire_audio_message.wav"

objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing  ") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver  ") = _
        "ExchangeServer" 'Replace ExchangeServer with server IP or name
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport  ") = 25
objEmail.Configuration.Fields.Update
  
'Optional - Read the message before it's sent
'MsgBox objEmail.GetStream.ReadText
objEmail.Send
rs.movenext
Loop
  
'Close AD Connection
oConnection1.close

лише одна трабла - мені не вдалося подружити його з кирилицею

Буду дуже вдячний якщо хтось пофіксить це!

Автор: Fanta Jun 20 2008, 11:17

Странно але в мене матюкаеться на
objMessage.BodyPart.CharSet = "windows-1251"

Зберігав в різних кодіровках але результат той самий

Автор: Alex_GR Jun 20 2008, 12:29

(Fanta @ Jun 20 2008, 12:17)

Автор: Alex_GR Jun 20 2008, 13:33

"Скрипт Центр" - справочник VBS в примерах от Мелкософта

http://www.freespace.com.ua/file/57099/4e1558c0/script_center.html

Автор: Fanta Jun 26 2008, 17:46

(Alex_GR @ Jun 20 2008, 13:29)

Автор: nickemail Jun 28 2008, 23:48

Граждани а как через комндную строку открыть розшаренную папку соседнего компа с воодом логина и пароля для доступа?

Автор: metalolom Jun 30 2008, 16:07

(nickemail @ Jun 29 2008, 0:48)

Автор: ramasik Aug 4 2008, 18:35

подскажите как можно добавлять в АД инфу по юзерам типа экспорт/ импорт из файла..?
например такие поля: адрес, страна, номер телефона, мобильный, номер комнаты.

можно ли это сделать? а то запаралися в ручную забивать... а ничего толкового не нашел

Автор: klez Aug 5 2008, 13:05

Да, смотрите в сторону Powershell.
Вот тут много готовых скриптов. Думаю можно будет найти то что Вам нужно(+ внести нужные изменения)
http://www.microsoft.com/technet/scriptcenter/hubs/msh.mspx

Автор: ramasik Aug 5 2008, 13:42

(klez @ Aug 5 2008, 14:05)

Автор: metalolom Aug 5 2008, 13:49

(ramasik @ Aug 4 2008, 19:35)

подскажите как можно добавлять в АД инфу по юзерам типа экспорт/ импорт из файла..?
например такие поля: адрес, страна, номер телефона, мобильный, номер комнаты.

можно ли это сделать? а то запаралися в ручную забивать... а ничего толкового не нашел

Автор: boomerman Sep 15 2008, 14:44

Есть вопрос к великим гуру! Как запретить юзеру с админскими правами менять настройки сети (шлюз, днс). Заранее спасибо

Автор: olexande Sep 16 2008, 13:01

1. забрать у него права админа...
2. выдать ему настроуки по DHCP и на шлюзе сделать привязку MAC-IP. Если и сменит, то хоть не сможет выйти в и-нет ... По началу по бесится, после вернёт все обратно на твои настройки ...

Автор: Alex_GR Sep 29 2008, 8:00

(boomerman @ Sep 15 2008, 15:44)

Автор: Leopold Oct 1 2008, 16:40

Уважаемые господа, помогите - как сделать так, чтоб при включении компа, отключалась служба автозагрузки обновлений. Потому что доменные политики применяются, как вы понимаете после каждой перезагрузки компа. И если честно надоело отключать эту службу.
Я понимаю что скрипт ну или батник написать можно, но так как я в этом не силен - то очень прошу вас.
На вопрос зачем мне это - отвечаю - залазит постоянно обновление, и вылетает ошибка INETINFO.EXE. При чем решить програмно я ошибку не смог

Автор: Nazim Oct 1 2008, 16:52

(nickemail @ Jun 29 2008, 0:48)

(Leopold @ Oct 1 2008, 17:40)

Уважаемые господа, помогите - как сделать так, чтоб при включении компа, отключалась служба автозагрузки обновлений. Потому что доменные политики применяются, как вы понимаете после каждой перезагрузки компа. И если честно надоело отключать эту службу.
Я понимаю что скрипт ну или батник написать можно, но так как я в этом не силен - то очень прошу вас.
На вопрос зачем мне это - отвечаю - залазит постоянно обновление, и вылетает ошибка INETINFO.EXE. При чем решить програмно я ошибку не смог

Автор: Leopold Oct 2 2008, 8:17

Забыл дописать - к контроллеру домена я доступа не имею - вот в этом то и вся проблема.

Автор: klez Oct 2 2008, 8:24

TO Leopold
Отключите автообновление в политиках локального компьютера как подсказал Nazim.
А если про скрипт, то поместить в автозагрузку(или в стартовые скрипты в GP) батник типа

Автор: Leopold Oct 2 2008, 8:43

To

Автор: klez Oct 2 2008, 9:32

TO Leonid
Тогда пропишите в стартовых скриптах батник.
P.S. Если я не ошибаюсь то локальные политики имеют более высокий приоритет чем доменные.

Автор: Leopold Oct 2 2008, 10:32

TO

Автор: klez Oct 2 2008, 10:48

TO Leopold
Я вам написал уже батник
Смотрите выше. Пост #47
сохраните этот код с расширением bat или cmd. И в GPO укажите путь к этому файлу.
В стартовых скриптах.

Автор: olexande Nov 12 2008, 14:13

Leopold
плохая идея отключать обновление ... Другой вариант правда если обновление идёт под СИСТЕМАТИЧЕСКИМ ручным контролем ...

Автор: Anykey Nov 13 2008, 23:28

(Leopold @ Oct 2 2008, 8:43)

Автор: Jeronimo Nov 17 2008, 21:15

Всем привет. Вопрос: в домене каждому юзеру в учетной записи прикручен logon скрипт. Есть задача его убрать. Пользователей 150+.
Если это сделано политикой, то исправить не сложно. А если нет, то можно ли заставить часть скрипта из http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/usersgroups/users/ перебрать все учетные записи в OU и просто очистить поле?
Я вообще-то мало понимаю в программировании VBS, но вот это внизу я правильно надергал? Как сделать перебор по всему OU?

Автор: Alex_GR Nov 18 2008, 9:38

(Jeronimo @ Nov 17 2008, 21:15)

Автор: Jeronimo Nov 18 2008, 10:21

Спасибо. Вот именно выложенная тобой на аплоад прога с глюком каким-то, но я выкачал с сайта последнюю и заменил поле логон скрипта пробелом.
Еще раз спасибо.

Автор: Jeronimo Nov 18 2008, 16:23

Я, конечно, извиняюсь, но эта программа (ADModify) не позволяет изменить значение на пустое, то есть с ее помощью можно поставить значение, а не стереть. Изменить на несуществующее название батника, чтобы он перестал исполняться - тоже не совсем то, что я ожидал. Может все-таки проще будет скриптом? Подскажите, пожалуйста.

Автор: Jeronimo Nov 18 2008, 17:54

Все просто МЕГА просто. Поскольку это разовая операция, и у меня есть доступ на DC, то
dsquery user cn=Users,DC=это,DC=мой,DC=домен -limit 0 |dsmod user -loscr ""
(это если все, кому надо поменять, находятся в контейнере Users)
И все. Всем, вобщем,спасибо.

Автор: ups Nov 27 2008, 19:23

dsquery, конечно мощная команда, но для выполнения данной процедуры, по-моему, намного проще будет запомнить и выполнить следующей команду

Автор: olexande Dec 2 2008, 15:40

Вопрос:
Использую для резервного копирования .bat файлы со списком файлов (каталогов) которые архивировать через WinRar (отдельная строка на отдельный каталог) с последующим копированием полученных файлов на сервер. Как можно получить имя локального компа (на котором запущен .bat файл). Нужно для унификации файла backup.bat - что-бы не править для каждого компа данный файл (правится - "чей" архив ... )

Автор: ups Dec 2 2008, 18:03

%computername%

Автор: olexande Dec 3 2008, 9:22

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

Автор: ups Dec 3 2008, 10:37

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

Автор: igor_loboda Dec 3 2008, 18:12

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

Автор: Nazim Dec 3 2008, 18:51

(igor_loboda @ Dec 3 2008, 18:12)

Автор: -danger- Dec 16 2008, 0:04

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

Автор: Nazim Dec 16 2008, 14:09

(-danger- @ Dec 16 2008, 0:04)

Автор: oia Dec 20 2008, 13:23

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

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

Автор: Nazim Jan 21 2009, 12:27

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

Есть скрипт

Автор: ups Jan 21 2009, 20:22

Команда start не имеет ключей -u и -p или, в данном случае, идёт речь о версии мне неизвестной, однако эти ключи имеет другая полезная утилита - psexec. Здесь я плавно перешёл к альтернативным вариантам
Для решения данной задачи делаем следующий батничек, который запускаем со своей машины

Автор: Nazim Jan 22 2009, 9:04

Автор: BANDIT(filmmaniac) Feb 9 2009, 9:35

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

Автор: klez Feb 9 2009, 9:51

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

Автор: BANDIT(filmmaniac) Feb 9 2009, 11:49

(klez @ Feb 9 2009, 9:51)

Автор: klez Feb 9 2009, 12:39

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

Автор: BANDIT(filmmaniac) Feb 9 2009, 13:02

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

Автор: klez Feb 9 2009, 13:06

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

Автор: BANDIT(filmmaniac) Feb 9 2009, 14:22

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

Автор: Disconnect May 22 2009, 12:50

(Nazim @ Jan 21 2009, 13:27)

Автор: gonny Jun 14 2009, 12:13

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

Автор: olexande Jun 14 2009, 16:29

В XP без доустановки "постороннего" (плантого) ПО - нельзя.
Vista и более новые - на уровне групповых политик пробуй. В том числе и АД.

Автор: Navern Jun 19 2009, 0:42

А не, кто с мобильной торговлей не работает? Пригодились бы любые скрипты. А то надоедает палмы обновлять каждый раз из 1С.Хотелось бы как то автоматизировать.

Автор: fli Jul 7 2009, 8:49

Ребята, помогите со скриптом.
Нужно чтобы делалось следуещее:

- Ping и telnet определенных IP в определенное время
- Запись результатов в отдельный файл.

Например:
чтобы в 00-00
ping 192.168.0.2
telnet 192.168.0.5 35

и результаты команд записались в койнить файл
спасибо

Автор: olexande Jul 8 2009, 11:32

например можно:

Автор: fli Jul 10 2009, 9:01

(olexande @ Jul 8 2009, 12:32)

Автор: DJ_KatSo Jul 10 2009, 9:51

(fli @ Jul 10 2009, 10:01)

Автор: -danger- Jul 22 2009, 10:47

Помогите разобраться. После выхода из ждущего режима неработает инет (адаптер Realtek).
помагает только выключить--включить адаптер.
нужен vbs-скрипт или батник чтобы перезапускать LAN адаптер.

есть еще такой вариант (vbs-скрипт), но он выводит окошко с сообщением "адаптер enabled/disabled"
может кто-нить шарит как исправить, чтобы он втихую переподключал сетевуху

Автор: DJ_KatSo Jul 22 2009, 19:23

(-danger- @ Jul 22 2009, 11:47)

Автор: -danger- Jul 22 2009, 20:16

спасиба. теперь месидж не выскакует, все как надо.

Автор: alex2376 Jul 24 2009, 17:04

нуженскрипт который бы выводил членов групп

Автор: GhostKU Jul 28 2009, 11:07

Как проще всего из лога телнет клиента найти несколько строк вида А:Б (где А - константа, а Б = разные символы), и скопировать эти строки в другой файл?

Автор: ups Jul 28 2009, 12:02

(GhostKU @ Jul 28 2009, 12:07)

Автор: GhostKU Jul 31 2009, 8:40

(ups @ Jul 28 2009, 13:02)

Автор: DJ_KatSo Jul 31 2009, 16:55

(GhostKU @ Jul 31 2009, 9:40)

Автор: fli Aug 12 2009, 14:48

Подскажите, плз, команду, аналог сочетания клавиш win+L
в гугле искал, не нашел(
спс

Автор: olexande Aug 12 2009, 15:12

Может подойдет - shutdown -l
справка - shutdown /?

Автор: fli Aug 12 2009, 15:35

(olexande @ Aug 12 2009, 16:12)

Автор: protrue Aug 13 2009, 8:40

(fli @ Aug 12 2009, 15:48)

Автор: fli Aug 16 2009, 18:00

(protrue @ Aug 13 2009, 9:40)

Автор: jerr Aug 16 2009, 19:58

(fli @ Aug 16 2009, 19:00)

не надо ждать после ввода пароля, применения личных параметров...сразу все загружено

Автор: olexande Aug 16 2009, 20:42

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

Пароль-то все-равно вводить...

Автор: fli Aug 16 2009, 21:14

(olexande @ Aug 16 2009, 21:42)

Автор: Muzman Aug 16 2009, 22:02

А перенести всё нужное с HKCU в HKLM?
P.S. Имея физ доступ к компу, я смогу отключить выполнение этого скрипта, зайти под вами автоматом (галка ведь уже снята), и сделать под уже загруженной вашей учёткой всё что мне заблагорассудится. Потом стереть логи, и поменять локальные GPO назад. Вы ничего и не заметите. Вот такой я злой... Это было сказано для того, что бы вы поняли что так делать не очень хорошо.
P.P.S. Если будете конектится по RDP то это тоже не поможет, так как будете грузить другой сеанс этого же пользователя.

Автор: Ischuk Aug 27 2009, 20:28

Здравствуй klez

Подскажите пожалуйста по этому скрипту....
при формировании переменной gSID на шаге &Convert(4,7) почему-то идет различие данных полученным скриптом и то что находиться в ldap учетной записи компьютера... Может ткнете куда смотреть или краткий экскурс по данному скрипту можете провести?


[quote name='klez' date='May 12 2008, 9:21' post='861462']
Получение SID (а) компьютера из AD

Автор: Nazim Aug 28 2009, 9:12

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

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

Автор: Pavel Sep 17 2009, 15:34

Задам и я вопрос.

Итак: доменная сеть, имею доступ к АД. И есть нужда определенному ИП вычитстить комп от файлов типа *.mp3, *.avi, *.flv.
Ручками не могу - у него стоит нетвиев, в остальное время комп выключен. Да и не хочу светится. А так - пусть придумает как я ээто сделал, найдет мотив, докажет, а потом еще и попробует пожаловаться.

ПС Он решил НЕАХАТЬ на админа (меня), при чем с телегаминачальству (уладил), вызовами за просто так (приходилось пожходить), грубостью (стоял и придумывал месть) и проч. Естественно, нормальный комп он получит после моего ухода, но музыка человеку тоже не нужна.

ППС Инет уже порезал.

Автор: ups Sep 18 2009, 23:23

Когда сетёвка правильная, то с выключенным компом тоже работать можно.

P.S. Если музыка ненужна вам, это не значит, что она ненужна другим

Автор: Pavel Sep 19 2009, 15:55

(ups @ Sep 19 2009, 0:23)

Когда сетёвка правильная, то с выключенным компом тоже работать можно.

P.S. Если музыка ненужна вам, это не значит, что она ненужна другим

Автор: Sintorres Sep 26 2009, 16:22

Скрипт для перезапуска ADSL мопеда D-link DSL-2640U

Автор: Tonik Sep 28 2009, 15:12

Добрый день. Нужен скрипт:

нужно в AD добавить юзера в точно такие же группы в которых состоит его коллега. Пересоздать учутку скопировав все параметры у его коллеги - не катит. нужно просто дать ему членство в точно таких же группах как его коллега.

Может кто то сообразить скриптик? Спасибо.

Автор: Sintorres Sep 28 2009, 16:05

2 Tonik
Почитай http://www.compress.ru/article.aspx?id=19156&iid=889
У мня хуже ситуевина.
Нужен скрипт для создания учеток пользователей из списка. (txt, xls)
всего пользователей штук 400.
моет есть у кого умный мысль?
Вот нарыл http://social.technet.microsoft.com/Forums/ru-RU/scrlangru/thread/a95e29b2-6975-45f0-a0f7-b60194f36dca такой скриптец

Автор: ups Sep 28 2009, 20:31

Sintorres, на странице (ссылка на которую вы дали для Tonik'a) уже есть, можно сказать, почти что готовый под ваши нужды скрипт, ну почти готовый...

Автор: Sintorres Sep 29 2009, 11:28

ups Спасибо.
london Мегареспект за файлики и линк на _http://www.rlmueller.net/CreateUsers.htm
Это то что доХтор прописал

Автор: Sintorres Oct 5 2009, 21:27

Скрипт для создания учеток пользователей в АД из списка. (.xls)
на базе _http://www.rlmueller.net/CreateUsers.htm по ссылке от london
скрипт не переделывался, рихтовался только Экселевский файл под свои ленивые потребности
(нужно ввести только "Фамилия Имя" на второй стр. книги.)
http://upload.com.ua/get/901082294/
пс. Скрипт опробован на W2K3 R2. работает
в Экселе, читайте комментарии в ячейках
ппс отвечу на вопросы по Эксель.

Автор: saen Oct 20 2009, 16:53

Маленький скриптик для Unix систем.
Перезапуск служб apache , mysql , cron , sendmail .
Сорри, запостил не в ту тему

Автор: olexande Nov 11 2009, 15:00

а crond зачем рестартить?

Автор: Fanta Dec 24 2009, 15:57

Народ э скрипт який записує час логон і логоффу юзеря!
підкажіть плз яка змінна відповідає за тривалість сеансу (час між логон і логофф) ??

Автор: protrue Dec 24 2009, 16:08

Що за скрипт, що тобі потрібно, опиши дительніше.

Автор: Fanta Dec 24 2009, 16:14

(protrue @ Dec 24 2009, 16:08)

Автор: olexande Dec 25 2009, 14:57

Советую предусмотреть вариант - некорректного отключения ПК.
Ибо у тебя может появиться 2 записи что включился, и ни одной что включился.

И если сервер - получатель не будет доступен ... тоже запись не сохранится ...

Автор: Эдичка Jan 5 2010, 10:15

ребята помогите со скриптами,
1.перезагрузка sql через планировщик заданий
2.выключение компа.
не задаром!

Автор: Sintorres Jan 6 2010, 9:39

(Эдичка @ Jan 5 2010, 10:15)

Автор: Эдичка Jan 6 2010, 9:49

(Sintorres @ Jan 6 2010, 9:39)

Автор: x1shn1k Jan 6 2010, 10:15

С SQL не работал, но судя по всему первый скрипт будет выглядеть так

Автор: Эдичка Jan 6 2010, 10:42

(x1shn1k @ Jan 6 2010, 10:15)

Автор: Spectral Jan 6 2010, 10:44

(Эдичка @ Jan 6 2010, 10:42)

Автор: Эдичка Jan 6 2010, 10:52

x1shn1k, с sql чото не получается. сделал файл смд, запустил и оно выдает ошибки.

Автор: x1shn1k Jan 6 2010, 11:19

Вполне возможно. Я понятия не имею какие службы отвечают за SQL. Код этот нашел в интернете =)
Какие ошибки хоть выдает?

Автор: Spectral Jan 6 2010, 11:26

(Эдичка @ Jan 6 2010, 10:52)

Автор: Эдичка Jan 6 2010, 11:40

(Spectral @ Jan 6 2010, 11:26)

Автор: Muzman Jan 6 2010, 12:06

(Spectral @ Jan 6 2010, 11:26)

Автор: Nazim Apr 2 2010, 13:48

Скрипт очистки очереди печати и перезапуска диспетчера печати

net stop fax (если эта служба есть)
net stop spooler

@echo off
IF EXIST "\Windows\System32\spool\PRINTERS\" del "\Windows\System32\spool\PRINTERS\*.*" /f /s /q

net start fax (если эта служба есть)
net start spooler

Автор: Blick Apr 2 2010, 13:57

net stop fax и net start fax - удалить, если выдаёт ошибку о том, что служба не установлена.

Автор: Nazim Apr 2 2010, 14:00

(Blick @ Apr 2 2010, 14:57)

Автор: Fanta Apr 7 2010, 11:06

Комради, потрібен скрипт який моніторить (з заданим інтервалом) вільне місце на вінтах і присилає звіт на е-маіл у вигляді:
Діск С:
Всьго - 100 Гб
Занято - 20% = 20 Гб
Вільно - 80% = 80 Гб

Діск Д:
Всьго - 100 Гб
Занято - 20% = 20 Гб
Вільно - 80% = 80 Гб

Моніторити потрібно як сервера так і ПК

Автор: Alex_GR Apr 7 2010, 15:16

(Эдичка @ Jan 5 2010, 11:15)

Автор: -AiD- May 5 2010, 15:43

(klez @ May 12 2008, 9:21)

Автор: Blick Jul 13 2010, 9:39

Коллеги, нужен скрипт.
Суть такая.
Допустим, ребутнулся сервак.
Чтобы запустить определённую прогу, мне нужно залогиниваться.
Нужен скрипт, который бы без залогинивания запускал определённую прогу от имени определённого юзера домена.

Автор: klez Jul 13 2010, 20:51

Проще как сервис обернуть
Смотри в сторону sc create

Автор: GhostKU Jul 17 2010, 0:05

Коллеги, подсобите Нужно автоматизировать установку макроса в Outlook. Даже не знаю с какой стороны подойти к задаче.

Есть рабочая группа на 40 машин. Машины на WinXP SP3, MS Outlook 2007
Нужно каждому пользователю установить макрос в Outlook, если по пунктам то:
1 - Создать текстовый файл определенного содержания в Папке Мои Документы. Тут вроде проблем особых не должно быть
2 - Установить сертификат
3 - Создать VBA проект
4 - Подписать его установленным сертификатом
5 - Импортировать в проект готовую форму
6 - Добавить кнопку вызова формы на панель Outlook

Подскажите хоть примерно чем и как можно реализовать вышеописанное

Автор: Sart Aug 12 2010, 18:54

Спасибо за скрипт по уничтожению агента мылорушного
Аналогично склепал на скайп

Автор: nerve Oct 22 2010, 20:19

нужен скрипт или батник для логофф-а сеансов пользователей терминалов.

Автор: whois Oct 23 2010, 20:34

ГП чем не подходит?

Автор: nerve Oct 24 2010, 11:09

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

Автор: Nazim Oct 25 2010, 9:04

(nerve @ Oct 24 2010, 12:09)

Автор: nerve Oct 25 2010, 10:08

спасибо. то что нужно. можно подчистить посты

Автор: Sintorres Nov 19 2010, 15:38

Доброго времени суток.
Нужен скрипт/батник рубающий скайп, квип и мышу (the bat) в определенное время.
Запускаемый в шедулере в виде ежедневного задания.
(Склероз замучил, ухожу/убегаю с работы и забываю/нет_времени потушить, а комп работает 24/7. Пришел домой, и пропустил часть инфы свалившейся на работающие сервисы на рабочем компе )
Сори за ламерский вопрос.

Автор: london Nov 19 2010, 16:10

PowerShell, наваял пример для винампа
Get-Process | Where-Object {$_.name -eq "winamp"} | Stop-Process
или несколько процессов
Get-Process | Where-Object {$_.name -eq "opera" -or $_.name -eq "winamp"} | Stop-Process

Автор: hell4ween Dec 10 2010, 12:30

(Nazim @ May 8 2008, 14:32)

Автор: Sera Dec 24 2010, 16:40

(Sintorres @ Nov 19 2010, 15:38)

Автор: danders Feb 12 2011, 10:40

(Sera @ Dec 24 2010, 17:40)

Автор: Sintorres Feb 12 2011, 11:18

(danders @ Feb 12 2011, 10:40)

Гораздно проще отключить всякие odnoklassniki, vkontakte, qip и т.п. на уровне firewall.

Автор: olex@ Feb 24 2011, 14:35

Прохання допомогти зі скриптом часу w32tm
В домені є станція, що синхронізується із зовнішним NTP-сервером часу.
Потрібно, щоб сервер брав час зі цієї робочої станції і встановлював його для всіх інших клієнтів локальної мережі. Порти для сервера закриті, тому така проблема.

Автор: Taras_J Mar 2 2011, 8:40

VBS скрипт для проверки типа входа пользователя. Если пользователь подключен по RDP или ICA, то скрипт прекращает работу. Полезно для фильтрации пользовательских политик на серверах терминалов

Dim WshShell,WshProcEnv, strSessionName
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshProcEnv = WshShell.Environment("Process")
strSessionName = WshProcEnv("SESSIONNAME")
If Left(strSessionName, 3) = "ICA" OR Left(strSessionName, 3) = "RDP" then
WScript.Quit
End If

Автор: -AiD- Mar 16 2011, 18:08

Получаем список установленного ПО на удаленной машине:

:: Вывод списка установленных программ с дополнительным выводом версии программы
::©2011 -AiD- for 0day.kiev.ua
:: Windows 7 / Vista - OK
:: Windows Server 2008 - OK
:: Windows Server 2003 - OK
:: Windows 2000 - OK
:: Windows XP - OK
:: Формат:
:: ---
:: SOME PROGRAM (IT'S VERSION)
:: ---

@ECHO OFF
CLS
ECHO Usage: %0 ^<Target Host IP or Hostname^>
ECHO You might need to run this script from ELEVATED command prompt!
ECHO.
CHCP 1251 > nul

SET UNINSTALL=\\%1\HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall
IF [%1]==[] SET UNINSTALL=HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall
ECHO *********List of installed soft on remote machine*********
FOR /f "tokens=7 delims=\" %%a IN ('reg query "%UNINSTALL%"') DO (
FOR /f "tokens=1,2,*" %%b IN ('reg query "%UNINSTALL%\%%a" ^| FIND /I "DisplayName" ^| FIND /V "ParentDisplayName"') DO (
FOR /f "tokens=1,2,*" %%e IN ('reg query "%UNINSTALL%\%%a" ^| FIND /I "DisplayVersion"') DO (
ECHO %%d ^(%%g^)
ECHO ---
)
)
)

Автор: amee Apr 5 2011, 15:16

Когда пользователь последний раз входил в систему:

Автор: =>DeViL<= Apr 6 2011, 20:14

(Blick @ Jul 13 2010, 10:39)

Автор: -AiD- May 3 2011, 20:08

(amee @ Apr 5 2011, 16:16)

Автор: nerve Jun 7 2011, 21:07

возможен ли скрипт создания (не запуска) впн-подключения?

Автор: stinky Jun 12 2011, 11:43

(nerve @ Jun 7 2011, 22:07)

Автор: -AiD- Jul 3 2011, 13:50

(nerve @ Jun 7 2011, 22:07)

Автор: PershaStudia Nov 21 2011, 14:03

Не знаю, повтор или нет, но тоже поделюсь фигнюшкой)
Искал скрипт, так чтобы забросить на все компьютеры домена папку, в итоге соорудили простенькие cmd'шки:

Copy1.cmd:

Автор: -AiD- Dec 20 2011, 12:52

Вместо

Автор: next1983 Feb 6 2012, 21:09

Помогите со скриптом.

Нужно отслеживать изменения в одном текстовом файле. В случае изменения файла выполнить запустить батник. В идеале с передачей внесенных изменений.

З.Ы. Требуется отслеживание состояния некой Системы. В случае проблем Система пишет лог. Вот часть этого лога нужно отправить СМС. Как отправлять СМС я знаю - http://nhutils.ru/forum/viewtopic.php?f=3&t=16


Upd:
Итоговый скрипт:

Автор: -13- Feb 7 2012, 9:25

http://tailforwin32.sourceforge.net/

Автор: Disconnect Feb 7 2012, 10:48

fc newfile.txt oldfile.txt
if %ERRORLEVEL%==1 then (......

(next1983 @ Feb 6 2012, 21:09)

Автор: Disconnect Feb 8 2012, 13:19

Как то так:
for /F "tokens=6" %i in (nhsms\1.txt) do echo %i

(next1983 @ Feb 8 2012, 0:51)

Автор: olexande Feb 8 2012, 21:17

Для задержки можно еще пинговать 127.0.0.1 с указанием кол-ва пакетов.
Задержка получается порядка 1 пакета на секунду

Автор: next1983 Feb 9 2012, 13:31

Итоговый скрипт:

Автор: Blick Mar 1 2012, 10:27

Суть.
Есть несколько компов.
Нужен скрипт (ну или батник), который при запуске коннектится к удалённому реестру и вносит правку в одну из веток. Меняет один параметр на другой.
Как реализовать?

Автор: -AiD- Mar 1 2012, 10:43

Автор: Blick Mar 1 2012, 11:02

Спасибо.
Но есть нюанс.
Компы не в домене и требуют авторизации.
Как её прописать в скрипте?

Автор: -AiD- Mar 1 2012, 15:32

Запустите скрипт от имени пользователя на удаленной машине с правами правки реестра.

Автор: next1983 Mar 19 2012, 14:48

Программа при запуске выдает окно с вопросом и ответами "ОК", "Отмена". Как мне сделать автоматическое "нажатие" ОК?


upd. Вроде нашел тут http://dslnet.ru/showthread.php?t=78338 с ссылкой на скрипты отсюда: http://www.script-coding.com/AutoHotkeyTranslation.html в частности сюда.

Автор: next1983 Mar 26 2012, 8:37

Как сделать так, чтобы после
fc new.txt old.txt /A > 1.txt
В файле 1.txt оставались только результаты сравнения без служебной информации "Результат сравнения файлов бла-бла-бла"

Автор: fli Apr 25 2012, 19:21

(next1983 @ Mar 26 2012, 9:37)

Автор: daysleeper May 15 2012, 13:06

Написал бэкап для медка на powershell.
Может кому пригодится.

Автор: warta Jun 13 2012, 17:17

Ребята тут появилась задачка, нужно найти скрипт/ПО, которое при создании/редактирования документов MS Office, Acrobat и т. д. в поле Title автоматом проставляет дату, названия и автора/редактора документа. Никто не встречал что-то похожее?

Автор: daysleeper Jun 13 2012, 21:09

(warta @ Jun 13 2012, 18:17)

Автор: warta Jun 14 2012, 8:51

Спасибо, но skydrive не вариант! И AD и SharePoint есть! Может еще есть какие то советы! Буду очень признателен!
Всем спасибо - вопрос снят, разобрался!

Автор: artem.ultra Aug 1 2012, 9:33

нашел скрип для мониторинга сервера печати.
так как сам в повершеле ничего не знаю прошу вашей помощи

Автор: Spyder3W Aug 1 2012, 11:00

На какой ОС ты это запускаешь?

Автор: artem.ultra Aug 1 2012, 11:28

Windows Server 2008R2

Автор: Spyder3W Aug 1 2012, 11:28

вот что я могу предварительно сказать
нужно включить Microsoft-Windows-PrintService/Operational журнал

не понятный кусок

Автор: artem.ultra Aug 1 2012, 12:07

(Spyder3W @ Aug 1 2012, 12:28)

Автор: Koka-ftp Aug 1 2012, 12:41

(artem.ultra @ Aug 1 2012, 13:07)

Автор: artem.ultra Aug 1 2012, 12:58

создал текстовый файл, туда забил этот скрипт.
переименовал файл в ps1
запустил но ничего не произошло.
что то наверно не так делаю

Автор: Spyder3W Aug 1 2012, 13:01

Koka-ftp
гы-ы-ы-ы, а ты проверял

(artem.ultra @ Aug 1 2012, 13:58)

Автор: artem.ultra Aug 1 2012, 13:29

ForEach-Object : Не удается преобразовать "System.Object[]" в тип "System.Management.Automation.ScriptBlock", необходим
ый для параметра "Process". Указанный метод не поддерживается.
C:\testPrint.ps1:12 знак:27
+ $EventLog | ForEach-Object <<<< {
+ CategoryInfo : InvalidArgument: ( [ForEach-Object], ParameterBindingException
+ FullyQualifiedErrorId : CannotConvertArgument,Microsoft.PowerShell.Commands.ForEachObjectCommand

Автор: Spyder3W Aug 1 2012, 13:42

в том то и нюанс что проблема в том куске что я писал

Автор: artem.ultra Aug 1 2012, 13:54

вот блин.
а в реальности скрипт бомба, если работать будет

Автор: Spyder3W Aug 1 2012, 13:58

а он и рабочий только автор молоток выложил "верно" что б другие немного погемороились и мозги освежили

вот как для Koka-ftp, у видел кавычки и поправил а остальной код не глядел

Автор: artem.ultra Aug 1 2012, 14:04

ну может поглядишь?
очень нужно, чесно

Автор: Spyder3W Aug 1 2012, 14:14

Здесь вроде все верно, целиком скрипт не проверял

Автор: artem.ultra Aug 1 2012, 14:28

спасибо большое!
когда и где можно передать бутылку пива (и какого) в твои владения?


---
как нибудь, когда будем собираться
Spyder3W

Автор: Sintorres Aug 2 2012, 11:07

(Spyder3W @ Aug 1 2012, 15:14)

Автор: daysleeper Aug 2 2012, 13:04

(Sintorres @ Aug 2 2012, 12:07)

Автор: Spyder3W Aug 2 2012, 13:07

(daysleeper @ Aug 2 2012, 14:04)

попробуй поставить powershell

Автор: daysleeper Aug 2 2012, 13:24

(Spyder3W @ Aug 2 2012, 14:07)

не решит проблему

Автор: Sintorres Aug 2 2012, 13:28

(daysleeper @ Aug 2 2012, 14:04)

попробуй поставить powershell

(Spyder3W @ Aug 2 2012, 14:07)

не решит проблему

(daysleeper @ Aug 2 2012, 14:24)

Автор: daysleeper Aug 2 2012, 14:30

(Sintorres @ Aug 2 2012, 14:28)

Пасиб за батник. С экселем проблем нет...

Автор: nerve Aug 17 2012, 11:08

парни помогите решить задачку.
- есть файл1 с содержимым (например 2 или 3 строки)
- есть файл2, куда содержимое первого файла надо добавить в конец
- нужен скрипт, который при наличии обоих файлов копирует содержимое из файла1 (или вообще копирует заданное значение в самом скрипте) в файл2, после чего удаляет себя.
необходимо запускать на винХР

Автор: olexande Aug 17 2012, 16:16

Если file существует, то копируем ...

Автор: javelin Sep 24 2012, 18:41

Вот вам bulletproof скрипт упорядочения рабочего стола

http://www.techrepublic.com/article/organize-windows-desktop-with-virtual-program-groups/5034408

Автор: ArxistratiG Oct 15 2012, 16:37

(ArxistratiG @ Oct 15 2012, 17:05)

(UUVtQD @ Oct 15 2012, 17:22)

Алоха!
Якщо використовується squid для Windows то буде щось типу цього (сам не перевіряв, але кажуть що працює ) :

@echo off

SET SQUID_LOG_PATH=C:\squid\var\logs

net stop pcnetprovider

net stop squidnt

FOR /F "tokens=1-4 delims=/, " %%i in ('date /t') do set YYYYMMDD=%%l-%%k-%%j

ren "%SQUID_LOG_PATH%\access.log" "access-%YYYYMMDD%.log"

net start squidnt

net start pcnetprovider

Зупиняє squid, акркйменовує лог в access-YYYY-MM-DD.log і стартує squid. Юзати через Windows Task Scheduler.
Enjoy!

Автор: fli Oct 16 2012, 9:04

Есть ли в cmd аналог unix команды echo $?
?

Автор: ArxistratiG Oct 16 2012, 10:37

Скрипт ротаци и архивирывания лог файлов сквида Windows.

@echo off

REM
REM Squid Log Rotation Script by PaperCut Software Int. Pty Ltd
REM



REM Stop the squid service
net stop squid

@SET CPATH=E:\Storage\Logs\Squid
@SET BCPATH=E:\Storage\Logs\Squid
@SET RARSTR=D:\Progra~2\winrar\winrar.exe a -ac -idp -m5 -md4096 -os -r -t -y -ep1 -ms -df -ag+YYYY_MM_DD_A_NN -ilogd:\windows\log_sq.log
@SET FILENAME=-access
@SET FILENAME1=-store

@%RARSTR% %BCPATH%\%FILENAME%.rar %CPATH%\access.log
@%RARSTR% %BCPATH%\%FILENAME1%.rar %CPATH%\store.log

REM Restart the squid service
net start squid


__________________________________________________________________________
#@SET RARSTR (Место где у Вас седит Winrar)
#log d:\windows\log_sq.log (место кудада ложиться лог рара)
#@SET CPATH, @SET BCPATH деректори откуда будут браться и куда будут складываться файлы
#SET FILENAME имена файлов + дата время месяц создания и прядковй номер (ag+YYYY_MM_DD_A_NN ) _01 _02 есле запускать несколько раз в день
#Progra~2 ето на х64 винде Program Files х86, Progra~1 обычная Program Files

Автор: zlobster Nov 26 2012, 23:07

Нужен Спец, который поможет или объяснит, как написать скрипт VB, PS, CMD.
Идея такая:
Есть файл в котором записаны:
- полный путь файла
- размер файла который прочитан, т.е. если он прочитан до конца, то соответствует размеру файла указанному в пути
и так много раз файл/прочитанный размер
Есть каталог, в котором эти файлы.
Надо из файла взять записи и сверяя их перемещать те которые прочитаны до конца в папку.
Что курить, где копать?!

Автор: fli Dec 14 2012, 15:33

подскажите как зеркалировать папку bat скриптом?
аналог rsync -av --delete

Автор: olexande Dec 29 2012, 14:00

robocopy /mir

Умеет еще докачивать и ограничивать нагрузку на канал. Используем найденный почти максимум - 2050

Автор: -AiD- Dec 29 2012, 14:28

(fli @ Oct 16 2012, 9:04)

Автор: -AiD- Jan 31 2013, 15:48

Проверить, входит ли Username в группу Active Directory Groupname:

Автор: PRIHOD Feb 5 2013, 11:41

буду благодарен тем, у кого есть готовое решение(скрипт).
задача слить с фтп бекапы(архивы).
сверить список директорий локального и удаленного пк.
слить файлы, которых нет на локальном пк.

Автор: mzk Mar 13 2013, 15:32

Есть файл типа .xml - там всякая херня не нужная и нужные ссылки. Ссылки в тегах <href>http://site.name</href>. Их довольно таки много, около 2к сайтов и надо их достать оттуда. Есть ли скрипт, который будет дергать то, что в тегах и писать в отдельный файлик ?

Автор: Sintorres Mar 13 2013, 15:34

http://yandex.ua/yandsearch?text=%D0%BF%D0%B0%D1%80%D1%81%D0%B5%D1%80%20xml&clid=1771360&lr=143&ncrnd=426 Не?

Автор: mzk Mar 14 2013, 15:11

В общем такое решение моей задачи: самописный скрипт на php, вдруг кому пригодится.

Автор: olexande Mar 17 2013, 19:34

(PRIHOD @ Feb 5 2013, 11:41)

Автор: Freestyler May 31 2013, 9:12

Была потребность сделать скрипт на винде, который будет блочить учетки, lastlogin которых больше 90 дней.
Можно добавлять исключения, есть лог файл, который по выполнении скрипта отправляется на почту.
Делалось это все не для домена.

Автор: Neuromancer Sep 4 2013, 10:07

В каждой учетке домена прописано выполнение скрипта:

On Error Resume Next

Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName

strDriveLetter = "z:"
strRemotePath = "\\сервер\Шара$"
strNewName = "Общая папка"
mapped = false

Set objNetwork = CreateObject("WScript.Network")
Set oDrives=objNetwork.EnumNetworkDrives

For i = 0 to oDrives.Count - 1 Step 2
If oDrives.Item(i)=strDriveLetter Then mapped = true

Next
If mapped Then objNetwork.RemoveNetworkDrive strDriveLetter
If mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
If Not mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

WScript.Quit

Он подключает сетевой диск.Кто может объяснить?Нужно чтобы вместе с папкой "Общая папка" монтировалься еще один диск "\\Общая папка\Договора" если у юзера есть доступ к ней. (Да я понимаю что Общая папка уже содержит папку договора,но нужен отдельный сетевой диск).

Автор: lSnakel Oct 3 2013, 14:26

(Neuromancer @ Sep 4 2013, 11:07)

Автор: BANDIT(filmmaniac) Oct 18 2013, 9:02

Может у кого есть готовый скрипт для следующей задачи:
- периодически делать копии одного и того же файла на файловом сервере
ОС - WinSrv 2012
Просто не хочется из-за такой мелочи какой-то софт ставить.

Автор: Celin Oct 18 2013, 9:17

(BANDIT(filmmaniac) @ Oct 18 2013, 10:02)

Автор: Sintorres Oct 18 2013, 9:43

Включить фичу Windows Server Backup, настроить, пользоваться.
Можно заюзать Robocopy из Windows Resource Kit (с WS2K8 должна быть доступна в как стандартный компонент) + планировщик.
ПС Ротация архивов нужна?

Автор: BANDIT(filmmaniac) Oct 18 2013, 9:45

Та не, там всё проще. Один файл где-то мб 10.
Планировщик + cmd подходят. Буду пробовать.
Спасибо.

Автор: Sintorres Oct 18 2013, 9:49

Robocopy с примерами скриптов http://www.cyberforum.ru/cmd-bat/thread792016.html

Автор: armageddon Nov 19 2013, 12:29

Ребят, помогите скриптиком, пожалуйста Нужно проверять доступность компа в сети по пингу, и если он не доступен в течении, скажем, 10-20 минут бутать комп, на котором запущен скрипт. Спасибо

Автор: olexande Dec 18 2013, 20:57

Пингал, потом "смотрел" ERRORLEVEL - покажет "уровень ошибки завершения последней задачи, используется в батниках" в аналогичных ситуациях.

По памяти:

Автор: Toyota Feb 18 2014, 0:22

Добрый вечер, помогите сделать батник чтоб:
- С папки HP копировались все файлы в папку STD
- А в папке log создавался файлик txt с названием файлов, а также с датой и временем когда был скопирован каждый файл.

*Надо чтоб выводилось время копирования каждого файла по отдельности.
Так как файлы по несколько гигов, так и время появления в папке у них разное должно быть.

Автор: Neuromancer May 13 2014, 11:11

Исправил

Автор: daysleeper Jul 28 2014, 11:46

powershell
нужно оставлять 4 последних файла бэкапа, и удалять те, которые старше.
удалять старше 4х дней непроблема. как оставлять последние 4 файла, что-бы на выходные и на праздники не перекрывались?

Get-ChildItem $backup | Where-Object { $_.LastWriteTime -lt $CurrentDate.AddDays(-4) } | Remove-Item

Автор: daysleeper Jul 29 2014, 17:31

(daysleeper @ Jul 28 2014, 11:46)

Автор: I00matolog Feb 26 2015, 11:45

Задача банальна - раскидать всем юзерам на рабочий стол ярлык
Сервер 2008 вынь без домена.
т.е.

copy /y c:\tmp\LINK.lnk C:\Users\$I\Desktop

где $I - это перебор файлика с именами профилей

как это на винде делается?
for $i (cat list.txt)
do
copy /y c:\tmp\LINK.lnk C:\Users\$I\Desktop
done

?

Автор: Spectral Feb 26 2015, 11:51

(I00matolog @ Feb 26 2015, 11:45)

Автор: I00matolog Feb 26 2015, 11:54

(Spectral @ Feb 26 2015, 11:51)

Автор: Dr.Sydorenko Feb 26 2015, 12:02

(I00matolog @ Feb 26 2015, 11:45)

Автор: I00matolog Feb 26 2015, 12:21

так, термінальнік

Непредвиденное появление IN

(Dr.Sydorenko @ Feb 26 2015, 12:02)

Автор: Dr.Sydorenko Feb 26 2015, 12:24

если в cmd/bat-файле, то должно быть %%i

Автор: I00matolog Feb 26 2015, 12:34

(Dr.Sydorenko @ Feb 26 2015, 12:24)

Автор: Koka-ftp Feb 26 2015, 21:19

мож сюды копнуть)?

Автор: Dr.Sydorenko Feb 26 2015, 23:04

(I00matolog @ Feb 26 2015, 12:34)

Автор: Dr.Sydorenko Feb 26 2015, 23:17

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

Автор: olexande May 13 2015, 11:20

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

Автор: mukolaich May 16 2015, 19:39

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

Автор: Fanta May 16 2015, 22:45

(mukolaich @ May 16 2015, 20:39)

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

Автор: olexande May 21 2015, 9:33

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

Автор: Fanta May 21 2015, 9:49

(olexande @ May 21 2015, 10:33)

Автор: olexande May 21 2015, 11:46

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

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

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

Автор: Fanta May 21 2015, 11:57

(olexande @ May 21 2015, 12:46)

Автор: Fanta May 26 2015, 10:13

(mukolaich @ May 16 2015, 20:39)

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

Автор: biqbo Jul 13 2015, 21:04

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

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

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

Автор: gonivo Jul 13 2015, 23:10

ping i.ua >c:\1

Автор: HEAVY Jul 13 2015, 23:47

ping i.ua >c:\1.txt

Автор: mak_v_ Aug 5 2015, 11:42

Господа, нужен батник (под Шиндовс 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'"

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

Автор: Dr.Sydorenko Aug 5 2015, 12:03

(mak_v_ @ Aug 5 2015, 12:42)

Автор: mzk Aug 18 2015, 8:18

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

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

Автор: Spyder3W Aug 18 2015, 10:41

(mzk @ Aug 18 2015, 9:18)

Автор: mukolaich Aug 28 2015, 20:12

(mzk @ Aug 18 2015, 9:18)

Ребята, нужна помощь в написании скрипта на 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 не силен, поэтому прошу помощи

(biqbo @ Jul 13 2015, 22:04)

Автор: Aleha Sep 8 2015, 11:33

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

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

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

Автор: Fanta Sep 8 2015, 14:05

(Aleha @ Sep 8 2015, 12:33)

Автор: Aleha Sep 9 2015, 13:48

(Fanta @ Sep 8 2015, 15:05)

Автор: lAero Dec 4 2015, 21:26

(Aleha @ Sep 8 2015, 11:33)

Автор: olexande Dec 10 2015, 21:02

Через пакет psexec можна дистанційно збирати за потребою ...
Без перезавантаження при перелогоні відпрацює правильно?

Автор: romchikss Jan 28 2016, 17:46

Приветствую!
OS Windows 2012 R2. Есть каталог с подкаталогами (очень много), у каждой папки нарезаны свои права, унаследование отключено. Нужно через powershell нарезать на каждый каталог/подкаталог доменному пользователю право Read only. Есть возможность ? Спасибо

Автор: mak_v_ Jan 28 2016, 18:33

https://technet.microsoft.com/ru-ru/library/cc753525(WS.10).aspx

Автор: artem.ultra Aug 26 2016, 14:58

нужен батник
1. подключаем сетевую шару с логином и паролем доменным \\192..168.150.150\back
2. проверяем файлы в этой шаре, если старше 30 дней - удаляем что там есть
3. копируем в эту шару файлы C:\Back
4. очищаем шару
5. размонтируем шару
как то так
запускать хочется через планировщика

Автор: Dik Aug 29 2017, 16:11

Господа, подмогните! Может кто где то видел или знает скрипт, который позволит делать выборки:
пользователи.тхт --->выборка AD ---> User+PC.txt
PC.txt ---> выборка AD ---> PC+User.txt

Тоесть выборка из АД данных на основе списков.

Автор: Koka-ftp Aug 29 2017, 16:32

не совсем понятнo описана задача)
если смотреть в сторону PS, то выборку из списка\текста можно делать командлетом Import-CSV
далее как-то так)

Автор: Dik Aug 30 2017, 9:50

(Koka-ftp @ Aug 29 2017, 17:32)

Автор: mak_v_ Sep 28 2017, 9:30

Можт у кого-то есть под рукой скриптик для АД (2к3) выгребающий список локальных админов со всех раб.станций?
Ну и в идеале конечно смена паролей для них-же.

Автор: Morftimg Apr 20 2018, 10:32

Помогите сделать людский скрипт для копирования профиля и данных пользователя и всех данных с диска Д.

Наваял скриптец но он не универсальный и не делает что я хочу.

NET USE \\Server\IPC$ /u:Server\user *password*

@echo off

set day=%date:~0,2%

set month=%date:~3,2%

set year=%date:~6,4%

Robocopy c:\users\Karpov \\Server\UserBackup\karpov%day%%month%%year%\ /E /A /DCOPY:T /R:2 /W:5 /MT:64

Что надо чтоб было СИСТЕМА WIN 10:
Авторизация на сетевой шаре и после бекапа размонтирование шары.

1. Универсальный скрипт, чтоб копировал профиль пользователя (только профили реальных пользователей, а не всех юзеров типа администратор и тд)
2. Все содержимое раздела D:\ исключая системный папки корзины и тд
3. К названию конечной папки чтоб дописывалась текущая дата, и вообще класно было бы если б было доступ 5 папок с датам допустим Karpov20042018 Karpov21042018 Karpov22042018 чтоб когда пишет 6 папку самая старая удалялась.
4. Хочется чтоб был батник, чтоб можно было вставить в обычный планировщик.

Очень надо срочно ) Спасибо.

Автор: Morftimg Apr 22 2018, 21:29

Помогите со скриптом, уже срочно надо

Автор: olexande Sep 9 2018, 20:19

Автор: Morftimg Jan 18 2019, 16:45

Напомните простой скрип для удаления файлов с датой более надцать дней от сегодня?

Автор: qazzy Jan 18 2019, 22:28

(Morftimg @ Jan 18 2019, 16:45)

Автор: mak_v_ Jan 18 2019, 23:35

(qazzy @ Jan 18 2019, 22:28)

Автор: Sintorres Jan 19 2019, 9:53

(Morftimg @ Jan 18 2019, 16:45)

(qazzy @ Jan 18 2019, 22:28)

Автор: qazzy Jan 19 2019, 14:35

(Sintorres @ Jan 19 2019, 9:53)

А это вообще законно, для винды?

https://sysadmin-note.ru/udalenie-fajlov-starshe-n-dnej/ и https://bdseo.ru/kak-udalyat-fajly-starshe-10-dnej-na-windows
И для винды "http://forum.oszone.net/thread-263677.html"

Автор: Alekssander Oct 23 2021, 9:23

Помогите плиз со скриптом.
Нужен скрипт для создания локального пользователя с правами администратора.
Десяток перепробовал, не работают.

Автор: Sub Focus Nov 4 2021, 19:55

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

Делал через Powershell