Solved

Logoff script to delete drive mappings

Posted on 2010-09-01
4
813 Views
Last Modified: 2012-06-27
I am trying to make a logoff script to remove all drive mappings other than the user drive (U:). This is so that I can ensure that any user created mappings are deleted.

My script fails when a drive mapping does not exist and does not move on to the next one.

Can anyone help?

Thanks
Dim wshNetwork, wshShell

on error resume next


Disconnect()


Sub Disconnect()

Set wshNetwork = WScript.CreateObject("WScript.Network")
    wshNetwork.RemoveNetworkDrive "e:"
    wshNetwork.RemoveNetworkDrive "g:"
    wshNetwork.RemoveNetworkDrive "i:"
    wshNetwork.RemoveNetworkDrive "j:"
    wshNetwork.RemoveNetworkDrive "k:"
    wshNetwork.RemoveNetworkDrive "l:"
    wshNetwork.RemoveNetworkDrive "m:"
    wshNetwork.RemoveNetworkDrive "n:"
    wshNetwork.RemoveNetworkDrive "o:"
    wshNetwork.RemoveNetworkDrive "p:"
    wshNetwork.RemoveNetworkDrive "q:"
    wshNetwork.RemoveNetworkDrive "r:"
    wshNetwork.RemoveNetworkDrive "s:"
    wshNetwork.RemoveNetworkDrive "t:"
    wshNetwork.RemoveNetworkDrive "v:"
    wshNetwork.RemoveNetworkDrive "w:"
    wshNetwork.RemoveNetworkDrive "x:"
    wshNetwork.RemoveNetworkDrive "y:"
    wshNetwork.RemoveNetworkDrive "z:"

End sub

Open in new window

0
Comment
Question by:aideb
  • 2
4 Comments
 
LVL 34

Assisted Solution

by:Shreedhar Ette
Shreedhar Ette earned 50 total points
ID: 33574739
Hi,

Refer this:
http://www.computerperformance.co.uk/Logon/Logon_Remove.htm

Hope this helps,
Shree
0
 
LVL 25

Assisted Solution

by:Tony Johncock
Tony Johncock earned 250 total points
ID: 33574761
Try adding this in front of each remove line:

if objfso.DriveExists("R:") wshNetwork.RemoveNetworkDrive "r:"


0
 
LVL 25

Assisted Solution

by:Tony Johncock
Tony Johncock earned 250 total points
ID: 33574772
Sorry - forgot to define objFSO for you:

Set objFSO = CreateObject("Scripting.FileSystemObject")
0
 
LVL 3

Accepted Solution

by:
bobalob earned 200 total points
ID: 33585449
Also you can check drive type on the fly with objFSO.GetDrive("X:").DriveType, 3 being a network map.

Example code attached.
On Error Resume Next
Dim objDrive
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim wshNetwork: Set wshNetwork = WScript.CreateObject("WScript.Network")

For i = Asc("F") to Asc("Z")
	if i <> Asc("U") then ' Ignore U: drive
		if objFSO.DriveExists(chr(i)) then 
			Set objDrive = objFSO.GetDrive(chr(i))
			if objDrive.DriveType = 3 then ' Network drive
				wshNetwork.RemoveNetworkDrive chr(i) & ":", true
			end if
		end if
	end if
Next
Set objDrive = Nothing
Set objFSO = Nothing
Set wshNetwork = Nothing

Open in new window

0

Featured Post

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

MS Outlook is a world-class email client application that is mainly used for e-communication globally.  In this article, we will discuss the basic idea about MS Outlook, its advanced features, and types of MS Outlook File formats.
Large Outlook files lead to various unwanted errors and corruption issues. Furthermore, large outlook files can also make Outlook take longer to start-up, search, navigate, and shut-down. So, In this article, i will discuss a method to make your Out…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

685 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question