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

[BANDIT(filmmaniac)]

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

[Celin]

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

С этим справится планировщик заданий и командная строка. Можно ещё архиватор вцепить для сжатия.

[Sintorres]

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

[BANDIT(filmmaniac)]

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

[Sintorres]

Robocopy с примерами скриптов ТЫЦ

[armageddon]

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

[olexande]

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

По памяти:

ping 127.0.0.1 -n 1
echo ERRORLEVEL

Пропингует себя 1-м пакетом и выплюнет оную.
По желанию можно прикрутить условие и дальше действовать по обстоятельствам.

[Toyota]

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

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

[Neuromancer]

Исправил

Сообщение отредактировал Neuromancer - May 15 2014, 19:11

[daysleeper]

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

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

Сообщение отредактировал daysleeper - Jul 28 2014, 11:47

[daysleeper]

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

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

разобрался.
может кому пригодится.

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

$sorce = "C:\source"
$N = 3

$a = Get-ChildItem $sorce | Sort-Object creationtime
$b = $a.length


if ($b -gt $N)
{while ($b -gt $N)
{ Get-ChildItem $sorce | Sort-Object creationtime | Select-Object -First 1 | Remove-Item
$a = Get-ChildItem $sorce | Sort-Object creationtime
$b = $a.length}}

[I00matolog]

Задача банальна - раскидать всем юзерам на рабочий стол ярлык
Сервер 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]

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

Не туда копаешь. В винде есть такой юзер, как дефолтный профиль Default. Его ярлыки будут у всех юзеров. Так проще, если у тебя нет отдельных юзеров, кому этот ярлык нельзя.

[I00matolog]

Не туда копаешь. В винде есть такой юзер, как дефолтный профиль Default. Его ярлыки будут у всех юзеров. Так проще, если у тебя нет отдельных юзеров, кому этот ярлык нельзя.

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

[Dr.Sydorenko]

Задача банальна - раскидать всем юзерам на рабочий стол ярлык
Сервер 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

?

Ну, FOR /?

Терминальник с кучей профилей?
Как-то так:

for /F %i IN ('dir /AD /B c:\users') DO copy /y c:\tmp\LINK.lnk  "C:\Users\%i\Desktop\"

хмм...
должно быть (а не странный значек вместо слешей):

for /F %i IN ('dir /AD /B c:\users') DO copy /y c:\tmp\LINK.lnk "C:\Users\%i\Desktop\"

[I00matolog]

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

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

for /F %i IN ('dir /AD /B c:\users') DO copy /y c:\tmp\LINK.lnk  "C:\Users\%i\Desktop\"

хмм...
должно быть (а не странный значек вместо слешей):

for /F %i IN ('dir /AD /B c:\users') DO copy /y c:\tmp\LINK.lnk "C:\Users\%i\Desktop\"

[Dr.Sydorenko]

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

В пакетных файлах для команды FOR используется запись %%переменная вместо %переменная. Имена переменных учитывают регистр букв (%i отличается от %I).

[I00matolog]

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

а теперь рисует что "Ошибка в синтаксисе команды"
и выводит строку команды


C:\Users>for /F %i IN ('dir /AD /B C:\Users\')

[Koka-ftp]

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

$WshShell = New-Object -comObject WScript.Shell
$Shortcut = $WshShell.CreateShortcut("$Home\Desktop\bla.lnk")
$Shortcut.TargetPath = "C:\Program Files (x86)\blabla\bla.exe"
$Shortcut.Save()

ну и как вариант

strDesktop = WshShell.SpecialFolders("AllUsersDesktop" )
set oShellLink = WshShell.CreateShortcut(strDesktop & "\bla.lnk" )
oShellLink.TargetPath = "c:\bla\bla.exe"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "c:\bla\bla.ico"
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = "c:\bla"
oShellLink.Save

зы нужно создать всем или неким из файла?

Сообщение отредактировал Koka-ftp - Feb 26 2015, 21:49

[Dr.Sydorenko]

а теперь рисует что "Ошибка в синтаксисе команды"
и выводит строку команды


C:\Users>for /F %i IN ('dir /AD /B C:\Users\')

Странно, должно работать (это из 7-ки, 2008-й нет под рукой - нужно в справке перепроверить):

Microsoft Windows [Version 6.1.7601]
© Корпорация Майкрософт (Microsoft Corp.), 2009. Все права защищены.

C:\Windows\system32>for /F %i IN ('dir /AD /B c:\users') DO dir "C:\Users\%i\Desktop\"

C:\Windows\system32>dir "C:\Users\All\Desktop\"
Системе не удается найти указанный путь.

C:\Windows\system32>dir "C:\Users\Classic\Desktop\"
Системе не удается найти указанный путь.

C:\Windows\system32>dir "C:\Users\Default\Desktop\"
Том в устройстве C не имеет метки.
Серийный номер тома: 20E0-9137

Содержимое папки C:\Users\Default\Desktop

14.07.2009 04:34 <DIR> .
14.07.2009 04:34 <DIR> ..
0 файлов 0 байт
2 папок 4 157 923 328 байт свободно

...