'Uni2Ansi.vbs
' A drag-and-drop script for converting Unicode files
' to ANSI text.

For Each Arg in WScript.Arguments
	fWrite Arg, fRead(Arg)
Next

Function fRead(FilePath)
	'Given the path to a file, will return entire contents
	' works with either ANSI or Unicode
	Const ForReading = 1, TristateUseDefault = -2, _
		DoNotCreateFile = False
	With CreateObject("Scripting.FileSystemObject")._
		OpenTextFile(FilePath, ForReading, _
		False, TristateUseDefault)
		fRead = .ReadAll: .Close
	End With
End Function

Sub fWrite(FilePath, sData)
	'writes sData to FilePath
	With CreateObject("Scripting.FileSystemObject")._
		OpenTextFile(FilePath, 2, True)
		.Write sData: .Close
	End With
End Sub