活动目录管理中常用的脚本（二）
二、映射网络路径(UPN)每个用户登陆时，自动映射网络驱动，这个目录只有该用户才能访问，其他用户包括Administrators Groups member也无法访问，主要让用户存放个人数据。
如果这个用户是第一次登陆时，脚本将会为这个用户在
“\\domainName\root\user datas\”路径中创建以用户名命名的目录。'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME: auto map network directory to local z: driver
'
' AUTHOR: Bona Shen
' DATE : 2006-10-31
'
' COMMENT: auto map network directory to local z: driver
'
'==========================================================================
On Error Resume Next
dim objNetwork
Set objNetwork = CreateObject("Wscript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
userName = getUserName
sharedir="\\domainName\root\user datas\" & username
found=0
For i = 0 To colDrives.Count-1 Step 2
If colDrives.Item(i + 1) = sharedir Then
found = 1
Exit For
End If
Next
If found=0 Then
createUserFolder sharedir,username
MapNext(sharedir)
End If