Domain Connection Check

[JRSmile]

I wrote a little script that checks all your domaincontrollers if they can ping each other,

unfortunately it only works on 2k3/2k8 servers and xp machines (didn't test with vista)...:

expandcollapse popup

#include <array.au3>

if Not IsAdmin() Then; this is to check if the script has the rights to use the wmi service on the servers, could not work in your domain.
    RunAs("DOMAINADMIN", "DOMAIN", "DOMAINADMINPASS",0, @ScriptFullPath, @ScriptDir)
    Exit
EndIf


Dim $servers = get_dcs()

$count = (($servers[0]^)2-$servers[0])

ToolTip("Will check " & $count& " connections.",0,0)
Sleep(1000)

Dim $res[UBound($servers)][UBound($servers)]
$pos = 0
$checked = ""
For $x = 1 to $servers[0]
    $res[$x][0] = $servers[$x]
    $res[0][$x] = $servers[$x]
    For $y = 1 to $servers[0]
        $pos += 1
        ToolTip($checked & @CRLF & "Checking connection between: " & $servers[$x] & " and " & $servers[$y] & " [" &$pos & "/" & $count & "]", 0,0)
        if $servers[$x] = $servers[$y] Then
            $res[$x][$y] = "X"
        Else
            $res[$x][$y] = WMI_Ping($servers[$x], $servers[$y])
        EndIf
        $checked = "Checked connection between: " & $servers[$x] & " and " & $servers[$y] & " ==> " & $res[$x][$y] & " [" &$pos & "/" & $count & "]"
    Next
Next

_ArrayDisplay($res)


Func WMI_Ping($src, $dest)
    $ObjWMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $src & "\root\cimv2")
    if not IsObj($ObjWMI) then Return SetError(1,0,False)
    $ColPingedComputer = $ObjWMI.ExecQuery("Select * from Win32_PingStatus" & " Where Address = '"&$dest&"'")
    For $ObjComputer In $ColPingedComputer
        If $ObjComputer.StatusCode = 0 Then
            Return True
        Else
            Return False
        EndIf
    Next
EndFunc  ;==>WMI_Ping

Func get_dcs()
    $objRootDSE = ObjGet("LDAP://RootDSE")
    $strConfigurationNC = $objRootDSE.Get("configurationNamingContext")
    $objConnection = ObjCreate("ADODB.Connection")
    $objCommand = ObjCreate("ADODB.Command")
    $objConnection.Provider = "ADsDSOObject"
    $objConnection.Open("Active Directory Provider")
    $objCommand.ActiveConnection = $objConnection
    $objCommand.Properties("Page Size") = 1000
    $objCommand.Properties("Searchscope") = 2
    $objCommand.CommandText = "SELECT ADsPath FROM 'LDAP://" & $strConfigurationNC & "' WHERE objectClass='nTDSDSA'"
    $objRecordSet = $objCommand.Execute

    $objRecordSet.MoveLast
    Local $res[$objRecordSet.RecordCount + 1]
    $res[0] = $objRecordSet.RecordCount

    $objRecordSet.MoveFirst
    Local $i = 0
    While Not $objRecordSet.EOF
        $i += 1
        $ads = $objRecordSet.Fields("ADsPath").Value
        $1 = ObjGet($ads)
        $objParent = ObjGet($1.Parent)
        $res[$i] = $objParent.CN
        $objRecordSet.MoveNext
    WEnd    
    Return $res
EndFunc  ;==>get_dcs

[ptrex]

@JRSmile

Nice script, I can use this.

But there is an error in it.

See line

$count = (($servers[0]^)2-$servers[0])

should be

$count = (($servers[0])^2-$servers[0])

Regards

ptrex

[JRSmile]

thanks for this, got a faulty in my math part of brain ...