Feel free to take apart the code..
Code:

$rc=SETOPTION('Explicit','On')
$rc=SETOPTION('NoVarsInStrings','On')
DIM $driver,$srvname,$srv,$loc,$
CLS
BREAK ON
$driver='HP LaserJet 4 Plus'
;$srvname='MACHINE'
IF NOT $srvname
$srvname=''
ELSE
'\\'+$srvname+'\'
ENDIF
$srv=$srvname+'HKLM\SYSTEM\CurrentControlSet\Control\Print\Environments\Windows NT x86\Drivers\Version-3\'+$driver
$loc=$srvname+'admin$$\system32\spool\drivers\w32x86\3\'
PVERSION($srv,$loc)
?'Process Complete..'
GET $

FUNCTION PVERSION($srv,$loc)
DIM $index,$keyname,$vindex,$value,$drv,$fl,$dvr,$hlp,$cfg
$index=0
DO
$keyname=EnumKey($srv,$index)
$vindex = 0
DO
$value=EnumValue($vindex,$srv)
?$value
$drv=ReadValue($srv+$keyname,'Data File')
FOR EACH $fl IN Split(ReadValue($srv+$keyname,'Dependent Files'),'|')
IF Len($fl)>0
?$fl
IF Exist($loc+$fl)
DEL $loc+$fl
ENDIF
ENDIF
NEXT
$index=$index+1
UNTIL Len($keyname)=0
$dvr=ReadValue($srv+$keyname,'Driver')
IF Exist($loc+$dvr)
DEL $loc+$dvr
ENDIF
$hlp=ReadValue($srv+$keyname,'Help File')
IF Exist($loc+$hlp)
DEL $loc+$hlp
ENDIF
$cfg=ReadValue($srv+$keyname,'Configuration File')
IF Exist($loc+$cfg)
DEL $loc+$cfg
ENDIF
$index = $index + 1
UNTIL Len($keyname)=0

;DELETE THE DRIVER
DelTree($srv)
ENDFUNCTION



Thanks,

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's