Archives and File Groups in the App-V Scripts Folder

' The archive will be copied from the “Scripts” directory 
' into the Temp directory and unpacked there
' Thereafter a Batch script will start that installs the files
' Andreas Nick 2016
ZipArchiv = "archiv.zip"
TempFolder = "tempinst" 'extract here
ZInstallBatch = Install.cmd”

Set wshShell = CreateObject( "WScript.Shell" )
Set wshSystemEnv = wshShell.Environment( "SYSTEM" )
set fso = CreateObject("Scripting.FileSystemObject")
'Get Environment
Temp = wshShell.ExpandEnvironmentStrings( wshSystemEnv( "TEMP" ))
CurrentDirectory = fso.GetAbsolutePathName(".")
ArchivePath = CurrentDirectory & "\" & ZipArchiv
Set wshSystemEnv = Nothing
Set wshShell     = Nothing
Set fso       = Nothing
'Extract Archive
ZipFile=ArchivePath
wscript.echo  "ZIP:" &  ZipFile
ExtractTo = temp & "\" & TempFolder
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(Temp) Then
    fso.CreateFolder(Temp)
End If
fso.CopyFile ZipFile, temp & "\"
If Not fso.FolderExists(ExtractTo) Then
    fso.CreateFolder(ExtractTo)
End If
'Extract
sourceFile = fso.GetAbsolutePathName(temp & ZipArchiv)
destFolder = fso.GetAbsolutePathName(ExtractTo)
 
Set objShell = CreateObject("Shell.Application")
Set FilesInZip=objShell.NameSpace(sourceFile).Items()
objShell.NameSpace(destFolder).copyHere FilesInZip, 16
 
'Execute installer 
Set WshShell = WScript.CreateObject("WScript.Shell")
cmdpath = ExtractTo & "\" & ZInstallBatch
wscript.echo cmdpath
Wshshell.Run "%comspec% /c " & cmdpath, 0, True
fso.DeleteFolder(ExtractTo)
fso.DeleteFile(temp & "\" & ZipArchiv)
Set WshShell= Nothing
Set fso = Nothing
Set objShell = Nothing
Set FilesInZip = Nothing

To finish, the script must go in the DeploymentConfig.xml.

    
     
    < MachineScripts>
      < AddPackage>
        < Path>CMD.EXE
        < Arguments>/c cscript.exe 
			 [{AppVPackageRoot}]\..\Scripts\Install.vbs 
        < Wait RollbackOnError="true" Timeout="300" />
      < /AddPackage>
    < /MachineScripts>