Moin zusammen.
Wie kann ich die reinen Benutzerkonten von einem Windows-PC auslesen.
Meine die Konto, wo ich am Anfang den Namen durch anklicken auswähle und dann ein Passwort eingebe.
LG
Moin zusammen.
Wie kann ich die reinen Benutzerkonten von einem Windows-PC auslesen.
Meine die Konto, wo ich am Anfang den Namen durch anklicken auswähle und dann ein Passwort eingebe.
LG
Ich hab da mal eben was hingekleckert
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.0
Author: Mahagon
#ce ----------------------------------------------------------------------------
#include <Array.au3>
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
;=================================================================================================================================
; Name: _Win_User_Read($Computer = '127.0.0.1')
;
; Parameter: $Computer (Optional) - Zielcomputer auf dem der Befehl ausgeführt werden soll
;
; Rückgabewert:
; -2 Wert ist kein (eindimensionales) Array oder/und kein Objekt
; -1 Objekt existiert nicht
; Erfolg: Liste lokaler und domäne Benutzer in einem Array ([0] = Anzahl der User)
;
; Systemanforderungen: Client: Mindestens Windows 2000 Professional
; Server: Mindestens Windows 2000 Server
;
;MSDN Library: http://msdn.microsoft.com/en-us/library/aa394507(VS.85).aspx
;=================================================================================================================================
Func _Win_User_Read($Computer = '127.0.0.1')
$Win_Aktivierungs_Status = ObjGet('winmgmts:\\' & $Computer & '\root\CIMV2')
If IsObj($Win_Aktivierungs_Status) = 0 Then
Return SetError(-1)
Else
$ObjList = $Win_Aktivierungs_Status.ExecQuery('select * from win32_useraccount', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
Local $Array[1]
For $ObjItem In $ObjList
_ArrayAdd($Array,$ObjItem.Name)
Next
$Array[0] = UBound($Array)
If UBound($ObjItem) = 0 And IsObj($ObjItem) = 1 Then
If $ObjItem.Name = 0 Then
Return $Array
Else
Return 1
EndIf
Else
Return SetError(-2)
EndIf
EndIf
EndFunc