Active Directory Federation Services (AD FS)

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.