Zo. De teruggekeerde waarde zal 1 tot 4 zijn.
Sub ReadSecurityLevel ()
Op Fout hervat daarna
Verduister i_RegKey als Koord
Verduister myWS als Voorwerp
i_RegKey = „HKEY_CURRENT_USER \ het Niveau van de Veiligheid \ van het Bureau \ 11.0 \ Excel \ van de Software \ Microsoft \“
'het scripting van toegangsVensters
Reeks myWS = CreateObject („WScript.Shell“)
'gelezen sleutel van registratie
RegKeyRead = myWS.RegRead (i_RegKey)
Op Fout GoTo 0
Sub van het eind
