[Jhanvy]

Sub GO()

	'Create the ASPPrinter object
	Set Prn=CreateObject("ASPPrinterCOM.ASPPrinter")
	'Call the GetPrinters method
				 Printers=Prn.GetPrinters(PrintersCount)
	'P = PrintersCount & " printers were detected on your system:" 
	For i=0 To Ubound(Printers)
dim opt
opt=document.createElement("option")
' Add an Option object to Drop Down/List Box
opt.text = Printers(i)
'MsgBox "OPTION"&opt.text
 opt.value = Printers(i) 
 document.getElementById"DropDownList1").options.add(opt)		
'Assign text and value to Option object
Next
Set Prn=Nothing
End Sub

[Jayman]

Moved to ASP.NET.

[ajwsurfer]

This looks good except for the typo:

document.getElementById"DropDownList1").options.add(opt) 

'should be 

document.getElementById("DropDownList1").options.add(opt) 

I have VS 2008 and it seems that the line would work like this:

  Sub GO()

	'Create the ASPPrinter object
	Set Prn=CreateObject("ASPPrinterCOM.ASPPrinter")
	'Call the GetPrinters method
	Printers=Prn.GetPrinters(PrintersCount)
	'P = PrintersCount & " printers were detected on your system:"
	For i=0 To Ubound(Printers)
			
		document.getElementById("DropDownList1").Items.Add(Printers(i))
	
	 Next
	 Set Prn=Nothing
End Sub

But I would try to build a string of printer names, and display them to the screen first, just to make sure that they are really there.