I assign printers based on computer OU membership. Basically, it's all done using the ADSI extensions.
You can get the full computer path from ADSystemInfo.ComputerName and then check for the presence of particular OUs.
dim oAdSysInfo, sCompPath
set oAdSysInfo = CreateObject("AdSystemInfo")
sCompPath = oAdSysInfo.ComputerName
if InStr(1, sCompPath, "OU=ICT Suite", 1) then
' Code here to map printer(s) for ICT Suite