Как посмотреть под какой записью сидит юзер?

[DarkMercery]

Не подскажите как можно узнать под какой записью сидит юзер? Под админской или под юзерской?

[Wolfie]

В API Guide есть то что нужно:

Код: Выделить всё

Option Explicit
Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Debug.Print "Are you an Administrator? " & CBool(IsNTAdmin(ByVal 0&, ByVal 0&))
End Sub

работоспособность не прверял[/quote]

[DarkMercery]

Wolfie Спасибо=) Все в работоспособном состоянии