vbs脚本

Posted

篇首语:本文由小常识网小编为大家整理,主要介绍了vbs脚本实现网盘映射及标签更改相关的知识,希望对你有一定的参考价值。

vbs脚本实现网盘映射及标签更改,完全自主研发,绝无仅有,觉得有用的朋友点个攒:

Set WshNetwork = CreateObject(“WScript.Network”)
set wshshell = wscript.createObject(“WScript.shell”)
dim mypath
mypath = “xxx.domain.com” //共享文件路径
if WshNetwork.UserName = “aaaa” then
elseif WshNetwork.UserName = “bbbb” then
WshNetwork.MapNetworkDrive “M:”, mypath & WshNetwork.UserName
WshNetwork.MapNetworkDrive “O:”, mypath & “wl_information_dept”
WshNetwork.MapNetworkDrive “V:”, mypath & “video”
WshNetwork.MapNetworkDrive “P:”, mypath & “photo”
//当用户名为bbbb时映射四个网盘
elseif WshNetwork.UserName = “cccc” then
else
end if
wscript.sleep 1000

strNewName = “My”
strDriveLetter = “M:”
Set objShell = CreateObject(“shell.application”)
if isNull(objShell.NameSpace(strDriveLetter)) then
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
end if
strNewName = “DeptPublic”
strDriveLetter = “O:”
Set objShell = CreateObject(“shell.application”)
if isNull(objShell.NameSpace(strDriveLetter)) then
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
end if
strNewName = “Photo”
strDriveLetter = “P:”
Set objShell = CreateObject(“shell.application”)
if isNull(objShell.NameSpace(strDriveLetter)) then
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
end if
strNewName = “Video”
strDriveLetter = “V:”
Set objShell = CreateObject(“shell.application”)
if isNull(objShell.NameSpace(strDriveLetter)) then
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
end if
实现四个网盘的标签更改,有效隐藏网盘的实际路径,保障服务器的安全。

以上是关于vbs脚本实现网盘映射及标签更改的主要内容,如果未能解决你的问题,请参考以下文章

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人,因此内容不代表本站观点、本站不对文章中的任何观点负责,内容版权归原作者所有、内容只用于提供信息阅读,无任何商业用途。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站(文章、内容、图片、音频、视频)有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至2811500808@qq.com举报,一经查实,本站将立刻删除、维护您的正当权益!