保存する友人の便利なポイントを見つける、独自のネットワークドライブのマッピングとラベリングの変更、完全に独立した研究開発を、達成するために、VBSスクリプト：
セットWshNetwork =のCreateObject（ "WScript.Network"）
セットwshshell = wscript.createObject（ "WScript.shell"）
薄暗いmypathで
mypathで= "\ xxx.domain.com \" //共享文件路径
場合WshNetwork.UserName = "AAAA"その後、
WshNetwork.UserName = "BBBB"その後のelseif
、mypathで＆WshNetwork.UserName：WshNetwork.MapNetworkDrive "M"
WshNetwork.MapNetworkDrive "O："、mypathで＆ "wl_information_dept"
WshNetwork.MapNetworkDrive "V："、mypathで＆ "ビデオ"
WshNetwork .MapNetworkDrive "P："、mypathで＆ "写真"
//当用户名为BBBB时映射四个网盘
のelseif WshNetwork.UserName = "CCCC"そして、
それ以外の
場合は、エンド
wscript.sleep 1000年
strNewName = "マイ"
strDriveLetter = "M："
を設定しobjShell =のCreateObject（ "shell.application"）
の場合のisNull（objShell.NameSpace（strDriveLetter））、その後
objShell.NameSpace（strDriveLetter）.Self.Name = strNewName
END IF
strNewName = " DeptPublic」
strDriveLetter = "O："
設定objShell =のCreateObject（ "shell.application"）
であれば、その後のisNull（objShell.NameSpace（strDriveLetter））
objShell.NameSpace（strDriveLetter）.Self.Name = strNewName
END IF
strNewName = "写真"
strDriveLetter = "P："
を設定objShell =のCreateObject（ "shell.application"）
場合のisNull（objShell.NameSpace（strDriveLetter））、次いで
objShell.NameSpace（strDriveLetter）。Self.Name = strNewName
END IF
= strNewName "ビデオ"
strDriveLetter = "V："
（ "Shell.Applicationの"）を設定しobjShell = CreateObjectの
IFのisNull（objShell.NameSpace（strDriveLetter））、その後
objShell.NameSpace（strDriveLetter）.Self.Name = strNewName
エンドIF
\ 4を達成ネットワークディスクラベルは、効果的にサーバーのセキュリティを保護するために実際のパスネットワークディスクを隠して、変更します。