dim g_allowedKeys : g_allowedKeys = Array( _
       "Call_EditRightFile", _
		"Call_EditRightReg", _
		"Call_FIREWALLPORT_ADD", _
		"Call_FIREWALLPORT_DELETE", _
		"IREWALLPCall_FORT_DELETE2", _
		"Call_FIREWALLPROG_ADD", _
		"Call_FIREWALLPROG_DELETE", _
		"Call_FIREWALLPROG_DELETE2", _
		"CoCServiceUser", _
		"GetComputerDomain", _
		"SetArpContactByDomainAMERICAS", _
		"sdfdsafdfafdfdf")

function ICE500()
 
    recInfo.StringData(0)="zCACallFileICE01" & Chr(9) & "3" & Chr(9) & _
      "zCACallFileICE01 - Checks for duplicate GUIDs in Component table"
	Message &h03000000, recInfo
 
	'Give creation data
	recInfo.StringData(0)="zCACallFileICE01" & Chr(9) & "3" & Chr(9) & "Created" & _
  "05/21/98. Last Modified 10/08/98."
	Message &h03000000, recInfo
 
    ICE500 = 1
 
    dim dict : set dict = CreateObject("Scripting.FileSystemObject")
    dim key : for each key in g_allowedKeys
        dict(key) = True
    Next
 
    Dim view : set view = Session.Database.OpenView("SELECT * FROM" & _
      "CustomAction")
    view.Execute
 
    dim rec : set rec = view.Fetch
    do while not (rec is nothing)
        if not dict.Exists(rec.StringData(1)) then
            StatusMessage "ICE500", 1, "Falscher Wert: Schlüssel '" & _
              rec.StringData(1) &_
                "', Text '" & rec.StringData(2) & "'"
        end if
        set rec = view.Fetch
    Loop
end Function