لا يعمل مكون "تسجيل الدخول كمستخدم آخر" على موقع SharePoint يتم نشرة بواسطة مجموعة طليعة عام 2010

الأعراض

يرجى مراعاة السيناريو التالي:
  • نشر موقع ويب Microsoft SharePoint باستخدام قاعدة نشر في Microsoft Forefront التهديد إدارة العبارة (تونس) 2010.
  • يستخدم قاعدة نشر تفويض مقيدة Kerberos (KCD).
  • وحدة إصغاء ويب لموقع ويب يستخدم مصادقة Windows أو مصادقة المستندة إلى النماذج (FBA).
  • مستخدم بتسجيل الدخول إلى موقع ويب SharePoint.

في هذا السيناريو، لا يعمل المكون بتسجيل الدخول "مستخدم آخر" على موقع SharePoint.

السبب

تحدث هذه المشكلة نظراً لوجود خطأ في التعليمات برمجية.

الحل

معلومات التحديث

تحديث البرامج المطلوب لحل هذه المشكلة الموضحة في مقالة قاعدة معارف Microsoft "(KB) التالية:
2498770 برامج التحديث 1 التراكمي 3 لمقدمة التهديد إدارة العبارة (تونس) 2010 Service Pack 1

لحل هذه المشكلة، قم بتطبيق هذا التحديث ثم قم بتشغيل البرنامج النصي التالي على أي عضو الصفيف.

ملاحظة: يتيح هذا البرنامج النصي نشر خادم SharePoint (SPS) التي تستخدم التفويض FBA والمصادقة التي تستخدم ككد. إذا كنت تريد تمكين النشر SPS يستخدم مصادقة المتكاملة، وإذا كنت تريد تفويض المصادقة استخدام ككد، تشغيل هذا البرنامج النصي. ثم قم بتشغيل البرنامج النصي إضافية الذي يتبع مباشرة:
Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"Const SE_VPS_NAME = "EnableSharepointSignIn"
Const SE_VPS_VALUE = true

Sub SetValue()

' Create the root object.
Dim root ' The FPCLib.FPC root object
Set root = CreateObject("FPC.Root")

'Declare the other objects that are needed.
Dim array ' An FPCArray object
Dim VendorSets ' An FPCVendorParametersSets collection
Dim VendorSet ' An FPCVendorParametersSet object

' Get references to the array object
' and to the network rules collection.
Set array = root.GetContainingArray
Set VendorSets = array.VendorParametersSets

On Error Resume Next
Set VendorSet = VendorSets.Item( SE_VPS_GUID )

If Err.Number <> 0 Then
Err.Clear

' Add the item.
Set VendorSet = VendorSets.Add( SE_VPS_GUID )
CheckError
WScript.Echo "New VendorSet added... " & VendorSet.Name

Else
WScript.Echo "Existing VendorSet found... value- " & VendorSet.Value(SE_VPS_NAME)
End If

if VendorSet.Value(SE_VPS_NAME) <> SE_VPS_VALUE Then

Err.Clear
VendorSet.Value(SE_VPS_NAME) = SE_VPS_VALUE

If Err.Number <> 0 Then
CheckError
Else
VendorSets.Save false, true
CheckError

If Err.Number = 0 Then
WScript.Echo "Done with " & SE_VPS_NAME & ", saved!"
End If
End If
Else
WScript.Echo "Done with " & SE_VPS_NAME & ", no change!"
End If

End Sub

Sub CheckError()

If Err.Number <> 0 Then
WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description
Err.Clear
End If

End Sub

SetValue
إذا كنت تريد تمكين النشر SPS يستخدم مصادقة المتكاملة، وإذا كنت تريد تفويض المصادقة استخدام ككد، أيضا بتشغيل البرنامج النصي التالي:
Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"Const SE_VPS_NAME = "UseOnlyNTLMForWindowsAuth"
Const SE_VPS_VALUE = 1

Sub SetValue()

' Create the root object.
Dim root ' The FPCLib.FPC root object
Set root = CreateObject("FPC.Root")

'Declare the other objects that are needed.
Dim array ' An FPCArray object
Dim VendorSets ' An FPCVendorParametersSets collection
Dim VendorSet ' An FPCVendorParametersSet object

' Get references to the array object
' and to the network rules collection.
Set array = root.GetContainingArray
Set VendorSets = array.VendorParametersSets

On Error Resume Next
Set VendorSet = VendorSets.Item( SE_VPS_GUID )

If Err.Number <> 0 Then
Err.Clear

' Add the item.
Set VendorSet = VendorSets.Add( SE_VPS_GUID )
CheckError
WScript.Echo "New VendorSet added... " & VendorSet.Name

Else
WScript.Echo "Existing VendorSet found... value- " & VendorSet.Value(SE_VPS_NAME)
End If

if VendorSet.Value(SE_VPS_NAME) <> SE_VPS_VALUE Then

Err.Clear
VendorSet.Value(SE_VPS_NAME) = SE_VPS_VALUE

If Err.Number <> 0 Then
CheckError
Else
VendorSets.Save false, true
CheckError

If Err.Number = 0 Then
WScript.Echo "Done with " & SE_VPS_NAME & ", saved!"
End If
End If
Else
WScript.Echo "Done with " & SE_VPS_NAME & ", no change!"
End If

End Sub

Sub CheckError()

If Err.Number <> 0 Then
WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description
Err.Clear
End If

End Sub

SetValue

الحالة

أقرت Microsoft أن هذه مشكلة في منتجات Microsoft المسردة في قسم "ينطبق على".

مزيد من المعلومات

لمزيد من المعلومات حول مصطلحات تحديث البرامج، انقر فوق رقم المقال التالي لعرضه في "قاعدة معارف Microsoft":

824684 وصف للمصطلحات القياسية المستخدمة في وصف تحديثات برامج Microsoft

خصائص

رقم الموضوع: 2445386 - آخر مراجعة: 12‏/01‏/2017 - المراجعة: 1

تعليقات