(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
Quest Software. SQL Navigator Professional Edition
VCL Subscription
Rational ClearCase Multisite Floating User License
ESET NOD32 Антивирус - продление лицензии на 2 года на 3ПК
Panda Gold Protection - ESD версия - на 1 устройство - (лицензия на 1 год)
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
CASE-технологии
Программирование на Microsoft Access
Мир OLAP и Business Intelligence: новости, статьи, обзоры
Новости мира 3D-ускорителей
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Программист более не звучит гордо (15)
Согласен. Но никак это не относится к тем, кто программирует на ассемблере. Мы - редкость....
 
Уроки по JavaScript для новичков (2)
Всем привет! Вот хочу поделиться классным сайтом для начинающих изучать программирование на ...
 
Пример сайта, сделанного по технологии MVC (1)
Пример сайта, сделанного по технологии MVC - https://farpoint-nn.ru
 
Ищу кодера (1)
Добрый день! Ищу кодера который сможет сделать копии сайтов. Сколько будет стоить скопировать...
 
Нужен софт для массового заполнения форм "ВАКАНСИИ" на сайте (1)
Здравствуйте! Нужен софт для массового заполнения форм "ВАКАНСИИ" на сайте http://rjob.ru,...
 
 
 



    
rambler's top100 Rambler's Top100