VBS Scripts – Drives,Printers & Fonts

Drives.vbs ‘Remove Drives ON ERROR RESUME NEXT DIM objNetwork,colDrives,i SET objNetwork = CREATEOBJECT(“Wscript.Network”) SET colDrives = objNetwork.EnumNetworkDrives FOR i = 0 to colDrives.Count-1 Step 2 ‘ Force Removal of network drive and remove from user profile ‘ objNetwork.RemoveNetworkDrive strName, [bForce], [bUpdateProfile] objNetwork.RemoveNetworkDrive colDrives.Item(i),TRUE,TRUE NEXT ‘Connect Drives On Error Resume Next Læs mere…