Un artículo de desarrollo web muy útil para el tema de seguridad en servidores:

Desactivar funciones PHP

Nos hablan de la variable de configuración disable_functions, que nos permite desahabilitar el uso de cualquier función de PHP que le indiquemos.

La siguiente función nos devuelve el nombre del usuario de Windows. Muy útil para implementar seguridad dentro de nuestras aplicaciones de Visual Basic o VBA

Declare Function GetUserName Lib “advapi32″ Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long

Public Function UserNameWin() As String
Dim sRet As String
Dim x As Long
Dim sRdo As String
sRet = String(80, Chr(0))
x = GetUserName(sRet, Len(sRet))
sRdo = lpTOstr(sRet)
If Len(sRdo) = 0 Then
sRdo = “Sin nombre”
End If
UserNameWin = sRdo
End Function
Public Function lpTOstr(szTmp As String) As String
Dim ich As Integer
ich = InStr(szTmp, Chr$(0))
If ich Then
lpTOstr = Left$(szTmp, ich - 1)
Else
lpTOstr = szTmp
End If
End Function

Los permisos podrían implementarse así:

Public Function permiso() As Boolean
Dim lista As String
lista = “usuario1,usuario2,usuario3″
If InStr(lista, UserNameWin) > 0 Then
permiso = True
Else
permiso = False
End If

End Function