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