' NAME: EnableAero.vbs
'
' AUTHOR: Alan at akaplan dot com.
' DATE  : 1/14/2013
'
' COMMENT: This enables the Aerolite them in Windows 8
'
'==========================================================================
Option Explicit

dim fso: set fso = CreateObject("Scripting.FileSystemObject")
Dim strNewFile, strOrigFile, strWinFolder, strThemesFolder 

strWinFolder = FSO.GetSpecialFolder(0)
strThemesFolder = strWinFolder & "\Resources\Themes\"
strOrigFile = strThemesFolder & "aero\aero.theme"

If Not fso.FileExists(strOrigFile) Then
	MsgBox "Could not find " & strOrigFile,vbCritical + vbOKOnly,"Failed"
	WScript.Quit(100)
End If 

strNewFile = strThemesFolder & "aerolite.theme"
fso.MoveFile strOrigFile, strNewFile

SRLine strNewFile 


Sub SRLine(strReadFile, strSearch,StrReplace, strWriteFile)
	Dim arrFileLines()
	Dim i, objFile, l, StrLine 
	i = 0
	Set objFile = FSO.OpenTextFile(strFileName, 1)
	
	Do Until objFile.AtEndOfStream
	     Redim Preserve arrFileLines(i)
	     arrFileLines(i) = objFile.ReadLine
	     i = i + 1
	Loop
	objFile.Close
	
	strSearch = LCase(strSearch)
	
	For l = 0 To UBound(arrFileLines)
		StrLine = arrFileLines(l)
		If InStr(LCase(strLine),strSearch) > 0 Then 
			StrLine = Replace(LCase(strLine),strSearch,strReplace)
		End If 	
	Next
	Set objFile = Nothing 
End Sub