you at least need an "end sub" at the end of your code
Tim Wagerle wrote: > > I did not write this script, but it is throwing an error screen. I > know next to nothing about vbs. If needed I can post the whole script > but here is the section that, appears to, say it is in error. The > error message ask for 'end' and I have tried end, end sub, end > function, to no avail. Thanks > > > > 'Program that maps the drives - Make no changes from here down > > Sub DriveMapper(Drive, Share) > > For i = 0 to oDrives.Count -1 Step 2 > > if LCase(Drive) = LCase(oDrives.Item(i)) then > > if not LCase(Share) = LCase(oDrives.Item(i+1)) then > > WSHNetwork.RemoveNetworkDrive Drive, true, true > > Else > > Exit Sub > > End if > > End if > > Next > > '(Line 150) > > 'Give the PC time to do the disconnect, wait 300 milliseconds > > wscript.sleep 300 > > WSHNetwork.MapNetworkDrive Drive, Share > > > > > > Tim Wagerle, TSS > > Josephine County Circuit Court > > Oregon Judicial Department > > [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> > > > > > > Tim Wagerle, TSS > > Josephine County Circuit Court > > Oregon Judicial Department > > [EMAIL PROTECTED] > > > > ~ Upgrade to Next Generation Antispam/Antivirus with Ninja! ~ ~ <http://www.sunbelt-software.com/SunbeltMessagingNinja.cfm> ~
