CMD/VBS

Долго собирался, и наконец начал собирать памятку по командам в CMD и VBS (мало-ли кому пригодится для доменных сборок и не только). Буду добавлять по мере всплывания вышеупомянутых, все команды рабочие и под Win2003R2 отрабатываются:

Подключение сетевых принтеров и дисков в AD (Active Directory):
@echo off
net use Z: \\NAS\Public /persistent:yes
(свойство постоянности сетевого диска persistent:no/yes)
start \\serv\hp3035 — список подключаемых сетевых принтеров
start \\serv\hp3015
start \\serv\Brother (точный адрес и имя, лучше смотреть через сетевое окружение)
rundll32 printui.dll,PrintUIEntry /y /n «\\serv\hp3035» — принтер по умолчанию

cscript prnmngr.vbs -d -p «\\SERVER\PRINTER» — удаляет указанный принтер на локальной машине
net use L: /delete /yes -удаление сетевого диска через CMD/BAT

Добавление и удаление принтеров посредством реестра через CMD/BAT:
REG ADD (or DELETE)
«HKEY_CURRENT_USER\Printers\Connections\,,serv,HP LaserJet M3035 MFP PCL 6» /f


Удаление файлов по расположению, дате, маске:

forfiles /p «C:\Logs» /s /d -365 /m *.log /c «cmd /c del @file»

(удалить в папке C:\Logs и ее подпапках старше года файлы с расширением  .log)

/p путь в кавычках

/s выполнение команды в папке и подпапках

/d -365  старше года от текущей даты

/m *.log маска файла

forfiles /? (подробный хелп в cmd)


VBS отправка письма с вложением при наличии внутреннего почтовика
Path = «C:\CON\Receive\»%папка где ищем файл по расширению
Set Items = CreateObject(«Shell.Application»).NameSpace(Path).Items
Items.Filter 192, «*.txt»%указываем расширение
If Items.Count = 1 Then
Web = «http://schemas.microsoft.com/cdo/configuration/»
With CreateObject(«CDO.Message»)
.From = «e-mail»%От кого
.To = «e-mail»%Кому
.Subject = «Hvost»%Тема
.Textbody = «Automatic mail-sender OOO Roga i Kopyta»%Тело письма
.AddAttachment Path & Items.Item(0)%Присоединяем искомый файл
.AddAttachment «C:\CON\Receive\REC.json»%Присоединяем конкретный файл
.Configuration.Fields.Item (Web & «sendusing») = 2%Тип авторизации
.Configuration.Fields.Item (Web & «smtpserver») = «192.168.1.2»%IP внутреннего почтовика
.Configuration.Fields.Item (Web & «smtpserverport») = 25
.Configuration.Fields.Update
.Send
End With
End If


BAT-пускач для TeamViewerа Portable (для Win7x64):

@echo off
Reg delete «HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer» /f
rd /S /Q «%USERPROFILE%\AppData\Roaming\TeamViewer»
start D:\TeamViewerPortable11\TeamViewer.exe

Добавить комментарий

Ваш e-mail не будет опубликован или использован в иных целях.
Your email address will not be published.