VBscript

[Garfield Профиль]

Доброе время суток.

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

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. В скриптинги начинающий тут явно есть ошибки