脚本错误-Shockwave 11.6.1629 [英] Script Error - Shockwave 11.6.1629

问题描述

我正在尝试运行此脚本来安装Shockwave 11.6.1.629，但是出现以下错误:

I am trying to run this script to install shockwave 11.6.1.629, but I get the following error:

Windows Script Host
Script:	F:\Files\Shockwave Player 11616269\Shockwave Player.vbs
Line:	71
Char:	2
Error:	The system cannot find the file specified
Code:	800700002	
Source: (null

'=========================================================================
'
' NAME: Shockwave Player 1161629
'
' AUTHOR: Michael Roberts Desktop\Packaging Engineer 
'
' DATE: 08/30/2011
'
' COMMENT: 	This script will install Shockwave Player 1161629.
' 			If the installation is successful or failed the script will
'			copy a log file to a network share.
'==========================================================================

Option Explicit

Const OverwritExisting = True
Const ForWriting = 2
Const For_Appending = 8

Public wshShell, objFSO, sMSIfile, strComputer, objNetwork, statusFlag

Set objNetwork = WScript.CreateObject("WScript.Network")
statusFlag =""

Dim strlog : strlog = "C:\Logs\" & objNetwork.UserName & "." & objNetwork.ComputerName & "." & "Shockwave.log" 'Set log file
Dim netPath1 : netPath1 = "\\??.???.???.???\zen\LOGS\Adobe_Shockwave_1116629\Successful\" 'Target network
Dim netPath2 : netPath2 = "\\??.???.???.???\zen\LOGS\Adobe_Shockwave_1116629\Failure\" 'Target network

Dim strCommand, retErrcode, objFolder, sFolder, sComnd

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

If objFSO.FolderExists("C:\Logs") Then
	sFolder = 1
Else
	'Create Logs folder if it does not exist
	Set objFolder = objFSO.CreateFolder("C:\Logs")
	sFolder = 0
End If

Dim objTextFile : Set objTextFile = objFSO.CreateTextFile(strlog, True)
	objTextFile.Close
Dim objFile : Set objFile = objFSO.GetFile(strlog)
Dim TS : Set TS = objfile.OpenAsTextStream (FOR_APPENDING)

If sFolder = 1 Then
 	logaction("C:\Logs folder exists")
Else
 	logaction("C:\Logs folder DOES NOT exist .. creating Logs folder.")
End If

sMSIfile = "sw_lic_full_installer"
logaction("The " & sMSIfile & " MSI (sw_lic_full_installer) is beginning its installation.")
RunHiddenCommand "msiexec /i """ & Replace(WScript.ScriptFullName, "\" & WScript.ScriptName, "") & "\" & sMSIfile & ".msi""" & " /qb!- REBOOT=ReallySuppress ALLUSERS=1 /l*v " & """C:\Logs\" & sMSIfile & ".log"""

'Un-install old versions of Adobe Shockwave with un-install utility
sMSIfile = "sw_uninstaller.msi"
RunHiddenCommand Replace(WScript.ScriptFullName, "\" & WScript.ScriptName, "") & "\" & sMSIfile & "sw_unistaller.msi.exe.exe -uninstall"

set objFSO = Nothing 
set objTextFile = Nothing  
set objFile = Nothing 
set TS = Nothing
Set wshShell = Nothing


Sub RunHiddenCommand(strCommand)
'	On Error Resume Next

	retErrcode = wshShell.Run (strCommand, 0, True)
	
	If retErrcode = 0 Then
		logaction("The " & sMSIfile & " process completed sucessfully. The return error code is: " & retErrcode)
		statusFlag = "Successful"
	Else
		statusFlag = "Failure"
	End If
End Sub

Sub logaction(strtext)
	TS.WriteLine(now & vbtab & strtext)
End Sub 

Wscript.Quit

推荐答案

第71行是RunHiddenCommand子例程.您的执行路径之一无效.

将echo放在RunHiddenCommand中，然后在命令行上运行脚本以查看哪个脚本.

Line 71 is the RunHiddenCommand subroutine. One of your execution paths is invalid.

Put an echo in RunHiddenCommand and run the script on the command line to see which one.

这篇关于脚本错误-Shockwave 11.6.1629的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！