VBScript to Delete printers begining with AS, AM, AB and NA...

Hi there,
I am using the code below wich is a snippet of a larger script. It basically deletes all Network Printers wich was working great until laptop users starting networking their homes and adding network printers of their own.
Is there anyway I can do the same but delete only printers that begin with AS, AM, AB and NA OR even have a text file on the server to refer to which has a list of company network printer names?
Your assistance would be great appreciated.

Dim objFileSystem, objNetwork, objShell, objLogFile, objWMIService, colInstalledPrinters, objPrinter
Dim strTemp, strIPAddress, strSubnet, strServer, strComputer
Dim arrTemp
 
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("WScript.Shell")
 
strTemp = objShell.ExpandEnvironmentStrings("%APPDATA%")
Set objLogFile = objFileSystem.OpenTextFile(strTemp & "\logon.log", 2, True, 0)
 
strIPAddress = GetDNSAddresses()
arrTemp = Split(strIPAddress, ".")
 
strSubnet = arrTemp(0) & "." & arrTemp(1) & "." & arrTemp(2)
 
strServer = "\\AUSYDLDC01"
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colInstalledPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer Where Network = True")
 
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next
 
MsgBOx "All Network Printers have been disconnected"

Select allOpen in new window