Public Sub NetworkInstalledPrinter(ByVal strComputer As String, ByVal strUserName As String, ByVal strPwd As String)
Try
Dim Query As Management.ObjectQuery = New System.Management.ObjectQuery("SELECT * FROM Win32_Printer")
Dim moSearcher As Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher(Query)
Dim moc As Management.ManagementObjectCollection = moSearcher.Get()
For Each mo As Management.ManagementObject In moc
Dim Pdc As Management.PropertyDataCollection = mo.Properties
For Each pd As Management.PropertyData In Pdc
Try
If (CType(mo("Network"), Boolean)) Then
Dim strName As String
strName = CType(mo(pd.Name), String)
If (strName.StartsWith("\\")) Then
MessageBox.Show(strName)
End If
End If
Catch ex As Exception
Continue For
End Try
Next
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
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