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.
Set ADOConn = CreateObject("ADODB.Connection") ADOConn.Provider = "ADsDSOObject" ADOConn.Open "ADs Provider" Set ADOCommand = CreateObject("ADODB.Command") Set ADOCommand.ActiveConnection = ADOConn ADOCommand.CommandText = "<LDAP://uk-bre-cts-vsed-read1.acme.com/dc=acme,dc=com>;(&(objectclass=acmeperson)(uid=bloggs01));adspath;Subtree" Set RS = ADOCommand.Execute If Not rs.eof Then While Not RS.EOF Set objUser = GetObject("", RS.Fields("adspath")) wscript.echo "BU_Cat,"& objuser.get("businesscategory") wscript.echo "Country short,"& objuser.get("c") wscript.echo "Surname, Forename,"& objuser.get("cn") wscript.echo "Country full,"& objuser.get("co") RS.MoveNext Wend End If RS.Close Set ADOConn = Nothing Set ADOCommand = Nothing Set RS = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|ejb wildfly example||2||105|
|Does sending carbon copy messages to yourself double the size in Lotus Notes?||3||41|
|programming a polycom voip phone||3||80|
|Cannot locate cell||15||37|
Join the community of 500,000 technology professionals and ask your questions.