(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
Microsoft SQL CAL 2017 Sngl OLP 1License NoLevel UsrCAL
Crowd Commercial 50 Users
ESET NOD32 SMALL Business Pack newsale for 3 user
VideoStudio Ultimate 2018 ML. Электронный ключ
DevExpress / Universal Subscription
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Один день системного администратора
Adobe Photoshop: алхимия дизайна
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Сайт инструмент (1)
Я бывший программист пользовался 1 сайтом проверенным он мне действительно помог я блогодоря...
 
Ищу кодера (2)
Добрый день! Ищу кодера который сможет сделать копии сайтов. Сколько будет стоить скопировать...
 
Подключение JavaScript (305)
Всем привет! Я подключаю JavaScript нижеприведенным образом. Код: <script...
 
Введение в WML (3)
если все странички пишутся на wml, почему опубликованы они с расширением php?
 
Модульный метод создания сайтов (5)
Модульный метод создания (компоновки) сайтов на основе наборов типовых отлаженных функциональных...
 
 
 



    
rambler's top100 Rambler's Top100