Set WshNetwork = CreateObject("WScript.Network")
response.Write "<br/>Computer Name ==>> " & WshNetwork.ComputerName & "<br/>"
response.Write "<br/>Network drive mappings:<br/>"
Set clDrives = WshNetwork.EnumNetworkDrives
For i = 0 to clDrives.Count -1
response.Write clDrives.Item(i)
Next
Set clDrives = Nothing
Set WshNetwork = Nothing
Load balance : Server 05
