Login Script in Using in Active Directory Environments

Tested by me
filename:logon.vbs
strComputer = "."
strDrive = "X:"
strLabel = "Disk On Server"
strPath = "\\server\E$\Report"
strUser = ""
strPassword = ""
boolPersistent = True
strNewName = "Disk On Server"

set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDrive, strPath, boolPersistent
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDrive).Self.Name = strNewName
Wscript.Echo "Login OK"
WScript.Quit

extention:
check exist disk?
Yes: no create
No: new create
after changing volume disk

Nhận xét

Bài đăng phổ biến từ blog này

Ký tự viết tắt trong chat & email

dung lượng RAM lớn nhất mà HĐH cấu trúc 32-bit nhận được

Ubuntu LAMP Server