Public Sub RemoteInstalledPrinter(ByVal strComputer As String, ByVal strUserName As String, ByVal strPwd As String)
Dim query As Management.ManagementObjectSearcher
Dim queryCollection As Management.ManagementObjectCollection
Dim management_object1 As Management.ManagementObject
Dim msc As Management.ManagementScope
If (strComputer = System.Environment.MachineName) Then
msc = New Management.ManagementScope("\\" & strComputer & "\root\cimv2")
Else
Dim co As New Management.ConnectionOptions
co.Username = strUserName
co.Password = strPwd
msc = New Management.ManagementScope("\\" & strComputer & "\root\cimv2", co)
End If
Dim query_command As String = "SELECT * FROM Win32_Printer"
Dim select_query As Management.SelectQuery = New Management.SelectQuery(query_command)
Try
query = New Management.ManagementObjectSearcher(msc, select_query)
queryCollection = query.Get()
Dim strType As String = ""
For Each management_object1 In queryCollection
If (management_object1("Attributes") = 16) Then
strType = "Network"
ElseIf (management_object1("Attributes") = 64) Then
strType = "Local"
End If
MessageBox.Show(management_object1("Name") & " Type:" & strType)
Next management_object1
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
End Sub
"Ping" is very basic utility for every network programmer. Here we will discuss ping a computer in Network using VB.Net. We have two methods for pinging a computer. Method 1: Here we will use VB.Net NetworkInformation NameSpace. Public Sub PingStatus(ByVal strComputer As String) Dim pingSender As Ping = New Ping() Dim options As PingOptions = New PingOptions() options.DontFragment = True 'Create a buffer of 32 bytes of data to be transmitted Dim data As String = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" Dim buffer As Byte() = Encoding.ASCII.GetBytes(data) Dim timeout As Integer = 120 Dim reply As PingReply = pingSender.Send(strComputer, timeout, buffer, options) If (reply.Status = IPStatus.Success) Then MessageBox.Show("Ping Successed.") Else MessageBox.Show("Ping Faild.") End If End Sub Method 2: Here we are using .Net inbuil...