' 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 WWPREVIEW")
prn.Import sScriptDir & "\BwPreviewPrn.dat", True

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