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

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

Ваш адрес email не будет опубликован. Обязательные поля помечены *


Срок проверки reCAPTCHA истек. Перезагрузите страницу.