{"id":55143,"date":"2008-08-25T23:14:00","date_gmt":"2008-08-25T23:14:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2008\/08\/25\/hey-scripting-guy-how-can-i-troubleshoot-drive-mapping-issues\/"},"modified":"2008-08-25T23:14:00","modified_gmt":"2008-08-25T23:14:00","slug":"hey-scripting-guy-how-can-i-troubleshoot-drive-mapping-issues","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/hey-scripting-guy-how-can-i-troubleshoot-drive-mapping-issues\/","title":{"rendered":"Hey, Scripting Guy! How Can I Troubleshoot Drive-Mapping Issues?"},"content":{"rendered":"

\n

<\/SPAN><\/FONT><\/SPAN><\/FONT><\/H1>\"Hey, \n

Hey, Scripting Guy! We have this problem at work. Users seem to always be losing their mapped drives. It is a real mess, and we spend a couple hours every morning trying to help the users remap their drives. We have more than 160 logon scripts, and it seems that one logon script maps a drive, and then another remaps the drive somewhere else. To make matters worse, when we go to the workstation and make the drive-mapping persistent, they seem to disappear for no reason. I am at my wit\u2019s end. It would really help, if we just had a log of what drives are mapped for the workstation. We could then ask the user when things last worked and see what their drive-mapping is supposed to be. Is there anything you can do to help?

– SN<\/P>\"Spacer\"\"Hey,<\/A> \n

Hi SN,<\/P>\n

It seems as if you have a mess on your hands. One hundred and sixty logon scripts? I won\u2019t ask! Sounds as if a little Microsoft Operations Framework (MOF) Training<\/A> would not hurt your organization. As a matter of fact, we just came out with MOF version 4.0, which covers the IT management life cycle through three distinct phases: planning, delivery, and operations. <\/P>\n

Part of the problem is that you are making changes to your environment without having achieved a reliable, stable situation. Without knowing what the desktop environment is, it is hard to plan and deploy changes in an organized fashion. This is leading to increased problem management and customer service issues. Go ahead and download the free documentation<\/A>.<\/P>\n

Of course, you know you have a problem, or you would not have asked for a tool to help you with the first step: Document what you actually have. What is the drive-mapping on a user\u2019s machine when they are not having problems? Then document what the drive-mapping is on a user\u2019s computer when they are having problems, and figure out what was changed that may be causing the problem.<\/P>\n

In the WriteMappedDrivesToFile.vbs<\/B> script, we will define a couple of WMI queries, create a dictionary to store our WMI information, and use FileSystemObject<\/B> to write our information to a file. (Use of FileSystemObject<\/B> is covered in chapter 6 of the Microsoft Press book Microsoft VBScript Step by Step<\/A>. Along the way, we will use the replace<\/B> function to help us create a file name. I know you can\u2019t wait, so here is the WriteMappedDrivesToFile.vbs<\/B> script:<\/P>

strComputer = “.”<\/p>\n
Const networkdisk = 4 \nConst ForWriting = 2\nConst ForAppending = 8\nwmiQuery=”Select DeviceID, ProviderName from Win32_LogicalDisk ” & _
“where DriveType =” & networkdisk<\/PRE>
wmiQuery1 =”Select Name, UserName from Win32_ComputerSystem”<\/p>\n
Set objDictionary = CreateObject(“scripting.dictionary”)\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer)\nset colDrives = objWMIService.ExecQuery(wmiQuery)\nSet colUsers = objWMIService.ExecQuery(wmiQuery1)<\/p>\n
For Each user In colUsers\n userName = replace(user.UserName,”\\”,”_”)\n dnsHostName = user.Name\nNext<\/p>\n
if colDrives.count <> 0 Then\n for each drive in colDrives\n  objDictionary.add drive.DeviceID, drive.ProviderName\n  colKeys = objDictionary.Keys\n  colItems = objDictionary.Items\n Next\nElse\n objDictionary.add ” No Drives Mapped “, ” No Drives Mapped ”\n  colKeys = objDictionary.Keys\n  colItems = objDictionary.Items\nEnd if<\/p>\n
sublogDrives <\/p>\n
Sub sublogDrives\n LogFile = “C:\\FSO\\” & username & “.txt”\n Set objFSO = CreateObject(“Scripting.FileSystemObject”)\n If objFSO.FileExists(LogFile) Then\n  Set objFile = objFSO.OpenTextFile(LogFile, ForAppending)\n  objfile.writeblanklines(2)\n  objFile.Writeline “******** ” & Now & “********”\n  objFile.writeline “User is: ” & username \n  objFile.writeline “computer is: ” & dnsHostName\n     For Each strKey In colKeys\n      objFile.writeline vbtab & strKey & objDictionary.item(strKey)\n     Next \n Else\n   Set objFile = objFSO.CreateTextFile(LogFile)\n   objFile.Writeline “******** ” & Now & “********”\n   objFile.writeline “User is: ” & username \n   objFile.writeline “computer is: ” & dnsHostName\n     For Each strKey In colKeys\n      objFile.writeline vbtab & strKey & objDictionary.item(strKey)\n     Next \n End If\n objFile.Close\nEnd sub\nWScript.echo “all done”\n<\/PRE>\n
Our script begins by defining a couple of variables and constants. We then create two strings that will serve as our two WMI queries. The first string, called wmiQuery<\/B>, chooses DeviceID<\/B> and ProviderName<\/B> from the Win32_LogicalDisk<\/A> WMI class. We limit the returned data to only drives that are network drives (in other words, mapped drives). The second WMI query, contained in the variable wmiQuery1<\/B>(like everything else in VBScript, it is zero based), chooses the name of the computer and the name of the user from theWin32_ComputerSystem<\/A> WMI class. We will use this information for our file output. These two lines of code are seen here:<\/P>
wmiQuery=”Select DeviceID, ProviderName from Win32_LogicalDisk & _\nwhere DriveType =” & networkdisk\nwmiQuery1 =”Select Name, UserName from Win32_ComputerSystem”\n<\/PRE>\n
Now we need to create a couple of objects. The first is the dictionary<\/B> object, which we will use to hold the drive-mappings we obtain from WMI. The next object is our connection into WMI, which is followed quickly by the objects returned by executing our two WMI queries. This code can be seen here: <\/P>
Set objDictionary = CreateObject(“scripting.dictionary”)\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer)\nset colDrives = objWMIService.ExecQuery(wmiQuery)\nSet colUsers = objWMIService.ExecQuery(wmiQuery1)\n<\/PRE>\n
Because we executed our WMI queries by using the ExecQuery<\/B> method, the objects that are returned are collections. This means we need to use for each next<\/B> to iterate through the collections and extract our data. We first want to obtain the name of the computer and the name of the user. So we use the for each next<\/A> loop and walk through the collection that is held in the colUsers<\/B> variable. Inside the loop, we use the replace<\/B> function to replace the \u201c\\\u201d that is in the username with an \u201c_\u201d because the \u201c\\\u201d will cause us problems with the file name. The first position of the replace<\/B> function is used to hold the text we want to modify. The second position holds the string we wish to find, and the third position contains the value with which we will perform the replacement. There are three other parameters available for the replace<\/A> function, but we did not need them here. Once we have the data, we store the values into a couple of variables we will use later:<\/P>
For Each user In colUsers\n userName = replace(user.UserName,”\\”,”_”)\n dnsHostName = user.Name\nNext\n<\/PRE>\n
Now we need to look through the drives that were returned by our query. The first thing we need to do is make sure we actually have some drives. If we do, we will walk through the collection and add the drive letter (deviceID<\/B>) and share mapping (providerName<\/B>) to our Dictionary<\/A> object. However, if there are no drives, we simply add the string, \u201cNo Drives Mapped\u201d to both the key and the value of our dictionary. This will help to avoid errors later in the script:<\/P>
if colDrives.count <> 0 Then\n for each drive in colDrives\n  objDictionary.add drive.DeviceID, drive.ProviderName\n  colKeys = objDictionary.Keys\n  colItems = objDictionary.Items\n Next\nElse\n objDictionary.add ” No Drives Mapped “, ” No Drives Mapped ”\n  colKeys = objDictionary.Keys\n  colItems = objDictionary.Items\nEnd if\n<\/PRE>\n
Now go into the sublogDrives<\/B> subroutine. Inside here, we first define the path to our output file. We assume there is a folder namedc:\\fso<\/B>, but we do not assume the log file itself exists. You could use the folderexists<\/A> method from the FileSystemObject<\/A> if you wish to check for the existence of the folder. Next, we create the FileSystemObject<\/B> and use the FileExists<\/B> method to see if the log file currently exists. If the log file does exist, we begin the process of writing to the file. To write to the file, we first use the OpenTextFile<\/B>method. Because we know the file already exists, we open the file so that we can append to it. We specify this action by using our previously defined ForAppending<\/B> constant. Because we would like a little bit of space between entries, we use the WriteBlankLines<\/B>method from the FileSystemObject<\/B>. Next we use the WriteLine<\/B> method to print our data to the file. This code is seen here:<\/P>
Sub sublogDrives\n LogFile = “C:\\FSO\\” & username & “.txt”\n Set objFSO = CreateObject(“Scripting.FileSystemObject”)\n If objFSO.FileExists(LogFile) Then\n  Set objFile = objFSO.OpenTextFile(LogFile, ForAppending)\n  objfile.writeblanklines(2)\n  objFile.Writeline “******** ” & Now & “********”\n  objFile.writeline “User is: ” & username \n  objFile.writeline “computer is: ” & dnsHostName\n     For Each strKey In colKeys\n      objFile.writeline vbtab & strKey & objDictionary.item(strKey)\n     Next\n<\/PRE>\n
If the file does not exist, we will want to create the file. To do this, we use the CreateTextFile<\/B> method from FileSystemObject<\/B>. We then use the same pattern of writing blank lines and iterating through the dictionary to populate the file. When we are done, we close the text file. This action is important to prevent possible file locking issues. It is simple enough to do: We call the Close<\/B> method. We are done, and so we print out a friendly \u201call done\u201d by using Wscript.echo<\/B>. If you call this from a logon script, you probably will not want the friendly \u201call done\u201d message. You can comment it out if you wish:<\/P>
Else\n   Set objFile = objFSO.CreateTextFile(LogFile)\n   objFile.Writeline “******** ” & Now & “********”\n   objFile.writeline “User is: ” & username \n   objFile.writeline “computer is: ” & dnsHostName\n     For Each strKey In colKeys\n      objFile.writeline vbtab & strKey & objDictionary.item(strKey)\n     Next \n End If\n objFile.Close\nEnd sub\nWScript.echo “all done”\n<\/PRE>\n
Whew! We are done. Here is what the text file looks like:<\/P>\n
\"Mapped<\/SPAN> <\/P>\n
SN, I hope this script can help you in beginning the long process of weeding out 160 logon scripts, and assist you in gaining a bit of sanity. We don’t have any scripts for you that have an explicit sanity output yet, but give us time.<\/P>\n
Ed Wilson and Craig Liebendorfer, Scripting Guys<\/B><\/B><\/SPAN><\/FONT><\/P><\/B><\/FONT><\/SPAN><\/FONT><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! We have this problem at work. Users seem to always be losing their mapped drives. It is a real mess, and we spend a couple hours every morning trying to help the users remap their drives. We have more than 160 logon scripts, and it seems that one logon script maps a […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[3,185,12,5],"class_list":["post-55143","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-scripting-guy","tag-shared-folders-and-mapped-drives","tag-storage","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! We have this problem at work. Users seem to always be losing their mapped drives. It is a real mess, and we spend a couple hours every morning trying to help the users remap their drives. We have more than 160 logon scripts, and it seems that one logon script maps a […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/55143","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=55143"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/55143\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=55143"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=55143"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=55143"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}