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

[olexande]

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

[Navern]

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

[fli]

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

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

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

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

[olexande]

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

ping 192.168.0.2 >> file.log
echo quit | telnet 192.168.0.254 25 >> file.log

положить в bat файл и запускать из планировщика.
Результат получишь в файле "file.log"

Сообщение отредактировал olexande - Jul 8 2009, 11:44

[fli]

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

ping 192.168.0.2 >> file.log
echo quit | telnet 192.168.0.254 25 >> file.log

положить в bat файл и запускать из планировщика.
Результат получишь в файле "file.log"

сПАсибо!

а еще вот.
надо чтобы по истечению определенного времени, например 3 часа после входа юзера под своей учеткой, менялся пароль к его учетной записи и выключался компьютер shutdown -s -t 10800
OS: Win XP
Cпасибо!

[DJ_KatSo]

надо чтобы по истечению определенного времени, например 3 часа после входа юзера под своей учеткой, менялся пароль к его учетной записи и выключался компьютер shutdown -s -t 10800
OS: Win XP

Приблизительно так:
Создаешь назначенное задание на запуск cmd-файла. Запуск от имени учетки с админ правами (главное не от того юзера, которому будем менять пароль).

Текст cmd-файла:

sleep 10800
net user %USERNAME% новый_пароль
sleep 10800
shutdown -s -t 1

Если пользователь доменный, то 2-ю строку меняем на эту:

net user %USERNAME% новый_пароль /domain

P.S. Возможно есть более простой способ.
P.P.S. sleep - утилитка из Windows Server 2003 Resource Kit Tools.

[-danger-]

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

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

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

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

Сообщение отредактировал -danger- - Jul 27 2009, 15:26

[DJ_KatSo]

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

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

[-danger-]

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

Сообщение отредактировал -danger- - Jul 27 2009, 15:25

[alex2376]

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

[GhostKU]

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

[ups]

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

find "A" c:\folder\telnet.log > c:\select.txt

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

Сообщение отредактировал ups - Jul 28 2009, 12:02

[GhostKU]

find "A" c:\folder\telnet.log > c:\select.txt

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

Спасибо
Сама команда при выполнении ее из командной строки - работате отлично
Но если я пытаюсь ее упаковать в комадный файл - начинаются проблемы

Командный файл "find.cmd" вида :
find "CallDuration" putty.log >> res.txt

При его запуске cmd.exe долго пишет строку вида
find "CallDuration" putty.log 1>> res.txt

Эта же строка многократно записывается в файл res.txt

В чем ошибка?

[DJ_KatSo]

Командный файл "find.cmd" вида :
find "CallDuration" putty.log >> res.txt

При его запуске cmd.exe долго пишет строку вида
find "CallDuration" putty.log 1>> res.txt

Эта же строка многократно записывается в файл res.txt

В чем ошибка?

Ошибка в названии cmd-шника - он постоянно вызывает сам себя.
Измени на poisk.cmd и все получится.

[fli]

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

[olexande]

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

[fli]

Может подойдет - shutdown -l

это завершение сеанса...а надо просто заблокировать....или перейти в режим выбора пользователя....

[protrue]

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

Создать ярлык
%windir%\System32\rundll32.exe user32.dll,LockWorkStation

или lock.bat файл

@echo off
%windir%\System32\rundll32.exe user32.dll,LockWorkStation
cls

Сообщение отредактировал protrue - Aug 13 2009, 8:41

[fli]

Создать ярлык
%windir%\System32\rundll32.exe user32.dll,LockWorkStation

или lock.bat файл

@echo off
%windir%\System32\rundll32.exe user32.dll,LockWorkStation
cls

рЕСПект! Работает!
Если кому интерестно для чего это мне надо было...
Короче моя учетка под паролем. В control userpasswords2, я убираю галку "Требовать ввод имени и пароля"...
В автозагрузку бросаю lock.bat.... и вуаля, не надо ждать после ввода пароля, применения личных параметров...сразу все загружено

[jerr]

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

что то не совсем понятно почему...