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.
