@ECHO OFF
ECHO.
ECHO Please select...
ECHO.
ECHO R - Reboot
ECHO S - Shut Down
ECHO A - Abort Shutdown
ECHO Q - Quit
ECHO.

CHOICE /C RSAQ

IF ERRORLEVEL 4 GOTO END
IF ERRORLEVEL 3 GOTO ABORT
IF ERRORLEVEL 2 GOTO SHUTDOWN
IF ERRORLEVEL 1 GOTO REBOOT
IF ERRORLEVEL 0 GOTO END
GOTO END

:ABORT
shutdown /a
GOTO END

:REBOOT
SET PARAM=/r
GOTO STOPSERVICES

:SHUTDOWN
SET PARAM=/s
GOTO STOPSERVICES

:STOPSERVICES
ECHO ON
net stop MSExchangeES /y
net stop MSExchangeIS /y
net stop MSExchangeMTA /y
net stop MSExchangeSA /y
net stop WinHttpAutoProxySvc /y
shutdown %PARAM% /t 10 /c "TO ABORT, RE-RUN BATCH FILE AND PRESS A"

:END

'Подключение принтеров пользователям исходя из прописанного размещения компьютера

'Определяем значание поля Location (Размещение)
Option Explicit
Dim WSHNetwork, Computer, Path, strComputerDN, objSysInfo, objComputer, sPrintPath, NetwPrinters, PrintLocation, objWMIService, colInstalledPrinters, objPrinter
Set WSHNetwork = CreateObject("WScript.Network")
On Error Resume Next
Path = WSHNetwork.ComputerName
Set objSysInfo = CreateObject("ADSystemInfo")
strComputerDN = objSysInfo.ComputerName
Set objComputer = GetObject("LDAP://" & strComputerDN)

'Назначаем необходимый для установки сетевой принтер
Select Case objComputer.Get("Location")

Case "размещения компьютера"
    sPrintPath = "\\сервер\имя принтера"
    PrintLocation = "описание"
WSHNetwork.AddWindowsPrinterConnection sPrintPath
    sPrintPath = "\\сервер\имя принтера"
    PrintLocation = "описание"

Case "размещения компьютера"
     sPrintPath = "\\сервер\имя принтера"
    PrintLocation = "описание"

Case Else
MsgBox("Для установки принтера обратитесь в отдел тех. поддержки или к  системному администратору.") :WScript.Quit
End Select

'Выполняем проверку установленных принтеров
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")

Set colInstalledPrinters =  objWMIService.ExecQuery _
   ("Select * from Win32_Printer")
  
For Each objPrinter in colInstalledPrinters
If  PrintLocation = objPrinter.Location  Then
    WScript.Quit
End if
Next

'Подключаем принтер и делаем его принтером по умолчанию
WSHNetwork.AddWindowsPrinterConnection sPrintPath
WSHNetwork.SetDefaultPrinter sPrintPath

Computer = InputBox("Имя компьютера")

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")

Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
Wscript.Echo "Logged-on user: " & objComputer.UserName

Next

Option Explicit

Const strComputer = "computername"
Const strCommand = "c:\windows\notepad.exe"

Dim objLocator, objWMIService, objScheduledJob
Dim tyear, datex, datey, martdate, octoberdate, i
Dim CurrTimePlusOneMin, RunTime, Res, intJobID

Set objLocator = CreateObject("wbemscripting.swbemlocator")
'Подключаемся к WMI удаленного ПК с правами текущего пользователя.
Set objWMIService = objLocator.connectserver(strComputer,"\root\cimv2")
'Для подключения с правами другого пользователя, нужно добавить еще два параметра, имя пользователя и пароль:
'Set objWMIService = objLocator.connectserver(strComputer,"\root\cimv2", "user", "password")
'Подробнее про SWbemLocator здесь http://www.microsoft.com/technet/scriptcenter/guide/sas_wmi_ciga.mspx?mfr=true

'Получаем текущий год
tyear = mid(now(),7,4)
'Узнаем дату перехода на летнее/зимнее время в текущем году
'Летнее - последнее воскресенье марта 2 часа ночи
'Зимнее - последнне воскресенье октября 3 часа ночи
for i = 1 to 31
    datex = i & ".03." & tyear & " 02:00:00"
    datey = i & ".10." & tyear & " 03:00:00"
if weekday (datex,2)="7" then martdate=datex
if weekday (datey,2)="7" then octoberdate=datey
next

'Текущее время плюс одна минтута
CurrTimePlusOneMin = Replace(Left(Right(dateadd ("n",1,Now()), 8), 5), ":", "")

'Проверяем по какому времени (летнему или зимнему) живем и создаем дату в UTC формате
'Про UTC формат здесь http://www.microsoft.com/technet/scriptcenter/guide/sas_wmi_fvwp.mspx?mfr=true
if now() > martdate and now() < octoberdate then
    RunTime = "********" & CurrTimePlusOneMin & "00.000000+240"
else
    RunTime = "********" & CurrTimePlusOneMin & "00.000000+180"
end if

'Создаем задание.
'Про Win32_ScheduledJob здесь http://www.microsoft.com/technet/scriptcenter/guide/sas_man_rsxs.mspx?mfr=true
Set objScheduledJob = objWMIService.Get("Win32_ScheduledJob")
Res = objScheduledJob.Create(strCommand, RunTime, False ,  , 0, True, intJobID)

Set objScheduledJob = Nothing
Set objWMIService = Nothing
Set objLocator = Nothing

'****************************************************************************
'Define here a group you want to add to Local Administrators
strGroupDOMAIN="HQ" 'Domain name where Group is (NTLM domain name)
strGroupName="Account Operators Group" 'Group sAMAccountName

'****************************************************************************
On Error Resume Next

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colGroups = objWMIService.ExecQuery("Select * from Win32_Group Where LocalAccount=True AND SID='S-1-5-32-544'")

For Each objGroup in colGroups
    strCompName = objGroup.Domain
    strAdminGroupName = objGroup.Name
Next

Set objAdminGroup = GetObject("WinNT://" & strCompName & "/" & strAdminGroupName & ",group")

Set objGroupToAdd = GetObject("WinNT://" & strGroupDOMAIN & "/" & strGroupName &",group")

objAdminGroup.Add(objGroupToAdd.ADsPath)

'============================================
'Язык - VBScript
'Автор - xck
'Скрипт предназначен для удаленного запуска приложений
'============================================
compName = "compname"
Set objProc = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & compName & "\root\cimv2:Win32_Process")
errCode = objProc.Create("calc.exe", null, null, procID)
If errCode <> 0 Then
    Wscript.Echo "При запуске приложения возникла ошибка." & vbCr & "Её код: " & errCode
Else
    Wscript.Echo "Приложение запущено." & vbCr & "Его идентификатор: " & procID
End If

/*Язык - JScript*/
/*Автор - xck*/
/*Создаем бэкап папки избранное*/
//Создаем объект WSHShell
var WSHShell = WScript.CreateObject("WScript.Shell");
//узнаем дату
var d, s = "data create - ";
d = new Date();
s += (d.getMonth() + 1) + ".";
s += d.getDate() + ".";
s += d.getYear();
//создаем папку с датой бэкапа
var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateFolder("d:\\backup\\Favorites\\"+s);
//Узнаем путь папки Favorites в профиле пользователя
var FavoritesPath = WSHShell.SpecialFolders("Favorites");
//Производим копирование
fso.CopyFolder(FavoritesPath, a);