quote:

Sub MapNetworkDrives
On Error Resume Next

'Map group-specific drives based on the entries in the MappedDrives.xml file.

Dim objNetwork
Dim objFSO
Dim objSysInfo
Dim objUser
Dim XMLDoc
Dim MD_XMLPath   
Dim GroupObj, objDriveNode
Dim WSHShell, WSHProcess
Dim LogonServer 
Set WSHShell = CreateObject("Wscript.Shell")
Set WSHProcess = WSHShell.Environment("Process")
Set objNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = "LDAP://" & objSysInfo.UserName
Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
LogonServer = WSHProcess("LogonServer")
MD_XMLPath = LogonServer & "\NETLOGON\MapDrives.xml"
User = "LDAP://" & objSysInfo.UserName
Wscript.Echo User
Wscript.Echo MD_XMLPath
Wscript.Echo objUser.Groups
'Load the XML file

xmlDoc.async = False
If objFSO.FileExists(MD_XMLPath) Then
    xmlDoc.Load(MD_XMLPath)
   
    'Compare each group the user is a member of and see if it is found in the XML file
    'If so, retrieve the UNC path and drive latter to be mapped.
   
    For Each GroupObj In objUser.Groups
        Set objDriveNode = xmlDoc.selectSingleNode("//MappedDrives/Group[@Name = '" & Ucase(GroupObj.cn) & "']")
        If Not objDriveNode Is Nothing Then
            Err.Clear                               
            objNetwork.MapNetworkDrive objDriveNode.childNodes(1).text & ":", objDriveNode.childNodes(0).text,True
            If Err.Number <> 0 Then
                WriteToErrorLog "Error mapping " & objDriveNode.childNodes(1).text & " to " & objDriveNode.childNodes(0).text
            End If
        End If
    Next
End If   
End Sub