The true ultimate font install for Windows 7 and XP vbs

(OLD post new link below)
Install-font-vbs

I did not create this solely on my own I borrowed the majority of it from one post and added some small things to make it PERFECT. kinda
 

Option Explicit
' Installing multiple Fonts in Windows 7
' http://www.cloudtec.ch 2011
' Edited by Jason Dahmen

Dim objShell, objFSO, wshShell
Dim strFontSourcePath, objFolder, objFont, objNameSpace, objFile

Set objShell = CreateObject("Shell.Application")
Set wshShell = CreateObject("WScript.Shell")
Set objFSO = createobject("Scripting.Filesystemobject")

strFontSourcePath = "\\Sever\Folder\Font_Folder\"
If objFSO.FolderExists(strFontSourcePath) Then
	If objFSO.FolderExists("C:\Users\") Then
		' Start Windows 7/Vista
		Set objNameSpace = objShell.Namespace(strFontSourcePath)
		Set objFolder = objFSO.getFolder(strFontSourcePath)
			For Each objFile In objFolder.files
				If LCase(right(objFile,4)) = ".ttf" OR LCase(right(objFile,4)) = ".otf" Then
					Set objFont = objNameSpace.ParseName(objFile.Name)
					If objFSO.FileExists("C:\WINDOWS\Fonts\" & objFile.Name) = False Then
						objFont.InvokeVerb("Install")
						Set objFont = Nothing
					Else
					End If
				End If
			Next
	Else
		' Start Windows XP
		Set objNameSpace = objShell.Namespace(strFontSourcePath)
		Set objFolder = objFSO.getFolder(strFontSourcePath)
			For Each objFile In objFolder.files
				If LCase(right(objFile,4)) = ".ttf" OR LCase(right(objFile,4)) = ".otf" Then
					Set objFont = objNameSpace.ParseName(objFile.Name)
					If objFSO.FileExists("C:\WINDOWS\Fonts\" & objFile.Name) = False Then
						objFSO.CopyFile "\\Sever\Folder\Font_Folder\*", "c:\windows\fonts\"
						Set objFont = Nothing
					Else
					End If
				End If
			Next
	End If
Else
	Wscript.Echo "Font Source Path does not exists"
End IF

This will detect for Windows 7 or Windows XP, and then connect to your Fonts directory. It will scan the files in the font directory and check to see if it already in the fonts folder. If it is, it will skip it, if not it will install/copy it.

Hope this makes sense.