Re: VB.Net Print Queue Enumeration - Visual Basic Discussion Boards

SQLDiablo17-Apr-07 5:47

17-Apr-07 5:47

I am writing an application that will globally add a print queue to a target PC. I can get lists from Active Directory of my print servers and my host PCs. What I'd like to do is have the user click on the print server, and my application will enumerate all print queues on that server and list them. The user will then select a print queue and a remote host, and click a button to install the printer. I can do everything except enumerate the print queues on the print server. If someone could please help with this, I'd greatly appreciate it Big Grin | :-D

. I am coding with Visual Studio .Net 2005 and VB .Net.

Thanks,
DotCom
Help Desk Analyst
(programmer on the side)

Re: VB.Net Print Queue Enumeration

SQLDiablo17-Apr-07 5:49

SQLDiablo

17-Apr-07 5:49

As a PS to the above, I have been able to find examples in C#, but am not able to port them to VB.

DotCom
Help Desk Analyst
(programmer on the side)

Re: VB.Net Print Queue Enumeration

Tarakeshwar Reddy17-Apr-07 6:01

Tarakeshwar Reddy

17-Apr-07 6:01

NFDotCom wrote:
but am not able to port them to VB.

Which part of the c# code are you not able to port to VB? you can post the part your facing difficulty and someone could help

Re: VB.Net Print Queue Enumeration

Tim Carmichael17-Apr-07 6:03

Tim Carmichael

17-Apr-07 6:03

Search for 'WMICodeCreator'; I downloaded it from Microsoft and used it to do exactly what you are asking for.

I was able to get a list of printers on our print server and other needed information.

Tim

Re: VB.Net Print Queue Enumeration

SQLDiablo18-Apr-07 2:53

SQLDiablo

18-Apr-07 2:53

Awesome, thanks Tim! Smile | :)

I'll check it out, and see if that works for me.

DotCom
Help Desk Analyst
(programmer on the side)

Re: VB.Net Print Queue Enumeration

SQLDiablo18-Apr-07 3:16

SQLDiablo

18-Apr-07 3:16

Thanks Tim, that will work for me. That program is going to save me from so many headaches. Big Grin | :-D

Re: VB.Net Print Queue Enumeration

Tim Carmichael18-Apr-07 3:28

Tim Carmichael

18-Apr-07 3:28

Good... the power of a community working together...

Re: VB.Net Print Queue Enumeration

SQLDiablo18-Apr-07 7:14

SQLDiablo

18-Apr-07 7:14

Ok, I almost have it working, except I'm now get a NullReferenceException error (Object not set to an instance of an object) on the line marked with a "-->". The error is directly following this paragraph, and my sub procedure is below the error. I call the sub like this: GetPrinters("name-of-server"). If you could help me out, I'd really appreciate it.

Error details:

<br />
System.NullReferenceException was unhandled<br />
  Message="Object reference not set to an instance of an object."<br />
  Source="ResHelp Troubleshooter"<br />
  StackTrace:<br />
       at ResHelp.frmAddPrinter.GetPrinters(String strServer) in C:\Users\adamb\Desktop\ResHelp Troubleshooter\ResHelp Troubleshooter\frmAddPrinter.vb:line 68<br />
       at ResHelp.frmAddPrinter.lbxServer_SelectedIndexChanged(Object sender, EventArgs e) in C:\Users\adamb\Desktop\ResHelp Troubleshooter\ResHelp Troubleshooter\frmAddPrinter.vb:line 80<br />
       at System.Windows.Forms.ListBox.OnSelectedIndexChanged(EventArgs e)<br />
       at System.Windows.Forms.ListBox.WmReflectCommand(Message& m)<br />
       at System.Windows.Forms.ListBox.WndProc(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)<br />
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.UnsafeNativeMethods.SendMessage(HandleRef hWnd, Int32 msg, IntPtr wParam, IntPtr lParam)<br />
       at System.Windows.Forms.Control.SendMessage(Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.Control.ReflectMessageInternal(IntPtr hWnd, Message& m)<br />
       at System.Windows.Forms.Control.WmCommand(Message& m)<br />
       at System.Windows.Forms.Control.WndProc(Message& m)<br />
       at System.Windows.Forms.ScrollableControl.WndProc(Message& m)<br />
       at System.Windows.Forms.ContainerControl.WndProc(Message& m)<br />
       at System.Windows.Forms.Form.WndProc(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)<br />
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.UnsafeNativeMethods.CallWindowProc(IntPtr wndProc, IntPtr hWnd, Int32 msg, IntPtr wParam, IntPtr lParam)<br />
       at System.Windows.Forms.NativeWindow.DefWndProc(Message& m)<br />
       at System.Windows.Forms.Control.DefWndProc(Message& m)<br />
       at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)<br />
       at System.Windows.Forms.Control.WndProc(Message& m)<br />
       at System.Windows.Forms.ListBox.WndProc(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)<br />
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)<br />
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Form.ShowDialog(IWin32Window owner)<br />
       at System.Windows.Forms.Form.ShowDialog()<br />
       at ResHelp.frmMain.btnGo_Click(Object sender, EventArgs e) in C:\Users\adamb\Desktop\ResHelp Troubleshooter\ResHelp Troubleshooter\frmMain.vb:line 15<br />
       at System.Windows.Forms.Control.OnClick(EventArgs e)<br />
       at System.Windows.Forms.Button.OnClick(EventArgs e)<br />
       at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)<br />
       at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)<br />
       at System.Windows.Forms.Control.WndProc(Message& m)<br />
       at System.Windows.Forms.ButtonBase.WndProc(Message& m)<br />
       at System.Windows.Forms.Button.WndProc(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)<br />
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)<br />
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)<br />
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)<br />
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)<br />
       at System.Windows.Forms.Form.ShowDialog(IWin32Window owner)<br />
       at System.Windows.Forms.Form.ShowDialog()<br />
       at ResHelp.modMain.main() in C:\Users\adamb\Desktop\ResHelp Troubleshooter\ResHelp Troubleshooter\modMain.vb:line 11<br />
       at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)<br />
       at System.Runtime.Hosting.ManifestRunner.Run(Boolean checkAptModel)<br />
       at System.Runtime.Hosting.ManifestRunner.ExecuteAsAssembly()<br />
       at System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext, String[] activationCustomData)<br />
       at System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext)<br />
       at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssemblyDebugInZone()<br />
       at System.Threading.ThreadHelper.ThreadStart_Context(Object state)<br />
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)<br />
       at System.Threading.ThreadHelper.ThreadStart()<br />

VB Code to the sub procedure:

<br />
    Private Sub GetPrinters(ByVal strServer As String)<br />
        Try<br />
            Dim connection As New ConnectionOptions<br />
            connection.Username = Me.txtUsername.Text<br />
            connection.Password = Me.txtPassword.Text<br />
            connection.Authority = "ntlmdomain:" + My.Settings.Item("domain").ToString<br />
<br />
            Dim scope As New ManagementScope("\\" + strServer + "\root\CIMV2", connection)<br />
            scope.Connect()<br />
<br />
            Dim query As New ObjectQuery("SELECT * FROM Win32_Printer")<br />
<br />
            Dim searcher As New ManagementObjectSearcher(scope, query)<br />
<br />
            Me.lbxPrinterShare.Items.Clear()<br />
<br />
            For Each queryObj As ManagementObject In searcher.Get()<br />
                'If Not (queryObj("ShareName").ToString = "''" Or queryObj("ShareName").ToString = "" Or queryObj("ShareName").ToString = Nothing) Then<br />
-->             Me.lbxPrinterShare.Items.Add(queryObj("ShareName").ToString)<br />
                'End If<br />
            Next<br />
        Catch err As ManagementException<br />
            MessageBox.Show("An error occurred while querying for WMI printer data: " & err.Message)<br />
        Catch unauthorizedErr As System.UnauthorizedAccessException<br />
            MessageBox.Show("Connection error (user name or password might be incorrect): " & unauthorizedErr.Message)<br />
        End Try<br />
    End Sub<br />

DotCom
Help Desk Analyst
(programmer on the side)

Re: VB.Net Print Queue Enumeration

Tim Carmichael18-Apr-07 7:31

Tim Carmichael

18-Apr-07 7:31

Well, I'm not sure...
Normally, I get the 'Name' attribute, but, my code is written to allow the user to select the desired attributes. When I selected 'ShareName', I had no errors.
Have you confirmed that you can get the sharename using the WMICodeCreator?

Re: VB.Net Print Queue Enumeration

SQLDiablo18-Apr-07 7:52

SQLDiablo

18-Apr-07 7:52

Yeah, and the crazy thing is that I can see the list of sharenames in the creator, but when I execute the code (from the creator), it gives an access denied error, and fails.

DotCom
Help Desk Analyst
(programmer on the side)

Re: VB.Net Print Queue Enumeration

SQLDiablo18-Apr-07 8:55

SQLDiablo

18-Apr-07 8:55

Ok, I figured it out. Some printers don't have share names (because they're a local printer, or for some other reason). Those printers that don't have share names would return a null result for their share name, and that is what was causing the error. I changed the query to have a where clause: "WHERE ShareName IS NOT NULL", and that fixed the issue.

how to insert an image from VB to an access database

EvScott17-Apr-07 4:12

EvScott

17-Apr-07 4:12

Hi could anyone please advise on how to insert an image from a VB app into an access record in a table.
thanks
ES

Re: how to insert an image from VB to an access database

Sathesh Sakthivel17-Apr-07 5:27

Sathesh Sakthivel

17-Apr-07 5:27

this may help you.

Regards,

Satips.

design the UI

ciacia17-Apr-07 4:07

ciacia

17-Apr-07 4:07

I want to design an user interface where i want to change th color of the title bar of form along with the back color of the max and min buttons? how do i do that/

ciacia

Re: design the UI

MatrixCoder17-Apr-07 5:18

MatrixCoder

17-Apr-07 5:18

This article might help.

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

add data to database

peteyshrew17-Apr-07 4:03

peteyshrew

17-Apr-07 4:03

i think i have made the connection to the database. i need to know how to write the code to add and ID, surname and forename to the database. don't have a clue how to do this. can you help me?

(this is the connection)

Imports System.Data.OleDb
Public Class cust
Public conn As OleDbConnection
Public comm As OleDbCommand
Public dr As OleDbDataReader
Public da As OleDbDataAdapter

Private Sub cust_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn = New OleDbConnection 'establishes that conn is a new connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\PCbank.mdb" 'the name of the connection (name of the database on the end)
conn.Open() 'opens the connection

comm = New OleDbCommand 'establishes that comm is a new command
comm.Connection = conn 'the connection for the command is the connection specified
comm.CommandType = CommandType.Text 'the commands are in text

End Sub

Re: add data to database

Tarakeshwar Reddy17-Apr-07 4:52

Tarakeshwar Reddy

17-Apr-07 4:52

I guess a Google[^] would have returned you a lot of results. Have a look at Link1[^] Link 2[^]

Re: add data to database

manni_n17-Apr-07 6:56

manni_n

17-Apr-07 6:56

well its jst the simple addiing in data base...
here is the code for u..
check it out....and put yr table name wherever specified tablename and make required changes
<code>Imports System
Imports System.data.oledb
Inherits System.Windows.Forms.Form
public class form1
Dim da As New OleDbDataAdapter("select * from tablename", "provider=microsoft.jet.oledb.4.0;data source=|DataDirectory|\PCbank.mdb;")
Dim ds As New DataSet
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim i As Integer
Dim str As String
'under insert button
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Try
cn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=GIVE PATH of yr mdb file;")
cn.Open()
cmd = New OleDbCommand("insert into tablename(ID,surname,forename) values('" & (TextBox1.Text) & "','" & (TextBox2.Text) & "','" & (TextBox3.Text) & ")", cn)
i = cmd.ExecuteNonQuery()
MsgBox("record inserted")
Catch ex As Exception

End Try
cn.Close()</code>

Re: add data to database

klaydze17-Apr-07 21:48

klaydze

17-Apr-07 21:48

you can use this code also:

Public Function Query(ByVal SQL As String, ByVal OLEDBCon As OleDb.OleDbConnection, ByRef DS As DataSet) As Integer
Dim DA As New OleDb.OleDbDataAdapter(SQL, OLEDBCon)
Query = DA.Fill(DS)
DA = Nothing
End Function

Public Function Execute(ByVal SQL As String, ByVal OLEDBCon As OleDb.OleDbConnection) As Integer
Dim com As New OleDb.OleDbCommand(SQL, OLEDBCon)
com.ExecuteNonQuery()
com = Nothing
End Function

this is your connection string:

Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=sample.mdb")

code of your button save:

dim strInsert as string

try
strInsert="Insert into table1 (field1,fields2...) Values('" & txt1 & "','" & txt2 & "'...)"

con.open
Execute(strInsert,con)
MsgBox("Record Saved")

con.close

end try

my code is simple. Smile | :)

Don't block the drive way of all the newbies in programming. Smile | :)

)

How to run video file in vb.net windows application?

balamurugan8217-Apr-07 3:50

balamurugan82

17-Apr-07 3:50

I have download copy paste avi file
how to run avi file in vb.net windows application

Re: How to run video file in vb.net windows application?

MatrixCoder17-Apr-07 5:00

MatrixCoder

17-Apr-07 5:00

Just implement Windows Media Player into your app.

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

How can we capture the incoming net send message in vb.net?

vijay258317-Apr-07 3:39

vijay2583

17-Apr-07 3:39

Hi
How can we capture the incoming net send message in vb.net?

Thanks
vijay

v

Re: How can we capture the incoming net send message in vb.net?

Dave Kreskowiak17-Apr-07 7:19

Dave Kreskowiak

17-Apr-07 7:19

You can't really intercept them without writing your own packet sniffer ad reassembling the traffic yourself.

The other way to do it is to stop the Messenger service that comes with Windows and write your own replacement for it, taking over the TCP/IP port that it normally listens to.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

SHDocVw.ShellWindows .Quit does not stop process

SJR_117-Apr-07 2:41

SJR_1

17-Apr-07 2:41

I have an application that closes all IE windows that have "MKR" string in the address when the application closes. The problem is that explorer.exe is still listed in the processes. How do I get rid of the process when I close the application?

SR

Re: SHDocVw.ShellWindows .Quit does not stop process

Dave Kreskowiak17-Apr-07 6:43

Dave Kreskowiak

17-Apr-07 6:43

You do know that explorer.exe is the process that give you your desktop, right? Why would you want to stop that?

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.