In the mean time you can use the VBS code converted to kix:
 Code:
Dim $net
$net = CreateObject("wscript.network")
$net.SetDefaultPrinter("\\server\ict colour")