Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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.