One of our newer domains is having a problem with connection to mapped drives, server, internet, and shared printer connection lose. Once the connection is dropped it will not re-sync or reconnect to mapped drives ect... untill a full reboot is done. We've not done much in the way of changing any settings on the server that I know of. What could be the cause of this issue?

We're using WS2003 SE R2, have the server setup to be the DNS/DHCP, have a ADSL modem in bridge mode, ASA5510 as the default gatway, and a switch. the topology goes from ADSL to ASA to switch. at this point everything is connected to the switch. all the computer's on the network are XP PRO SP3. some are brand new some are old and 90% of them are laptops.

I'm no policy or VBS expert, but here is another thing I think might be causing a lot of our problems.

HERE IS A LOGIN SCRIPT: SERVER NAME HAS BEEN CHANGED TO **SERVER NAME** AND SOME FILE LOCATIONS HAVE BEEN CHANGED TO **FILE NAME** to protect our business.
----------------------------------------------------------


' NAME: LogonScript.vbs
'
' AUTHOR: Mark D. MacLachlan, The Spider's Parlor
' URL : http://www.thespidersparlor.com
' DATE : 4/10/2003
'
' COMMENT: Enumerates current users' group memberships in given domain.
'
'==========================================================================


ON ERROR RESUME NEXT

Dim WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Path


Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
Set objDomain = getObject("LDAP://rootDse")
DomainString = objDomain.Get("dnsHostName")

UserString = WSHNetwork.UserName
'Bind to the user object to get user name and check for group memberships later
Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString)

'Synchronizes the time with Server our NTP Server
WSHShell.Run "NET TIME \\**SERVER NAME** /set /y"


'Disconnect ALL mapped drives
Set clDrives = WshNetwork.EnumNetworkDrives
For i = 0 to clDrives.Count -1 Step 2
WSHNetwork.RemoveNetworkDrive clDrives.Item(i), True, True
Next

'Give the PC time to do the disconnect, wait 300 milliseconds
wscript.sleep 300

'Map drives needed by all
'wshNetwork.MapNetworkDrive "z:", "\\**SERVER NAME**\users" & UserString,True 'Basically maps home drive
'wshNetwork.MapNetworkDrive "s:", "\\**SERVER NAME**\common",True
'Now check for group memberships and map appropriate drives
For Each GroupObj In UserObj.Groups
Select Case GroupObj.Name
'Check for group memberships and take needed action
Case "Carefacts Users" 'Group Name
wshNetwork.MapNetworkDrive "t:", "\\**SERVER NAME**\**FILENAME**",True
'Case "engineering"
'wshNetwork.MapNetworkDrive "f:", "\\**SERVER NAME**\engineering",True
'WSHNetwork.SetDefaultPrinter "\\servername\sharename"
'Case "management"
'wshNetwork.MapNetworkDrive "f:", "\\lhServer\management",True
'Case "purchasing"
'wshNetwork.MapNetworkDrive "f:", "\\lhServer\purchasing",True
'Case "quality"
'wshNetwork.MapNetworkDrive "f:", "\\lhServer\quality",True
'Case "sales"
'wshNetwork.MapNetworkDrive "f:", "\\lhServer\sales",True
'Case "service"
'wshNetwork.MapNetworkDrive "f:", "\\lhServer\service",True
Case "administrators"
wshNetwork.MapNetworkDrive "t:", "\\**SERVER NAME**\**FILE NAME**",True
'wshNetwork.MapNetworkDrive "m:", "\\lhServer\sales",True
'wshNetwork.MapNetworkDrive "n:", "\\lhServer\quality",True
'wshNetwork.MapNetworkDrive "o:", "\\lhServer\purchasing",True
'wshNetwork.MapNetworkDrive "p:", "\\lhServer\management",True
'wshNetwork.MapNetworkDrive "q:", "\\lhServer\engineering",True
'wshNetwork.MapNetworkDrive "r:", "\\lhServer\accounting",True
'wshNetwork.MapNetworkDrive "s:", "\\lhServer\common",True

End Select
Next

'Remove ALL old printers
'Enumerate all printers first, after that you can select the printers you want by performing some string checks
'Set WSHPrinters = WSHNetwork.EnumPrinterConnections
'For LOOP_COUNTER = 0 To WSHPrinters.Count - 1 Step 2
'To remove only networked printers use this If Statement
'If Left(WSHPrinters.Item(LOOP_COUNTER +1),2) = "\" Then
'WSHNetwork.RemovePrinterConnection WSHPrinters.Item(LOOP_COUNTER +1),True,True
'End If
'To remove all printers incuding LOCAL printers use this statement and comment out the If Statement above
'WSHNetwork.RemovePrinterConnection WSHPrinters.Item(LOOP_COUNTER +1),True,True
'Next

'Remove a specific printer
'WSHNetwork.RemovePrinterConnection "\\ServerOld\HP5si",True,True

'Install Printers
'WSHNetwork.AddWindowsPrinterConnection "\\servername\printername"
'WSHNetwork.AddWindowsPrinterConnection "\\servername\printername"
'WSHNetwork.AddWindowsPrinterConnection "\\servername\printername"
'WSHNetwork.SetDefaultPrinter "\\servername\printername"


'Clean Up Memory We Used
set UserObj = Nothing
set GroupObj = Nothing
set WSHNetwork = Nothing
set DomainString = Nothing
set WSHSHell = Nothing
Set WSHPrinters = Nothing

'Call WSHShell.Run("cmd.exe /C \\server\folder\folder\folder\scan32.exe")

'Quit the Script
wscript.quit

__________________________________________

All this is used to map 1 drive for all of our users. I did not put this script in, but a third party tech company my boss hired to help us. I'm thinking this maybe the problem, but don't have a solution to remapping the drives if I take this out of our policy's. I have never created a VBS script to map drives for all users.

Thanks for reading over my issues, I will greatly appreciate help in this matter.