Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
'get all members of group and put them in the selection box Dim arrNames() intSize = 0 dd_group.style.width = 200 useraccounts.style.width = 200 group.style.width = 200 Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") Set objGroup = GetObject("LDAP://CN=G_Group,OU=ou1,OU=ou2,OU=ou3," & strDNSDomain) For Each strUser in objGroup.Member ReDim Preserve arrNames(intSize) Next For i = (UBound(arrNames) - 1) to 0 Step -1 For j= 0 to i If UCase(arrNames(j)) > UCase(arrNames(j+1)) Then strHolder = arrNames(j+1) arrNames(j+1) = arrNames(j) arrNames(j) = strHolder End If Next Next For Each strUser in arrNames Set objOption = Document.createElement("OPTION") objOption.Text = Split(strUser, "|")(0) objOption.Value = Split(strUser, "|")(1) UserAccounts.Add(objOption) Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.