Install Font from VB.NET

new_gist_file.vbs

sRoot = "\\dvdc\ITSoftware\ZebraLabels\CrystalFonts\"
Set shell = CreateObject("Shell.Application")
Set fonts = shell.Namespace(&H14)
Set oFSO = CreateObject("scripting.filesystemobject")
Set oFolder = oFSO.getfolder(sRoot)
For Each oFile In oFolder.files
    If oFile.Type = "Font file" Then
       fonts.CopyHere oFile.Path
    End If
Next
WScript.Echo "Hit any <Enter> to quit!"
WScript.StdIn.Read(1