VBスクリプトを使って特定ファイルの拡張子を取得する方法

VBスクリプトを使って特定ファイルの拡張子を取得する方法です。
例えば以下の方法だと、[C:\Program Files\Internet Explorer\iexplore.exe]の情報から拡張子情報[exe]を取得します。

Wscript.Echo GetExtensionName("C:\Program Files\Internet Explorer\iexplore.exe")

Function GetExtensionName(PATH)
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	GetExtensionName = objFSO.GetExtensionName(PATH)
	Set objFSO = Nothing
End Function