Asked By
daniel D
0 points
N/A
Posted on - 10/22/2011
I need your help kindly anyone.
My company’s network consists of a single Active Directory domain named suppose Net.com. All servers on the Net.com network run Windows Server 2008.Net.com 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?
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
             Next
         Else
        WScript.StdOut.WriteLine "[Error]: Connecting to the local Administrators group on " & strComputerName & " failed."
         End If
    Else
         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
             Next
         Else
             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!"
        CancelInstallation
    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.
