3 vbscripts in 1 vbscirpt ausführen

Set objFSO = CreateObject("Scripting.FileSystemObject")  
objFSO.MoveFile "C:\ProgramData\Lockheed Martin\Prepar3D v4\scenery.cfg" , "C:\zATi\scenery.cfg"  

Const ForReading = 1
Const TristateTrue = -1 'UniCode  

FilePath = "C:\zATi\scenery.cfg"  

Set oFSO = CreateObject("scripting.filesystemobject")  
Set oFile = oFSO.GetFile(FilePath)

Set oFileIn = oFSO.OpenTextFile(oFile.Path,ForReading,,TristateTrue)
Set oFileOut = oFSO.CreateTextFile(oFile.ParentFolder & "\ansi_" & oFile.Name,True,False)  

oFileOut.Write oFileIn.ReadAll

set wshell = CreateObject("Wscript.shell")  
wshell.run "C:\zATi\RemoveSceneryII.vbs"  

Set objFileSystem = Wscript.CreateObject("Scripting.FileSystemObject")  
objFileSystem.DeleteFile "C:\zATi\scenery.cfg" ,True  
Set objFilesystem = Nothing

CfgFilePath = "C:\zATi\ansi_scenery.CFG"  
Dim Record (10000)
ScenTitle = "Title=MyScenery"  
EntryNumRows = 6
	
Set fs = CreateObject("Scripting.FileSystemObject")   
Set a = fs.OpenTextFile(CfgFilePath, 1, FALSE) 
 

i = 1
Do While Not a.AtEndOfStream 
	aLine = a.ReadLine
	PosTitle=Instr(1, aLine, ScenTitle)
	
	If 	PosTitle <> 0 Then
		StartRow = i-1
		EndRow = StartRow + EntryNumRows - 1
	End If 
	Record(i) = aLine
	i = i+1 
Loop 

a.Close 

Set a = fs.CreateTextFile(CfgFilePath, True)
For n = 1 To i-1 
	If (n < StartRow) or (n > EndRow) then
		a.WriteLine(Record(n)) 
	End If
	
Next 
a.Close 

Set fso = CreateObject("Scripting.FileSystemObject")  
Set oFolder = fso.GetFolder("C:\zATi")  
Set oFiles = oFolder.files

For each file in oFiles
If Right(file.Name, 3) = "cfg" Then  
Set ANSIFile = fso.OpenTextFile(file.path, 1, False, False)
ANSIContent = ANSIFile.ReadAll
Set UNICODEFile = fso.OpenTextFile(file.path, 2, False, True)
UNICODEFile.Write ANSIContent
End If
Next

set wshell = CreateObject("Wscript.shell")  
wshell.run "C:\zATi\RemoveSceneryIII.vbs"  

Set objFSO = CreateObject("Scripting.FileSystemObject")  
objFSO.MoveFile "C:\zATi\ansi_scenery.cfg" , "C:\ProgramData\Lockheed Martin\Prepar3D v4\scenery.cfg"