Подключение отключенного ящика в Exchange 2013

Через GUI-оснастку Exchange Server 2013 нельзя вернуть в рабочее состояние отключенный почтовый ящик пользователя.
Для этих целей необходимо пользоваться Exchange Management Shell
После запуска EMS ищем нашего пользователся:

Get-MailboxDatabase | Get-MailboxStatistics | Where { $_.DisplayName -eq "Пупкин Иван" } | fl DisplayName,Database,DisconnectReason

Итог поиска
Читать далее Подключение отключенного ящика в Exchange 2013

Отключение фаерволла с командной строки Windows 2008

Комманда для отключения на Windows 7/Vista и Windows Server 2008.

netsh advfirewall set currentprofile state off

Включить обратно:

netsh advfirewall set currentprofile state on

Читать далее Отключение фаерволла с командной строки Windows 2008

Удаленная перезагрузка Windows

Когда на сервере происходит какой-то катаклизм и на него нельзя зайти даже по RDP то самый простой вариант это перезагрузить компьютер.
Но как?
На помощь приходит штатная утиль shutdown

shutdown /f /r /m \\10.0.0.1 /t 00

Читать далее Удаленная перезагрузка Windows

Экспорт логов отслеживания почты в Exchange 2010

Графическая консоль Exchange 2010 (Microsoft Exchange Troubleshooting Assistant) дает возможность только посмотреть на логи хождения почты.
При этом возможности хоть как-то сохранить эту информацию – нет. Доступно только копирование одной ячейки за один раз )
А иногда бывает необходимо предоставить информацию в нормальном виде, желательно хотя-бы в Excel.
Для этого нужно использовать Exchange Managment Shell
Читать далее Экспорт логов отслеживания почты в Exchange 2010

Синхронизация времени с внешними NTP серверами на Windows Server 2008 (R2).

Для коректной работы в AD нужно чтобы у клиентов и на PDC время разбегалось не более чем на 5мин.
Все клиенты синхронизируют время с PDC по порту 123, но вдруг случилась беда и сам контроллер начал убегать от эталонного времени.
В мире есть много серверов синхронизации времени. Для Украины актульны такие пулы:
1.ua.pool.ntp.org
2.ua.pool.ntp.org
3.ua.pool.ntp.org
4.ua.pool.ntp.org
ntp.time.in.ua
Читать далее Синхронизация времени с внешними NTP серверами на Windows Server 2008 (R2).

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

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

if exist d:\files.txt del d:\files.txt
net file > d:\files.txt
for /f "skip=5 tokens=1" %%i in (d:\files.txt) do net file %%i /close
del d:\files.txt

как запускать скрипты под виндой

Открываеш блокнот, копируеш туда код и сохраняеш документ с расширением .vbs.
Далее если сеть без доменов копируеш этот файлик в автозагрузку каждому ПК. Если сеть с доменом, то создаеш груповую политику (в AD), где в параметрах автозагрузки вставляеш данный файл. Далее при подключении или перезагрузке учетной записи будет выполняться скрипт

(с) Nazim

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

strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")
strCommand = "C:\WINDOWS\system32\ntbackup.exe backup @C:\cmd\Back-UP-Drive-C.bks /a /v:no /r:no /rs:no /hc:off /m normal /j Back-UP-Drive-C /l:s /f D:\Back-Up\Backup-drive-c.bkf"
WshShell.Run strcommand, 1, true
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime")
 
For Each objItem in colItems
strCommand = "C:\Arch\7z.exe a D:\Back-Up\Backup-dc-srv-01-DayOf-Week-"&objItem.DayOfWeek&".7z D:\Back-Up\*.bkf -t7z -m0=BCJ2 -m1=LZMA:d23 -m2=LZMA:d19 -m3=LZMA:d10M -mb0:1 -mb0s1:2 -mb0s2:3"
Next
WshShell.Run strcommand, 1, true
strCommand = "ftp -s:C:\CMD\ctp-command.txt"
WshShell.Run strcommand, 1, true

скрипт подключения сетевого диска

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