'Script Name:      del_ms_doc_writer.vbs
'Script Purpose:   Deletes MS Document Writer Printer on logon
'Updated:          February 10, 2008
' -----------------------------------------------------------------' 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("SELECT * FROM Win32_Printer")
For Each objPrinter in colInstalledPrinters
IF objPrinter.Name = "Microsoft Office Document Image Writer" THEN
objPrinter.Delete_
END IF
Next