Velocity Technical Archive
Script to remove all network shares
Archived Reference: This is a historical technical article preserved from the Velocity Technologies knowledge base. For current Phoenix and East Valley managed IT services, explore our managed IT services or cybersecurity solutions.
Option Explicit\nDim objNetwork, objShell, strDriveLetter, strDriveLetter2, strDriveLetter3, strDriveLetter4, strDriveLetter5, strDriveLetter6, strDriveLetter7, strDriveLetter8, strDriveLetter9, strDriveLetter10, strDriveLetter11, strDriveLetter12, strDriveLetter13, strDriveLetter14, strDriveLetter15, strDriveLetter16, strDriveLetter17, strDriveLetter18, strDriveLetter19, strDriveLetter20, strDriveLetter21, strDriveLetter22, strDriveLetter23, strDriveLetter24, strDriveLetter25\nDim bForce, bUpdateProfile\nstrDriveLetter = "e:"\nstrDriveLetter2 = "d:"\nstrDriveLetter3 = "e:"\nstrDriveLetter4 = "f:"\nstrDriveLetter5 = "g:"\nstrDriveLetter6 = "h:"\nstrDriveLetter7 = "i:"\nstrDriveLetter8 = "j:"\nstrDriveLetter9 = "k:"\nstrDriveLetter10 = "l:"\nstrDriveLetter11 = "m:"\nstrDriveLetter13 = "n:"\nstrDriveLetter14 = "o:"\nstrDriveLetter15 = "p:"\nstrDriveLetter16 = "q:"\nstrDriveLetter17 = "r:"\nstrDriveLetter18 = "s:"\nstrDriveLetter19 = "t:"\nstrDriveLetter20 = "u:"\nstrDriveLetter21 = "v:"\nstrDriveLetter22 = "w:"\nstrDriveLetter23 = "x:"\nstrDriveLetter24 = "y:"\nstrDriveLetter25 = "z:"\nbForce = "True"\nbUpdateProfile = "True"\nerr.number = vbempty\nSet objNetwork = CreateObject("WScript.Network")\n' Removes strDriveLetter, with bForce, pUpdate Profile\nOn Error Resume Next\nobjNetwork.RemoveNetworkDrive strDriveLetter, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter2, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter3, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter4, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter5, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter6, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter7, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter8, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter9, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter10, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter11, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter12, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter13, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter14, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter15, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter16, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter17, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter18, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter19, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter20, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter21, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter22, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter23, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter24, bforce, bUpdateProfile\nobjNetwork.RemoveNetworkDrive strDriveLetter25, bforce, bUpdateProfile\n' Error correcting code\nIf err.number = vbEmpty then\nSet objShell = CreateObject("WScript.Shell")\nobjShell.run ("Explorer")\nEnd If