Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Set dResources = CreateObject("Scripting.Dictionary") Set oConnection = GetObject("WinNT://DT_A2O_XW6200_1/LanmanServer") Set cResources = oConnection.Resources For Each oResource in cResources If Not dResources.Exists(LCase(oResource.User)) Then dResources.Add LCase(oResource.User), 1 Next Set cResources = Nothing Set cSessions = oConnection.Sessions For Each oSession in cSessions If Not dResources.Exists(LCase(oSession.User)) Then _ cSessions.Remove(oSession.Name) Next Set cSessions = Nothing Set oConnection = Nothing Set dResources = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.