Simple WebApp to let users add a network printer RRS feed

  • Question

  • Hi guys,

    I'm very new to the soft side of networking. I am trying to create a script that lets users select a printer from a predetermined list to add to their machine. Also, I would love to let them then select one to be the default. This is all I could come up with and I would appreciate any help I can gather.


    <SCRIPT Language="VBScript">
        Sub Window_Onload
            strComputer = "."
            Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
            Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")
            For Each objPrinter in colPrinters
                strPrinter = objPrinter.Name
                Set objOption = Document.createElement("OPTION")
                objOption.Text = strprinter
                objOption.Value = strPrinter
        End Sub
        Sub SetDefault
            strPrinter = AvailablePrinters.Value
            Set WshNetwork = CreateObject("Wscript.Network")
            WshNetwork.SetDefaultPrinter strPrinter
            Msgbox strprinter & " has been set as your default printer."
        End Sub
    <select size="5" name="AvailablePrinters"></select><p>
    <input type="button" value="Set as Default" onClick="SetDefault">

    Monday, October 31, 2011 1:27 PM


All replies