» Автоматизация администрирования. Часть 2

Всем привет.
На sysadmin взял скрипт для подключения к сетевым дискам следующего содержания

Код: 'Скрипт подключения сетевого диска с определенной меткой.
'ВНИМАНИЕ!!!
'Скрипт не будет работать, если буква подключаемого диска совпадает с буквой локального диска.
'****************************************************************************
Option Explicit

Dim objFSO
Dim strDriveLetter, strRemotePath, strNewDiskName

strDriveLetter = "Z:"
strRemotePath = "\\
strNewDiskName = "Free"

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Если такой сетевой диск существует, отключаем его и переподключаем по новой.
'На тот случай, если был подключен не тот диск. Затем переименовываем.
'Если диск не существует, подключаем и переименовываем.
If objFSO.DriveExists(strDriveLetter) = True Then
RemNetDrive strDriveLetter, True, True
MapNetDrive strDriveLetter, strRemotePath, False
RenameNetDrive strDriveLetter, strNewDiskName
Else
MapNetDrive strDriveLetter, strRemotePath, False
RenameNetDrive strDriveLetter, strNewDiskName
End If


'****************************************************************************
'ПРОЦЕДУРЫ
'****************************************************************************

'Процедура переименования сетевого диска.
'Принимаемые параметры:
'strDriveLetter - буква диска + двоеточие, например "P:"
'strNewDiskName - новая метка диска, например "Документы бухгалтерии"
Sub RenameNetDrive (strDriveLetter, strNewDiskName)
Dim objShell
Set objShell = CreateObject("Shell.Application")

objShell.NameSpace(strDriveLetter).Self.Name = strNewDiskName
End Sub

'Процедура подключения сетевого диска.
'Принимаемые параметры:
'strDriveLetter - буква диска + двоеточие, например "P:"
'strRemotePath - путь к общему ресурсу, монтируемому, как диск, например "\\Fileserver01\Buh"
'bUpdateProfile - сохранять ли информацию в профиле пользователя. Аналог ключа /PERSISTENT:YES команды net use.
Sub MapNetDrive (strDriveLetter, strRemotePath, bUpdateProfile)
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, bUpdateProfile
End Sub

'Процедура удаления сетевого диска.
'Принимаемые параметры:
'strDriveLetter - буква диска + двоеточие, например "P:"
'bForce - отключать ли диск, если он в данный момент используется
'bUpdateProfile - сохранять ли информацию в профиле пользователя.
Sub RemNetDrive (strDriveLetter, bForce, bUpdateProfile)
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")

objNetwork.RemoveNetworkDrive strDriveLetter, bForce, bUpdateProfile
End Sub

Есть сетевая папка. Требуется, чтобы при поступлении новых файлов в эту папку, определённый пользователь получал уведомление. Подскажите пожалуйста чем можно реализовать подобное ?

kakaw> при поступлении новых файлов...
смотри темы/ключевые слова: "настройка аудита", "подписка на события", "чтение эвентлога"

Приветствую всех. Есть задача по переименованию файла, имя файла известно, нужно его переименовать, но расположение файла на жёстком диске может быть разным, да файлов этих может быть несколько, в общем если этих файлов несколько, то нужно переименовать все. Кто нибудь подскажет?

Добавлено:
Желательно конечно в виде батника.

firsteducation

Цитата:

Есть задача по переименованию файла, имя файла известно, нужно его переименовать, но расположение файла на жёстком диске может быть разным, да файлов этих может быть несколько, в общем если этих файлов несколько, то нужно переименовать все.

Код: @echo off

set "Drive=Z:\"
set "OldName=read.txt"
set "NewName=write.txt"

for /f "tokens=*" %%i in ('dir "%Drive%%OldName%" /a-d/s/b') do ren "%%i" "%NewName%"

firsteducation> задача по переименованию файла... c разным местоположением
Плюшка к варианту от Rush (без тестирования работоспособности):
Файл Cmd.exe разворачивает переменные с %0 по %9. При использовании пакетных параметров переменная %0 заменяется на имя пакетного файла, а переменные с %1 по %9 — на соответствующие аргументы, напечатанные в командной строке.
Т.о. вместо %OldName% мона использовать %1, а вместо %NewName% -- %2, тогда вызов батника будет типа: S.bat OldName NewName

Rush спасибо проверим!
YNY спс, занесу всё в свой архив, есчё пригодится!

Добрый день!
Подскажите, пожалуйста, по следующему вопросу:
имеется мед. программа (Полиус), в которую каждый день надо подгружать через ВЭБ-интерфейс базы застрахованных лиц от 3-4 компаний. Базы приходят по почте, причем шифруются Вербой. Реально ли все это автоматизировать?
Что нужно, могу уточнить. Больше интересует вопрос по расшифровке Вербой.

champa
У вербы есть пакетный режим работы, написав простенький сценарий можно все автоматизировать.
В мануале по вербе есть описание команд и способа запуска.
Одно напрягает - при первом запуске все равно приходится руками инициализировать ДСЧ.
Так же есть и консольные утилиты, но тут я не очень в курсе, использую пакетный режим.

res2001
спасибо. Посмотрим. Теоритически задача, как я понял, выполнима и не составит особого труда?

champa

Цитата:

Теоритически задача, как я понял, выполнима и не составит особого труда?

и теоретически и практически

res2001
пошел читать матчасть! давно скриптов не делал - со времен диплома универа=)) но ниче вспоминать легче, чем изучать заново. Вопросик сразу: почту получаю Батом, может для удобства лучше специально для скрипта консольное че-нить, типа blat'a?

Добавлено:
хотя, вспоминая, диплом - именно Мышь и использовалась.

champa
В бате есть такая фишка как ipc файл - это текстовый файл, в котором содержаться команды для бата. Файл должен лежать в каталоге с батом, называться thebat.ipc. BAT сканирует свой каталог на предмет наличия этого файла и выполняет команды, которые в нем содержаться.
Так что можно и с батом все автоматизировать.

Люди есть проблема, сделал пакетный файл, в нём два батника и один wsh скриптик, один батник добавляет в реестр запись на запуск wsh скрипта, wsh скрипт должен запустить второй батник, лежащий в той же папке, но wsh выдаёт ошибку что файл ненайден.
Если запускать wsh скрипт вручную всё работает, в чём дело?
Пример моего wsh скрипта:

On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "test.bat", 0, false

firsteducation
ИМХО...
Потому что когда вы запускаете скрипт ручками то находитесь в той же папке, и он считается, что отсюда и вызван, а когда он вызывается из реестра (вы кстати не сказали откуда именно, и при каких обстоятельствах, и вообще зачем такая канитель?) то вызов считается из какой-нить %systemroot%\system32, ну а там файлика-то вашего и нету...
Как вариант решения проблемы либо использовать абсолютные пути, либо 1-ый батник пусть копирует wsh, и 2-ой батник куда-нить на %systemdrive% и пути уже пишите от этой переменной...

Люди есть проблема, сделал пакетный файл, в нём два батника и один wsh скриптик, один батник добавляет в реестр запись на запуск wsh скрипта, wsh скрипт должен запустить второй батник, лежащий в той же папке, но wsh выдаёт ошибку что файл ненайден.
Если запускать wsh скрипт вручную всё работает, в чём дело?
Пример моего wsh скрипта:

On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "test.bat", 0, false


Цитата:

ИМХО...
Потому что когда вы запускаете скрипт ручками то находитесь в той же папке, и он считается, что отсюда и вызван, а когда он вызывается из реестра (вы кстати не сказали откуда именно, и при каких обстоятельствах, и вообще зачем такая канитель?) то вызов считается из какой-нить %systemroot%\system32, ну а там файлика-то вашего и нету...
Как вариант решения проблемы либо использовать абсолютные пути, либо 1-ый батник пусть копирует wsh, и 2-ой батник куда-нить на %systemdrive% и пути уже пишите от этой переменной...

Мне нужно чтоб папка в которой лежит wsh скрипт была папкой из которой он был вызван, т.к иначе ничего не срабатывает.

Цитата:

On Error Resume Next
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "test.bat", 0, false

Цитата:

Dim LaunchDir, FSO, WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
LaunchDir = WSHShell.CurrentDirectory

WSHShell.Run ""LaunchDir & "\test.bat""

attaattaatta А можно поподробней?


Добавлено:

Цитата:

Dim LaunchDir, FSO, WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
LaunchDir = WSHShell.CurrentDirectory

WSHShell.Run ""LaunchDir & "\test.bat""

Выдаёт ошибку: предполагается наличие окончания инструкции.

firsteducation> Выдаёт ошибку: предполагается наличие окончания инструкции
Т.к. не правильное использование двойных кавычек!
Правильно типа вот так:
WSHShell.Run LaunchDir & "\test.bat"
или если в LaunchDir есть пробелы, то
WSHShell.Run """"&LaunchDir&"\test.bat"&""""


Добавлено:
ДЛЯ ВСЕХ
VBSCRIP5.CHM -- справка по VBScript из ворда XP (и возмона 2k) до 2007
C:\Program Files\Microsoft Office\Office10\1049\VBSCRIP5.CHM

О наконец то, спасибо YNY!


Добавлено:
Рано я обрадовался, при добавлении в реестр vbs скрипта, пишется ошибка не найден файл!

Рано я обрадовался, при добавлении в реестр vbs скрипта, пишется ошибка не найден файл! В чём дело?

firsteducation> ошибка не найден файл
проверь какой путь у тебя в реестре, затем скопируй строку запуска из реестра, нажми Пуск\Выполнить, вставив путь из реестра, и жми ОК/энтнр. Если не запустится, то значит:
1--путь запуска не корректен)
2-- нет прав на папку

Дело в том что сценарий vbs система находит, но указывает 4 строку и 1-й символ, после чего пишет: не удаётся найти указанный файл.

Добавлено:
YNY

Цитата:

проверь какой путь у тебя в реестре, затем скопируй строку запуска из реестра, нажми Пуск\Выполнить, вставив путь из реестра, и жми ОК/энтнр

Всё сделал как ты посоветовал, когда вбиваю в cmd через "выполнить", всё запускается, но через реестр не фурычит!

Добавлено:
Вот содержимое моего vbs скрипта:

Dim LaunchDir, FSO, WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
LaunchDir = WSHShell.CurrentDirectory
WSHShell.Run LaunchDir & "\test.bat"

firsteducation> но через рез реестр не фурычит
текст первого батника покажи

firsteducation Надеюсь, в реестре прописываешь скрипт так как тебе уже раньше советовали?

Цитата:

vbs надо запускать так: cscript C:\blablabla\script.vbs

имя батника: test.bat
тело батника:
@echo work!
pause

имя vbs: tester.vbs
тело vbs:
Dim LaunchDir, FSO, WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
LaunchDir = WSHShell.CurrentDirectory
WSHShell.Run LaunchDir & "\test.bat"

строка в реестре:
C:\WINDOWS\asdsa\tester.vbs

все файлы лежат в C:\WINDOWS\asdsa

firsteducation
Цитата:

Всё сделал как ты посоветовал, когда вбиваю в cmd через "выполнить", всё запускается, но через реестр не фурычит!

эм... ну для чистоты проверки вы суньте в vbs строки типа MSgBox "Текст сообщения", vbInformation, "Заголовок сообщения"
Тем самым вы элементарно проверите вызывается ли сам vbs из реестра...

firsteducation
Попробуйте сделать явный вызов сервера wscript или cscript, прописав что-то вроде этого:
C:\WINDOWS\System32\wscript.exe C:\WINDOWS\asdsa\tester.vbs

firsteducation
в какую ветку реестра ты ставишь запуск ???

el_verdugo Запуск консольных приложений рекомендуется делать именно через cscript.