Sub nbtstat(ByVal ip As String)
Dim strRst, strRst1, strRst2, strRst3 As String
Dim n1, n2, n3 As Integer
Try
Dim p As New Process() '用Process就可以
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardInput = True
p.StartInfo.RedirectStandardOutput = True
p.StartInfo.RedirectStandardError = True
p.StartInfo.CreateNoWindow = True
p.Start()
Application.DoEvents()
p.StandardInput.WriteLine("cmd /c C:\\Windows\\sysnative\\nbtstat.exe -a" & ip) '这个就是cmd命令,64位電腦用
p.StandardInput.WriteLine("Exit") '这个是退出语句
strRst = p.StandardOutput.ReadToEnd() '执行完语句后取得显示内容.
p.Close()
Catch ex As Exception
End Try
'之后就是你自己的代码了...
If InStrRev(strRst, "找不到主机") > 0 Then
strRst1 = "找不到主机"
End If
If Not strRst1 = "找不到主机" Then
n1 = InStrRev(strRst, "0> 唯一") - 22
strRst1 = Mid(strRst, n1, 20)
strRst1 = strRst1.Replace(" ", "") 'Host Name
n2 = InStrRev(strRst, "0> 组") - 22
strRst2 = Mid(strRst, n2, 20)
strRst2 = strRst2.Replace(" ", "") 'WorkGroup Name
n3 = InStrRev(strRst, "MAC") + 8
strRst3 = Mid(strRst, n3, 20)
strRst3 = strRst3.Replace(" ", "") 'MAC Address
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
nbtstat(" 10.0.2.1")
End Sub