主题：[求助]网络列表

Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance
Dim DataTable As System.Data.DataTable = instance.GetDataSources()
For Each Row As data.DataRow In DataTable.Rows
    output.show(Row("ServerName"))
Next 
 

 

 

写错了，那个是获取数据库服务器的。下面这些可以

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()

p.StandardInput.WriteLine("net view")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)

Dim ary() As String = strrst.replace(chr(10), "").Split(chr(13))
For Each s As String In ary
    If s.StartsWith("\\") Then
        msgbox(s)
    End If
Next

 

 

http://www.cnblogs.com/luoht/archive/2009/12/18/1627431.html

 

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Rows.Clear()
lvw.Images.Clear()
lvw.View = ViewMode.LargeIcon '显示模式切换为大图标
lvw.Images.AddImage("图标","电脑.Ico","电脑.Ico")

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("net view")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

Dim ary() As String = strrst.replace(chr(10), "").Split(chr(13))
For Each s As String In ary
    If s.StartsWith("\\") Then
        Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
        r.Text = s '指定行的标题
        r.ImageKey = "图标" '指定行的图标键值
    End If
Next

r.Text = s.split(" ")(0) '指定行的标题