имя администратора компьютера

[Ципихович Эндрю]

Как узнать имя администратора компьютера, скалько пользователей на компе и их имена, узнать при помощи ВБА?

[Sla]

имя администратора - администратор

Вопрос Поставлен неверно.
Попытка номер 2....

[Ципихович Эндрю]

можно быть администратором - но иметь имя компютера любое не именно "Администратор"

[Kivals]

А еще можно входить в разные группы, и в администратора в том числе
А еще администраторов может быть несколько
А еще адинистратор домена может иметь ограниченые права на копьютер
А еще ...

[HandKot]

используйте WMI

Код:

Public Sub test_()

    Dim oLocator
    Set oLocator = CreateObject("wbemScripting.Swbemlocator")
    
    Dim oSvc
    Set oSvc = oLocator.ConnectServer()
    
    Set colItems = oSvc.ExecQuery("Select * from Win32_Account", , 48)
    
    For Each objItem In colItems
        Debug.Print "Caption: " & objItem.Caption
    '    Debug.Print "Description: " & objItem.Description
    '    Debug.Print "Domain: " & objItem.Domain
    '    Debug.Print "InstallDate: " & objItem.InstallDate
        Debug.Print "Name: " & objItem.Name
    '    Debug.Print "SID: " & objItem.SID
    '    Debug.Print "SIDType: " & objItem.SIDType
    '    Debug.Print "Status: " & objItem.Status
    Next

End Sub

P.S. Ципихович Эндрю   научитесь пользоваться поиском, а не только перетаскивание постов с одного форума на другой

[Ципихович Эндрю]

Спасибо, меня интересовало, вот  это:

Код:

'требуется иметь вверху модуля функцию:
'Private Declare Function IsUserAnAdmin Lib "shell32" () As Long
Select Case IsUserAnAdmin() 
Case 1:
Dim objShell
Set objShell = CreateObject("WScript.Shell")
'set date on local computer
objShell.Run ("%comspec% /c date 30-12-09")
Set objShell = Nothing
      
Case False:
MsgBox$ "У Вас недостаточно прав для изменения системного времени"
End Select