(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
WinRAR 5.x Standard Licence - для частных лиц 1 лицензия
TeeChart for .NET with source code single license
IBM RATIONAL Rose Enterprise Floating User License + Sw Subscription & Support 12 Months
Radmin 3.x - Стандартная лицензия 1 компьютер
Allround Automation PL/SQL Developer - Unlimited license
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
CASE-технологии
Программирование на Microsoft Access
OS Linux для начинающих. Новости + статьи + обзоры + ссылки
Новые материалы
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Модульный метод создания сайтов (4)
Модульный метод создания (компоновки) сайтов на основе наборов типовых отлаженных функциональных...
 
Программист более не звучит гордо (16)
Согласен. Но никак это не относится к тем, кто программирует на ассемблере. Мы - редкость....
 
И я там был (2)
И я там был, мед пиво пил, по усам текло, а в рот не попало.
 
Уроки по JavaScript для новичков (3)
Всем привет! Вот хочу поделиться классным сайтом для начинающих изучать программирование на ...
 
Пример сайта, сделанного по технологии MVC (1)
Пример сайта, сделанного по технологии MVC - https://farpoint-nn.ru
 
 
 



    
rambler's top100 Rambler's Top100