(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 

Конференция "WEB-программирование"

Обсуждение вопросов связанных с web-разработкой: JScript, VBScript, DHTML..., Perl, PHP, ASP...

 
 
Добавить сообщение »

Тема: VBScript не работает полностью

Автор:  Игорь Дата: 03.11.2006 17:15
Alexkz пишет 03.10.2006 16:58:
>Доброе время суток.
>
>Сам скрип исполняется но не исполнятеся пару строчек в скрипте в частности не исполняется вот эта строчка -
>
>WSHShell.Run "cmd.exe /k reg import \\almw3fs2\install_avtty$\Reg\AvTTy.reg", 0 .
>
>А, когда я запускаю этот скрипт ручками то все ок.
>
>вот листинг скрипта


Получается, что вы из скрипта хотите исправить реестр. Вообще подоьная операция эксплорером обычно запрещается политикой безопасности
Надо смотреть политики безопасности, в том числе и в эксплорере.
Ответить на сообщение »
 
Автор:  Тёма Дата: 05.10.2006 13:50
антивирус стоит? он может блокировать некоторые команды на исполнение приложениями...
Ответить на сообщение »
 
Автор:  Alexkz Дата: 03.10.2006 16:58
Доброе время суток.

Сам скрип исполняется но не исполнятеся пару строчек в скрипте в частности не исполняется вот эта строчка -

WSHShell.Run "cmd.exe /k reg import \\almw3fs2\install_avtty$\Reg\AvTTy.reg", 0 .

А, когда я запускаю этот скрипт ручками то все ок.

вот листинг скрипта
_________________________________________________


'*******************************************************************************

Dim FileName

On Error resume Next

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
set WSHShell = WScript.CreateObject("WScript.Shell")

' Created DIR

Set objFolder = objFSO.CreateFolder("C:\Program Files\AvTTy")
Set objFolder = objFSO.CreateFolder("C:\Program Files\AvTTy\FONTS")

' Copy files

objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\AvTTY.exe" , "C:\Program Files\AvTTy\"
objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\Concorde.lnk" , "C:\Program Files\AvTTy\"
objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\ConcordeTest.lnk" , "C:\Program Files\AvTTy\"
objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\putty.GID" , "C:\Program Files\AvTTy\"
objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\putty.hlp" , "C:\Program Files\AvTTy\"
objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\FONTS\Term3.FON" , "C:\Program Files\AvTTy\FONTS\"


' Determination Current User


UserName = WshShell.ExpandEnvironmentStrings("%username%")


' Copy Link

objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\Concorde.lnk" , "C:\Documents and Settings\" & UserName & "\Desktop\", OverwriteExisting
objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\Concorde.lnk" , "C:\Documents and Settings\" & UserName & "\Application Data\Microsoft\Internet Explorer\Quick Launch\", OverwriteExisting

' Determination Windows Directory

WD = WshShell.ExpandEnvironmentStrings("%systemroot%")

' Procedure FONT

Set fso = CreateObject("Scripting.FileSystemObject")

FileName = WD & "\fonts\Term3.fon"

if (fso.FileExists(FileName)) Then
objFSO.DeleteFile FileName

Else

objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\FONTS\Term3.FON" , WD & "\fonts\Term3.fon"

End If

' Copy Font

objFSO.CopyFile "\\almw3fs2\install_avtty$\AvTTy\FONTS\Term3.FON" , WD & "\fonts\Term3.fon"


' Import Reg

WSHShell.Run "cmd.exe /k reg import \\almw3fs2\install_avtty$\Reg\AvTTy.reg", 0

' Control Install on Computers

Set objComputer = CreateObject("Shell.LocalMachine")

CompName = objComputer.MachineName

'Wscript.Echo "Computer name: " & CompName

Set fso = CreateObject("Scripting.FileSystemObject")

Set tf = fso.CreateTextFile("\\almw3fs2\install_avtty$\Install\" & CompName, True)

_______________________________________________________


P. S. В скриптинги начинающий тут явно есть ошибки
Ответить на сообщение »
 

Добавить сообщение »

 Распечатать »
 Правила публикации »
   
 Рекомендовать »  
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Allround Automation PL/SQL Developer - 5 user license
IBM RATIONAL Clearcase Floating User License + Sw Subscription & Support 12 Months
IBM RATIONAL Quality Manager Quality Professional Authorized User Single Install License + Sw Subscription & Support 12 Months
ESET NOD32 Smart Security - продление лицензии на 2 года на 3ПК, Ключ
IBM DOMINO ENTERPRISE CLIENT ACCESS LICENSE AUTHORIZED USER LICENSE + SW SUBSCRIPTION & SUPPORT 12 MONTHS
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Adobe Photoshop: алхимия дизайна
ЕRP-Форум. Творческие дискуссии о системах автоматизации
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Программист более не звучит гордо (16)
Согласен. Но никак это не относится к тем, кто программирует на ассемблере. Мы - редкость....
 
И я там был (2)
И я там был, мед пиво пил, по усам текло, а в рот не попало.
 
Уроки по JavaScript для новичков (3)
Всем привет! Вот хочу поделиться классным сайтом для начинающих изучать программирование на ...
 
Пример сайта, сделанного по технологии MVC (1)
Пример сайта, сделанного по технологии MVC - https://farpoint-nn.ru
 
Ищу кодера (1)
Добрый день! Ищу кодера который сможет сделать копии сайтов. Сколько будет стоить скопировать...
 
 
 



    
rambler's top100 Rambler's Top100