|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - +VBS: копирование файлов с сервера в папку установки проги |
|
CMD/BAT - +VBS: копирование файлов с сервера в папку установки проги
|
Новый участник Сообщения: 20 |
Профиль | Отправить PM | Цитировать Такая ситуация: в автокад были добавлены некоторые шаблоны (то есть файлы .dwg), которые содержали официальное короткое название нашей организации, сейчас пришло указание сменить официальное короткое название организации и во всех шаблонах в автокаде соответственно поменять это название. Все автокады (2004, 2007, 2008) ставятся с серверов, там есть их развертки. В развертках я все поменяла, теперь получается, что у всех пользователей, у кого автокады были поставлены раньше (это окоо 150 пользователей), старые шаблоны, то есть необходимо их подменить на новые с новым названием, можно конечно ручками ходить по кабинетам и копировать новые файлы с шаблонами, но это долго и нехорошо. Поэтому надо написать такой скрипт, который будет копировать эти файлы с сервера туда, где лежат такие же (только старые) у пользователя на компе. Проблема еще в том, что системные пути разные, то есть у кого-то это Programs, у кого-то Program Files, так же у кого-то Documents, у кого-то Documents and Settings. У меня опыт написания скриптов почти нулевой, но на сколько я знаю, cmd файлы не работают с unc путями, а как задавать системные папки в vbs я никак не могу найти, и как вообще получить путь, где стоит автокад и соответственно лежат шаблоны?
|
|
Отправлено: 07:56, 04-04-2008 |
Сообщения: 53171
|
Профиль | Отправить PM | Цитировать la_vanille_ciel, примерно так (у меня работает, во всяком случае):
On Error Resume Next Dim WSh, FSO, P Set WSh = WScript.CreateObject("WScript.Shell") Set FSO = WScript.CreateObject("Scripting.FileSystemObject") P = "" P = WSh.RegRead("HKLM\SOFTWARE\Autodesk\AutoCAD\R 17.0\ACAD-5000:419\AcadLocation") If FSO.FolderExists(P) Then FSO.CopyFile "\\Apu18s\Shell\civil3D_2007_net\acad2004.lsp", P & "\Graph\acad.lsp", True |
Отправлено: 09:16, 07-04-2008 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать ((((((((((((((((((((((((((( не работает, может у меня с компом что-то не так......
я убрала строчку, которая не повзволяет ошибке выводиться (если я правильно поняла):On Error Resume Next и тогда он сообщает: ошибка: строка 8 символ 1, неверная ссылка на корень в разделе реестра, источник WshShell.RegRead ... |
Отправлено: 09:32, 07-04-2008 | #12 |
Сообщения: 53171
|
Профиль | Отправить PM | Цитировать la_vanille_ciel, значит, раздел реестра HKLM\SOFTWARE\Autodesk\AutoCAD\R 17.0\ACAD-5000:419 не существует.
|
Отправлено: 09:35, 07-04-2008 | #13 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать как это???? я же его своими глазами вижу!!!!
я даже поменяла на HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R 17.0\ACAD-5000:419 чтобы точно уж....а оно не работает...что делать????? |
Отправлено: 09:39, 07-04-2008 | #14 |
Сообщения: 53171
|
Профиль | Отправить PM | Цитировать la_vanille_ciel, уверены, что в \R 17.0\ пробел?
|
Отправлено: 09:40, 07-04-2008 | #15 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать для всех остальных автокадов тоже не работает (((((((((((((((( такого не может быть...они же все у меня стоят!!
да, я уже и без пробела попробовала...то же самое (((( |
Отправлено: 09:42, 07-04-2008 | #16 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать пожалуйста...не бросайте меня ((((((((((((
АААААААААААААААААААААААА Сработало!!!!!! Но только для 2008, который стоит в Programs, для 2004 и 2007 не работает, разница - они стоят в Program Files.....почему так? |
Отправлено: 09:58, 07-04-2008 | #17 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать УРА!!!!!!!!!!!!!!!!!!!!!!! ОНИ ВСЕ РАБОТАЮТ!!!!!! Я просто перепечатала эти строки для реестра ручками и убрала пробел везде после R.
Petya V4sechkin - Вы супер!!!! СПАСИБО Вам большое!!!!!! |
Отправлено: 10:13, 07-04-2008 | #18 |
Сообщения: 53171
|
Профиль | Отправить PM | Цитировать Цитата la_vanille_ciel:
Рад, что смог помочь. |
|
Отправлено: 10:22, 07-04-2008 | #19 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать теперь оказывается, надо еще этот скрипт в автозагрузку сделать....
млин, я вообще в Vbs никак, хоть он и для начинающих... |
Отправлено: 11:11, 08-04-2008 | #20 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Как сделать через ГП автоматическое копирование библиотек в папку system32 ? | zegerman | Автоматическая установка приложений | 7 | 01-12-2009 16:15 | |
[решено] SVN, как добавить папку в svn-репозиторий без вложенных в папку файлов? | pingUIN | Хочу все знать | 1 | 03-11-2009 17:16 | |
Как организовать избирательное копирование в расшаренную папку? | MikeGl | Microsoft Windows NT/2000/2003 | 3 | 19-11-2008 00:31 | |
Копирование исходящей почты в Общую папку | Loki3D | Microsoft Exchange Server | 0 | 01-10-2007 18:11 | |
Копирование файлов с сервера | Alexeus | Microsoft Windows NT/2000/2003 | 7 | 19-05-2004 15:31 |
|