(defun get-graphics-string()
    (let (l (s (open (format nil "| cscript /nologo \"~a\\..\\startup\\graphik.vbs\"" (oli::sd-sys-getenv "SDCORPCUSTOMIZEDIR")) :direction :input)))
		(setf l (read-line s nil)) 
		(remove #\Return l)  
		(close s)
		l
	)
)

(pprint (get-graphics-string))