Đề 3 c) d) - Ý 1: Content, Avanced Notepad: nhập "Notepad" vào: -Ý 2: Add scr...
Đề 3
c)
- Ý 1: Content, Avanced
Add scripts tại đây.
—————————————————————————————————————————————————————
’ NameDrive.vbs
‘ VBScript to map a network drive.
‘ —————————————-’
‘
Option Explicit
Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName
‘
strDriveLetter = “H:”
strRemotePath = “\dc01.msopenlab.localdata”
strNewName = “Reports”
‘ VBScript to map a network drive.
‘ —————————————-’
‘
Option Explicit
Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName
‘
strDriveLetter = “H:”
strRemotePath = “\dc01.msopenlab.localdata”
strNewName = “Reports”
‘ Section to map the network drive
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
‘ Section which actually (re)names the Mapped Drive
Set objShell = CreateObject(“Shell.Application”)
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
Set objShell = CreateObject(“Shell.Application”)
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
Wscript.Echo “Check : “& strDriveLetter & ” for ” & strNewName
WScript.Quit
WScript.Quit
‘ End of Example VBScript.
—————————————————————–
Bạn chỉnh sửa lại cho phù hợp với hệ thống mình:
strDriveLetter = “ổ đĩa:”
strRemotePath = “đường dẫn đến server và thư mục chia sẽ”
strNewName = “Tên hiển thị của ổ đĩa”
-Ý 3:
Search, Document, Setting
Giải thêm các đề đi ad
Trả lờiXóaGiải thêm các đề đi ad
Trả lờiXóa%3Cscript%3E alert("hello") %3C/script%3E
Trả lờiXóa