<div>
do they have the login bat in their profile?
</div>

<div>
Can this be reproduced on another PC ? &nbsp; Does the user occasionally use a portable usb drive ?
</div>

<div>
Does this PC has good login to domain? 
Do you need to input user name and password to reconnect the maps? 
do you have Drive Letters assigned with the same &nbsp;letter?
</div>

<div>
When he logs into another computer, the same thing happens. It &nbsp;will map all the other drives except for one particular drive. &nbsp;he ends up having to manually map it.
</div>

<div>
does this drive has a letter assigned like E or D? that is interference with USB or DVD
</div>

<div>
Can you open a regular (not admin) command prompt and do the following: 
 
1. NET USE X: /Delete for all drives in the script. 
2. NET USE &lt;enter&gt; and what is left? &nbsp;Anything? 
3. Run the script in the Command Prompt. &nbsp;What error occurs?
</div>

<div>
does this map has a letter assigned like E or D that interference with USB or DVD drives??
</div>

<div>
No it doesnt. I did check that.
</div>

<div>
can you copy part of your script?? 
 
do you use net use Driveletter /delete? 
and then net use drive letter
</div>

<div>
John,,,I deleted all the mapped drives using the NET USE command and then ran the script again. and it still did not map the G: Drive &nbsp;All the other drives were mapped.,\
</div>

<div>
Const G_Drive = &quot;cn=cadarch_ro&quot; 
Const J_Drive=&quot;cn=commercial_ro&quot; 
Const M_Drive=&quot;cn=drafting_full&quot; 
Const X_Drive=&quot;cn=mep full&quot; 
Const R_Drive=&quot;cn=revit_full&quot; 
 
Set objNet = CreateObject(&quot;WScript.Network&quot;) 
Set oShell = CreateObject(&quot;Shell.Application&quot;) 
Set wshell = CreateObject(&quot;WScript.Shell&quot;) 
 
Set objUser = CreateObject(&quot;ADSystemInfo&quot;) 
Set CurrentUser = GetObject(&quot;LDAP://&quot; &amp;&nbsp;objUser.UserName) 
strGroup = LCase(Join(CurrentUser.MemberOf)) 
 
On Error Resume Next 
 
wshShell.Run &quot;%COMSPEC% /c net time &quot;, 0, True 
 
set wshell = Nothing 
 
objNet.RemoveNetworkDrive &quot;g:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;i:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;j:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;k:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;l:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;m:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;n:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;o:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;r:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;t:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;u:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;w:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;x:&quot;, True, True &nbsp; 
objNet.RemoveNetworkDrive &quot;z:&quot;, True, True 
 
objNet.MapNetworkDrive &quot;h:&quot;, &quot;\\GE-H1\Home\&quot; &amp;&nbsp;objNet.UserName 
Drive = &quot;H:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Home&quot; 
 
objNet.MapNetworkDrive &quot;i:&quot;, &quot;\\GE-H1\tpl&quot; 
Drive = &quot;i:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;TPL&quot; 
 
objNet.MapNetworkDrive &quot;k:&quot;, &quot;\\GE-H1\data&quot; 
Drive = &quot;k:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Data&quot; 
 
objNet.MapNetworkDrive &quot;l:&quot;, &quot;\\GE-H1\complete\&quot; &amp;&nbsp;objnet.UserName 
Drive = &quot;l:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Complete&quot; 
 
objNet.MapNetworkDrive &quot;n:&quot;, &quot;\\GE-H1\name\&quot; &amp;&nbsp;objNet.UserName 
Drive = &quot;n:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Name&quot; 
 
objNet.MapNetworkDrive &quot;o:&quot;, &quot;\\GE-H1\common&quot; 
Drive = &quot;o:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Common&quot; 
 
objNet.MapNetworkDrive &quot;t:&quot;, &quot;\\GE-H1\img_data&quot; 
Drive = &quot;t:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Img Data&quot; 
 
objNet.MapNetworkDrive &quot;u:&quot;, &quot;\\GE-H1\jismn&quot; 
Drive = &quot;u:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;JISMN&quot; 
 
objNet.MapNetworkDrive &quot;z:&quot;, &quot;\\GE-H1\archive&quot; 
Drive = &quot;z:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;JIS Archive&quot; 
 
If InStr(strGroup, lcase(R_Drive)) Then 
objNet.MapNetworkDrive &quot;r:&quot;, &quot;\\GE-H1\revit&quot; 
Drive = &quot;r:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Revit&quot; 
End If 
 
If InStr(strGroup, lcase(G_Drive)) Then 
objNet.MapNetworkDrive &quot;g:&quot;, &quot;\\GE-H1\cadarch&quot; 
Drive = &quot;g:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Cadarch&quot; 
End If 
 
If InStr(strGroup, lcase(J_Drive)) Then 
objNet.MapNetworkDrive &quot;j:&quot;, &quot;\\GE-H1\commercial&quot; 
Drive = &quot;j:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Commercial&quot; 
End If 
 
If InStr(strGroup, lcase(M_Drive)) Then 
objNet.MapNetworkDrive &quot;m:&quot;, &quot;\\GE-H1\drafting\libio&quot; 
Drive = &quot;m:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;Libio&quot; 
End If 
 
If InStr(strGroup, lcase(X_Drive)) Then 
objNet.MapNetworkDrive &quot;x:&quot;, &quot;\\GE-H1\MEP&quot; 
Drive = &quot;x:\&quot; 
oShell.NameSpace(Drive).Self.Name = &quot;MEP&quot; 
End If
</div>

<div>
is the user part of the cadarch_ro?
</div>

<div>
No he is in the Cadarch_Full
</div>

<div>
change the script for Cadarch_Full &nbsp;just for this user.... and test
</div>

<div>
because you are comparing Const G_Drive = &quot;cn=cadarch_ro&quot; vs &nbsp;&quot;Cadarch_Full&quot;
</div>

<div>
I did make a copy of the script and placed it on his desktop. &nbsp;I did not write the script so i am not sure what part of the script to change.
</div>

<div>
I can run the script and watch it delete the mapped drives per the script and watch it remap all the other drives except the G:Drive.
</div>

<div>
only this: 
 
Const G_Drive = &quot;cn=cadarch_ro&quot; 
 
for this 
 
Const G_Drive = &quot;cn=cadarch_full&quot; 
 
and run it
</div>

<div>
Have you checked the \\GE-H1\ and &nbsp;\\GE-H1\cadarch shares again user account. &nbsp;All the permissions are there?
</div>

<div>
Ok I changed the first line from Const G_Drive = &quot;cn=cadarch_ro&quot; &nbsp;to Const G_Drive = &quot;cn=cadarch_full&quot; 
 
and it worked. &nbsp;So why does it work on other users in the same group and not his.
</div>

<div>
<pre><code class="code-100 nolinks" id="code-20-41489318-1">Const G_Drive = &quot;cn=cadarch_ro&quot;
Const J_Drive=&quot;cn=commercial_ro&quot;
Const M_Drive=&quot;cn=drafting_full&quot;
Const X_Drive=&quot;cn=mep full&quot;
Const R_Drive=&quot;cn=revit_full&quot;

Set objNet = CreateObject(&quot;WScript.Network&quot;)
Set oShell = CreateObject(&quot;Shell.Application&quot;)
Set wshell = CreateObject(&quot;WScript.Shell&quot;)

Set objUser = CreateObject(&quot;ADSystemInfo&quot;)
Set CurrentUser = GetObject(&quot;LDAP://&quot; &amp; objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))

On Error Resume Next

wshShell.Run &quot;%COMSPEC% /c net time &quot;, 0, True

set wshell = Nothing

objNet.RemoveNetworkDrive &quot;g:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;i:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;j:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;k:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;l:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;m:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;n:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;o:&quot;, True, True
objNet.RemoveNetworkDrive &quot;r:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;t:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;u:&quot;, True, True
objNet.RemoveNetworkDrive &quot;w:&quot;, True, True
objNet.RemoveNetworkDrive &quot;x:&quot;, True, True 
objNet.RemoveNetworkDrive &quot;z:&quot;, True, True

objNet.MapNetworkDrive &quot;h:&quot;, &quot;\\GE-H1\Home\&quot; &amp; objNet.UserName
Drive = &quot;H:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Home&quot;

objNet.MapNetworkDrive &quot;i:&quot;, &quot;\\GE-H1\tpl&quot;
Drive = &quot;i:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;TPL&quot;

objNet.MapNetworkDrive &quot;k:&quot;, &quot;\\GE-H1\data&quot;
Drive = &quot;k:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Data&quot;

objNet.MapNetworkDrive &quot;l:&quot;, &quot;\\GE-H1\complete\&quot; &amp; objnet.UserName
Drive = &quot;l:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Complete&quot;

objNet.MapNetworkDrive &quot;n:&quot;, &quot;\\GE-H1\name\&quot; &amp; objNet.UserName
Drive = &quot;n:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Name&quot;

objNet.MapNetworkDrive &quot;o:&quot;, &quot;\\GE-H1\common&quot;
Drive = &quot;o:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Common&quot;

objNet.MapNetworkDrive &quot;t:&quot;, &quot;\\GE-H1\img_data&quot;
Drive = &quot;t:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Img Data&quot;

objNet.MapNetworkDrive &quot;u:&quot;, &quot;\\GE-H1\jismn&quot;
Drive = &quot;u:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;JISMN&quot;

objNet.MapNetworkDrive &quot;z:&quot;, &quot;\\GE-H1\archive&quot;
Drive = &quot;z:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;JIS Archive&quot;

If InStr(strGroup, lcase(R_Drive)) Then
objNet.MapNetworkDrive &quot;r:&quot;, &quot;\\GE-H1\revit&quot;
Drive = &quot;r:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Revit&quot;
End If

If InStr(strGroup, lcase(G_Drive)) Then
objNet.MapNetworkDrive &quot;g:&quot;, &quot;\\GE-H1\cadarch&quot;
Drive = &quot;g:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Cadarch&quot;
End If

If InStr(strGroup, lcase(J_Drive)) Then
objNet.MapNetworkDrive &quot;j:&quot;, &quot;\\GE-H1\commercial&quot;
Drive = &quot;j:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Commercial&quot;
End If

If InStr(strGroup, lcase(M_Drive)) Then
objNet.MapNetworkDrive &quot;m:&quot;, &quot;\\GE-H1\drafting\libio&quot;
Drive = &quot;m:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;Libio&quot;
End If

If InStr(strGroup, lcase(X_Drive)) Then
objNet.MapNetworkDrive &quot;x:&quot;, &quot;\\GE-H1\MEP&quot;
Drive = &quot;x:\&quot;
oShell.NameSpace(Drive).Self.Name = &quot;MEP&quot;
End If 
</code></pre>
 
is the user a member of group G_Drive
</div>

<div>
David Johnson -- &nbsp;yes he is.
</div>

<div>
NLD_MIS &nbsp; I am not sure what you are asking
</div>

<div>
can you check if the users that has access to G_drive has another group that point or are member of cadarch_ro?
</div>

<div>
Ok. That was it. They were all in the Cadarch_RO group and he wasn't. &nbsp;Once i added him and rebooted, his drive mapped. &nbsp;Thank you all so much
</div>

<div>
Thank you for all the support.
</div>

<div>
please click Accept Solution in the comment. 
 
regards
</div>

<div>
<div class="content wysiwyg-content">
We currently have a login script that maps all the drives for our users. one users loses a drive when he reboots his system. &nbsp;I have checked his permission and security settings and he has full access to the drive in question. &nbsp; It works for all the other users.
</div>
</div>

We currently have a login script that maps all the drives for our users. one users loses a drive when he reboots his system.  I have checked his permission and security settings and he has full access to the drive in question.   It works for all the other users.

login script does not map all drives.

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

Active Directory (AD) is a Microsoft brand for identity-related capabilities. In the on-premises world, Windows Server AD provides a set of identity capabilities and services, and is hugely popular (88% of Fortune 1000 and 95% of enterprises use AD). This topic includes all things Active Directory including DNS, Group Policy, DFS, troubleshooting, ADFS, and all other topics under the Microsoft AD and identity umbrella.