Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("Printer.txt", True)
For each Item in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_Printer")
outFile.WriteLine("Description: " & Item.Description)
outFile.WriteLine("")
Next
outFile.Close