Exchange Server | Murat Bilici

"Empower your knowledge"

An unexpected error has occurred while trying to restrict permissions to your document. Contact your administrator for assistance

 
 

 

An unexpected error has occurred while trying to restrict permissions to your document. Contact your

administrator for assistance hatasını aşagıda bulunan script ile çözebilirsiniz.

 
 
 
DRM License Script

On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001

strComputer = “.”

Set objRegistry = GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)

strKeyPath = “SOFTWARE\Microsoft\Office\14.0\Common\DRM”

objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPath

‘ ServiceLocations Ekleniyor

Set objRegistry = GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)

strKeyPath = “SOFTWARE\Microsoft\Office\14.0\Common\DRM\ServiceLocations”

objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPath

‘ LicenseServerEkleniyor

Set objRegistry = GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)

strKeyPath = “SOFTWARE\Microsoft\Office\14.0\Common\DRM\LicenseServers”

objRegistry.CreateKey HKEY_CURRENT_USER, strKeyPath

‘https://adrms.domain.com.tr/_wmcs/licensing dordu ekleniyor

strValueName = “https://adrms.domain.com.tr/_wmcs/licensing”  dwValue = 1

objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue

‘ServiceLocations altýna string ordler eklenyior

strKeyPath = “SOFTWARE\Microsoft\Office\14.0\Common\DRM\ServiceLocations”

strValueName1 = “8|1|” strValue1 = “https://licensing.drm.microsoft.com/licensing”

strValueName2 = “2|2|https://adrms.domain.com.tr/_wmcs/licensing”

strValue2 = “https://adrms.domain.com.tr/_wmcs/certification”

strValueName3 = “8|2|https://adrms.domain.com.tr/_wmcs/licensing|”

strValue3 = “https://adrms.domain.com.tr/_wmcs/licensing”

strValueName4 = “2|2″strValue4 = “https://adrms.domain.com.tr/_wmcs/certification”

strValueName5 = “8|2″ strValue5 = “https://adrms./_wmcs/licensing”

strValueName6 = “1|2″ strValue6 = “https://adrms.domain.com.tr/_wmcs/certification”

objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName1, strValue1

objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName2, strValue2

objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName3, strValue3

objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName4, strValue4

objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName5, strValue5

objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName6, strValue6

Categories: Active Directory - AD RMS - Security