' Determine script location for VBScript
Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim sScriptDir : sScriptDir = oFSO.GetParentFolderName(WScript.ScriptFullName)

Set eng = CreateObject("GEngine.GEngine")
Set prn = eng.Printers.Add("SoftENGINE Preview")
prn.Import sScriptDir & "\BwPreviewPrn.dat", True

Wscript.Echo "Added and configured the printer 'SoftENGINE Preview'"