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 . 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. 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()