Hope This Helps

Problem :

Bei internen (Intranet) Anwendungen werden die ActiveX Steuerelemente geblockt

Lösung :

1.) Eine Datei anlegen mit der Endung .vbs z.B. set_activex.vbs
2.) Den unten aufgeführten Code in diese Datei kopieren
3.) Das Skript mit in das Loginscript aufnehmen z.B. start /B cscript.exe //NOLOGO [PFAD zum Skript]\set_activex.vbs

Nachdem das Skript beim Login durchgelaufen ist stehen alle ActiveX Berechtigungen auf Aktiviert

Option Explicit
' --------------------------------------------------------------------------------------------
' - Setz die sicherheit für die ActiveX Steuerelemente für die lokale Zone auf erlauben
' -
' - Source : Christopher Pope
' --------------------------------------------------------------------------------------------
Dim ObjWsh : Set ObjWsh = CreateObject("WScript.Shell")
DIm I
Dim RegZone : RegZone = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\"
Dim PopUpReg : PopUpReg = "HKCU\Software\Microsoft\Internet Explorer\New Windows\PopupMgr"

' -------- ActiveX Keys deklarieren
Dim RegArray(9)
RegArray(0) = "1001"
RegArray(1) = "1004"
RegArray(2) = "1200"
RegArray(3) = "1201"
RegArray(4) = "1405"
RegArray(5) = "2201"
RegArray(6) = "2000"
RegArray(7) = "1208"
RegArray(8) = "1209"
RegArray(9) = "120A"

On Error Resume Next

For I = 0 to Ubound(RegArray)
Call Set_AX_Allow(RegArray(I))
Next

'-------- PopUp Blocker deaktivieren
If ObjWsh.RegRead(PopUpReg) = "yes" Then
ObjWsh.RegWrite PopUpReg,"no","REG_SZ"
End If

WScript.Quit (1)


Function Set_AX_Allow(ID)
If ObjWsh.RegRead(RegZone & ID) <> 0 then
ObjWsh.RegWrite RegZone & ID,0,"REG_DWORD"
End If
End Function