Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Lista kont użytkowników
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003
Lista kont użytkowników

Jak uzyskać (niekoniecznie za pomocą kodu w VB) listę kont użytkowników w systemach 2000/XP?

08-01-2005 20:40
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

z rejestru


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

09-01-2005 23:19
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

No, tego się domyślam, ale może ktoś wie z którego klucza?

10-01-2005 16:09
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Od czegoś trzeba zacząć

Zobacz na stronę:
http://support.microsoft.com/kb/q159498/

oraz cytuję za Sławomirem  Siudkiem, który przytoczył na forum VB kiedyś dawno temu taki przykład:

1. Dodajesz w projekcie referencje do 'Microsoft WMI Scripting'
2. Poniższą procedurę rozszerzasz o o zapis do pliku interesujących Cię
ustawień. Tu będą tylko wyświetlane:


Option Explicit

Const mconUF_NORMAL_ACCOUNT& = 512

Private Type UserInfo
  Name As String
  Domain As String
  FullName As String
  Caption As String
  Disabled As Boolean
  Lockout As Boolean
End Type

Public Sub Test()
  Dim oLocator As SWbemLocator
  Dim moWMIServices As SWbemServices
  Set oLocator = New SWbemLocator
  oLocator.Security_.AuthenticationLevel = wbemAuthenticationLevelConnect
  oLocator.Security_.ImpersonationLevel = wbemImpersonationLevelImpersonate
  Set moWMIServices = oLocator.ConnectServer

  Dim oAccountsWMI As SWbemObjectSet
  Set oAccountsWMI = _
      moWMIServices.InstancesOf( _
      "Win32_UserAccount", _
      wbemFlagReturnWhenComplete)

  Dim obj As Object
  For Each obj In oAccountsWMI
    If obj.AccountType = mconUF_NORMAL_ACCOUNT Then
      Dim ui As UserInfo
      With ui
        .Name = obj.Name
        .Domain = obj.Domain
        .FullName = obj.FullName
        .Caption = obj.Caption
        .Disabled = obj.Disabled
        .Lockout = obj.Lockout
      End With
      MsgBox ui.Name & vbNewLine _
            & ui.Domain & vbNewLine _
            & ui.FullName & vbNewLine _
            & ui.Caption
    End If
  Next

End Sub


[Post edytowany dnia 10-01-2005 23:17 przez karolinavb]


_____________________________________________
Karolina

10-01-2005 23:16
Pokaż profil karolinavb  Wyślij email do karolinavb   
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

tyle że to nie zadziała na 98 - to takie info

[Post edytowany dnia 11-01-2005 00:08 przez DJK]


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

11-01-2005 00:07
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

W WinXP (niewiem czy działa to na 98) poprostu zczytujesz nazwy wszystkich podkluczy w klucza: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

11-01-2005 16:18
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

czy zadziała w WIN 98 trzeba byłoby sprawdzić po zainstalowaniu:

http://www.microsoft.com/downloads/details.aspx?FamilyId=98A4C5BA-337B-4E92-8C18-A63847760EA5&displaylang=en
Windows Management Instrumentation (WMI) CORE 1.5 (Windows 95/98)

i przestudiownaiu materiałów:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q322363
INFO: Windows Management Instrumentation (WMI) on Computers Running Windows 98, Windows 98 Second Edition, and Windows Millennium Edition

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/using_the_wmi_scripting_type_library_with_visual_basic_and_visual_interdev.asp
Using the WMI Scripting Type Library with Visual Basic and Visual InterDev

???????????


_____________________________________________
Karolina

11-01-2005 23:12
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1