HP Designjet Universal Print Driver - System Administrator's Guide

HP DJ UPD SAG
35
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' This function recovers information from Driver instalation path
' Input Params:
' - path: The Path of the instalation files
' Output Parms:
' - infFile: The INF full path file
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function GetInfFile(path,platform,configDriverSubfolder,infFile)
Dim FSO, objDir, aItem, found, subpath
Dim WshShell
found = false
if path <> "" then
path = path + "\"
else
Set WshShell = WScript.CreateObject("WScript.Shell")
path = wshshell.currentdirectory + "\" + configDriverSubfolder + "\"
end if
Set FSO = CreateObject("Scripting.FileSystemObject")
if Not FSO.FolderExists(path) then
wscript.echo "Folder does not exist"
wscript.echo "Installation not done"
wscript.quit(1)
end if
Set objDir = FSO.GetFolder(path)
For Each aItem In objDir.Files
If LCase(Right(Cstr(aItem.Name), 3)) = "inf" Then
infFile = path + aItem.Name
found = true
exit for
end if
Next
if found = false then
' path does not contain inf. Let's add x86 and x64 subfolders
if platform = "x86" then
subpath = path + "win2k_xp_vista\"
else
subpath = path + "winxp_vista_x64\"
end if
if Not FSO.FolderExists(subpath) then
wscript.echo "No inf found either in " + path + " or in " + subpath
wscript.echo "Installation not done"
wscript.quit(1)
end if
Set objDir = FSO.GetFolder(subpath)
For Each aItem In objDir.Files
If LCase(Right(Cstr(aItem.Name), 3)) = "inf" Then