Полезные скрипты [vbs,bat] для сисадмина. Часть 1
Хочу поделиться скриптами, которые помогают мне в повседневной работе:
add_printer.vbs
'Автоматическое добавление сетевых принтеров пользователям'
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\Servname\HP LJ M5025"
WshNetwork.AddWindowsPrinterConnection "\\Username\HP"
WScript.Echo "Все принтеры добавлены. Спасибо, что облегчили работу админу."
wins_service.bat
'скрипт для обслуживание базы данных wins. Выполнять раз в квартал или полгода'
net stop wins
jetpack %systemroot%\system32\wins\wins.mdb %systemroot%\system32\wins\tmp.mdb
net start wins
service.vbs
'Скрипт для определения состояния службы
Set objShellApp = CreateObject("Shell.Application")
ServiceName = "NtLmSsp" ' имя сервиса
If objShellApp.IsServiceRunning(ServiceName) Then
MsgBox "Сервис " & ServiceName & " запущен!", vbInformation
Else
MsgBox "Сервис " & ServiceName & " НЕ запущен!", vbInformation
End If
login.vbs
'пример определения пользователя, под которым произведен вход
'если модифицировать - получится неплохой log`ер для отслеживания активности и проч
Set WshShell = CreateObject("WScript.Shell")
login = WshShell.ExpandEnvironmentStrings("%USERNAME%")
WScript.Echo login
upgrade.vbs
'скрипт для копирования файлов из сети на ПК (на примере обновления баз McAfee)
SourceFolder = "\\server\Engine\" ' каталог, откуда копируем
DestFolder = "C:\Program Files\Common Files\Network Associates\Engine\" ' каталог куда копируем
LogFolder = "\\server\Log\" ' путь к лог файлу'====================================================================
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = CreateObject("WScript.Network")
Set LogFile = FSO.OpenTextFile(LogFolder & "\mcafee_upg.log", 8, True)For Each File In FSO.GetFolder(SourceFolder).Files
TargetPath = DestFolder & File.Name
' если у файла есть атрибут ReadOnly, снимаем его
If FSO.FileExists(TargetPath) Then
Set TargetFile = FSO.GetFile(TargetPath)
If TargetFile.Attributes And 1 Then
TargetFile.Attributes = TargetFile.Attributes - 1
End If
End If
' если сетевая папка не доступна, пишем лог
SourcePath = SourceFolder & File.Name
If Not FSO.FileExists(SourcePath) Then
LogFile.WriteLine Now & ", компьютер - " & WshNetwork.ComputerName & ", пользователь - " & WshNetwork.UserName & ": путь " & SourceFolder & " нет доступа"
LogFile.Close
WScript.Quit
End If
' копируем файлы
FSO.CopyFile File.Path, DestFolder & File.Name, True
If Err.Number Then
LogFile.WriteLine Now & ", " & WshNetwork.ComputerName & ", " & WshNetwork.UserName & _
": " & Err.Description & " " & File.Name
Err.Clear
End If
Next
If Err.Number Then Breakdown
LogFile.Close
WScript.Echo "Скрипт выполнен. Отчет находится на " & LogFolder
Полезные скрипты [vbs,bat] для сисадмина. [Часть 1] [Часть 2] [Часть 3]
Также рекомендую следующие записи:
Понравилась статья? Подпишись на обновления по RSS, E-mail или добавляйте меня в Twitter.
Комментарии (6)