Các chiêu thức trong lập trình Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở”

Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở” home
Giới thiệu : Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở” trong mạng LAN hoặc WAN
Xuất xứ : Tại một trang web về bảo mật
Binh khí sử dụng :
- 1 ListBox (Trong Form bạn cần hiển thị) với tên : List
Đoạn mã :
Private Sub Form_Load()
On Error Resume Next
Dim ishell
Set ishell = CreateObject("wscript.shell")
ishell.run "%comspec% /C net view > C:\plog.tmp", 0, True
Set fso = CreateObject("scripting.filesystemobject")
Set rd = fso.opentextfile("C:\plog.tmp")
nbuff = 0
Do While rd.AtEndOfStream <> True
nbuff = rd.readline
If Left(nbuff, 2) = "\\" Then
ishell.run "%comspec% /C net view " & Trim(Left(nbuff, 21)) & " >
C:\clog.tmp", 0, True

Set rdd = fso.opentextfile("C:\clog.tmp")
buff = ""
Do While rdd.AtEndOfStream <> True
buff = rdd.readline
combuff = Right(Trim(buff), 4)
If Right(combuff, 4) = "Disk" Then
buffadd = Left(buff, 13)
If Len(Trim(buffadd)) > 0 Then
sharename = a & Trim(Left(nbuff, 21)) & "\" & Trim(buffadd) & a
LstLAN.AddItem sharename
End If

End If
Loop
End If
Loop
End Sub