Ngưng kết nối với tất cả các ổ đĩa mạng

Ngưng kết nối với tất cả các ổ đĩa mạng

Mở Notepad và chép đọan mã dưới đây vào

L_Welcome_MsgBox_Title_Text = "Network Drive Zapper"

Dim WSHNetwork

Dim colDrives, SharePoint

Dim CRLF

CRLF = Chr(13) & Chr(10)

Set WSHNetwork = WScript.CreateObject("WScript.Network")

Function Ask(strAction)

Dim intButton

intButton = MsgBox(strAction, _

vbQuestion + vbYesNo, _

L_Welcome_MsgBox_Title_Text )

Ask = intButton = vbYes

End Function

If Ask("Do you wish to disconnect all network drives?") Then

'Enumerate network drives into a collection object of type WshCollection

Set colDrives = WSHNetwork.EnumNetworkDrives

If colDrives.Count = 0 Then

MsgBox "There are no network drives to disconnect.", _

vbInformation + vbOkOnly, _

L_Welcome_MsgBox_Title_Text

Else

For i = 0 To colDrives.Count - 1 Step 2

WshNetwork.RemoveNetworkDrive colDrives(i)

Next

MsgBox "All network drives disconnected", _

vbInformation + vbOkOnly, _

L_Welcome_MsgBox_Title_Text

End If

End If

Lưu lại và đặt tên cho tập tin này là disconnectmap.vbs

tao hỏi mày ngắt để làm gì? viết thì ko nêu rõ tác dụng ra )