Active Directory Federation Services (AD FS)

Asked By 0 points N/A Posted on -

I need your help kindly anyone.

My company’s network consists of a single Active Directory domain named suppose All servers on the network run Windows Server contains a server named KI-2 that has the Active Directory Federation Services (AD FS) role installed. I have to test the Connectivity of clients in the network to make sure that they can reach the new Federation server and that the Federation server is operational please tell me what should I do?

Answered By 0 points N/A #95485

Active Directory Federation Services (AD FS)


There are 3 options to resolve this issue.

1- Upgrade to PCNS 3.0 for Windows Server 2008

2– Created a local user APC and added the user to the local admin group. Log in as APC and install the software.

3 – Edit install.vbs and replace the subroutine IsRootUser()  – lines 253 to 288 – with the updated code below.

Sub IsRootUser ()
    Dim strUserName, strComputerName, strUserDomain, strAdminPath, strAdminPath2, objAdminInfo
    Dim objNetwork, objAdminGroup, objAdminGroup2
    Dim bResult
    Set objNetwork = CreateObject("Wscript.Network")
    strUserName = objNetwork.UserName
    strComputerName = objNetwork.ComputerName
    strUserDomain = objNetwork.UserDomain
    strAdminPath = "WinNT://" & strComputerName & "/Administrators,group"

    bResult = False
    If (strComputerName = strUserDomain) Then
         Set objAdminGroup = GetObject(strAdminPath)
         If objAdminGroup.PropertyCount > 0 Then
             Dim strMem
             For Each strMem In objAdminGroup.Members

                 If ( LCase(strMem.Name) = LCase(strUserName) ) Then
                bResult = True
                 End If
        WScript.StdOut.WriteLine "[Error]: Connecting to the local Administrators group on " & strComputerName & " failed."
         End If
         strAdminPath2 = "WinNT://" & strUserDomain & "/Domain Admins,group"
         Set objAdminGroup2 = GetObject(strAdminPath2)
         If objAdminGroup2.PropertyCount > 0 Then
             Dim strMem2
             For Each strMem2 In objAdminGroup2.Members

                 If ( LCase(strMem2.Name) = LCase(strUserName) ) Then
                     bResult = True
                 End If
             WScript.StdOut.WriteLine "[Error]: Connecting to the Administrators group on Domain " & strUserDomain & " failed."
         End If
    End If

    If (bResult <> True) Then
        WScript.StdOut.WriteLine "[Error]: " & WScript.ScriptName & " must be run with administrator privileges!"
    End If
    Set objNetwork = Nothing
    Set objAdminGroup = Nothing
End Sub

Note: APC does not accept any responsibility for problems that arise after manually updating the script. We strongly recommend making a copy of the install script before editing.

Login/Register to Answer

Related Questions