HOW TO 列舉網路鄰居的計算機及其共享資料夾

2021-03-31 22:13:21 字數 1853 閱讀 2864

how to

:列舉網路鄰居的計算機及其共享資料夾

author:

水如煙(http://blog.csdn.***/lzmtw)

date:

2005-4-26

關鍵引用空間:system.directoryservices,system.management

說明:form上有乙個treeview1,button1

**如下:

private

sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click

get******puternameandsharefolder()

end

sub

private

sub get******puternameandsharefolder()

dim n as treenode = addnode("

工作組或域")

dim root as directoryentry = new directoryentry("winnt:")

for

each domain as directoryentry in root.children

'

列舉工作組或域

dim n1 as treenode = addnode(n, domain.name)

for

each ***puter as directoryentry in domain.children

'

列舉指定工作組或域的計算機

if ***puter.schemaclassname.equals("***puter") then

dim n2 as treenode = addnode(n1, ***puter.name)

'

列舉指定計算機的共享資料夾

dim o as

new managementobject

o.scope = new managementscope(string.format("///root/cimv2", ***puter.name))

dim searcher as managementobjectsearcher = new managementobjectsearcher("select * from win32_share")

searcher.scope = o.scope

for

each share as managementobject in searcher.get()

addnode(n2, share.getpropertyvalue("name").tostring)

next

end

if

next

next

end sub

private

function addnode(byval text as

string) as treenode

return

me.treeview1.nodes.add(text)

end

function

private

function addnode(byval node as treenode, byval text as

string) as treenode

return node.nodes.add(text)

end

function

Linux下的網路鄰居

二 別人訪問我的機器 1 安裝samba服務 用root許可權執行apt get install samba或者是rpm ivh samba rpm。2 設定samba server dpkg reconfigure samba。注意,第乙個選項是啟動方式,推薦選擇daemon 最後乙個選項大意上說...

在windows的網路鄰居中訪問Ubuntu

最近在做cas單點登入,因為要用到ssl,所以做了證書。因為還在開發階段,還沒有網域名稱,所以證書中使用了我ubuntu的主機名eric desktop 應用部署在ubuntu上 接著遇到的問題是我在ubuntu中可以訪問,但是如果從另一台電腦訪問應用,登入成功後會報錯,沒有辦法正確導向原來的應用。...

「網路上的芳鄰不能訪問」與「鄰居計算機不能訪問」

這是兩個很常見的問題,給人感覺故障現象差不多,但原因是不同的。以下討論均寄託在網路物理 邏輯連線已正常基礎之上。ip協議已正常執行,netbios協議正常執行。首先討論 網路上的芳鄰不能訪問 的問題,當windows系統訪問網路上的芳鄰時首先查詢本工作組 主瀏覽伺服器 master browser ...