I have managed to find a workaround which seems to be working;
Thanks all!
$printername = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device")
$printername = StringTrimRight($printername, 15)
$RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\" & $printername & "\"
$RegKey2 = RegRead($regkey,"Port")
MsgBox(0, "Your Printer Port is ", $Regkey2)