Prüfen ob lokaler Benutzer vorhanden ist

Xaroxan

Hallo,

könnt ihr mir bitte bei folgendem Problem helfen?

Ich möchte Prüfen, ob ein lokaler Benutzer bereits auf einem Rechner existiert.
Ist der Benutzer vorhanden, möchte ich das Skript beenden. Existiert der Nutzer nicht, soll dieser angelegt werden. Ich habe schon in dem Forum gesucht und konnte auch schon herausfinden wie ich einen neuen Nutzer anlegen.

Z.b.

RunWait(@COMSPEC & ' /c net user /add "MyUser" MyPassword /Comment:"My First User" /expires:never /passwordchg:no /Y ', "", @SW_HIDE)

Aber wie frage ich ab, ob ein User bereis vorhanden ist?

Danke schon mal

philipp

ich glaube das hier könnte dir helfen;)

**Tweaky**

philipp
dachte ich auch zuerst ...
Aber es kommt ein Fehler

Daraufhin habe ich das gefunden

misterspeed

Hier auch noch eine der zahlreichen Varianten um die vorhandene Windows User zu ermitteln:

EDIT:
Script entfernt und als Dateianhang hinzugefügt.
Grund: Forenbug der Backslashes aus dem Quellcode entfernt...

Die Prüfung ob der Acoount vorhanden ist kann dann anschließend einfach mit einem

[autoit]

_arraysearch()

[/autoit]

erledigt werden.

**Tweaky**

@ misterspeed
bei deiner Version kommt bei mir ein Fehler (Win 7 pro 64bit SP1)

Zitat

"C:\test02.au3" (27) : ==> Variable must be of type "Object".:
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_SystemUsers", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
$colItems = $objWMIService^ ERROR

philipp

Tweaky, bei windows 7 muss man da nur noch einen Backslash hinzufügen;) liegt an netzwerk zeug...

also script hier:

Spoiler anzeigen

[autoit]

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$sSuche = "Xaroxan"

[/autoit] [autoit][/autoit] [autoit]

$Output=""
$Output = $Output & "Computer: " & $strComputer & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

[/autoit] [autoit][/autoit] [autoit]

If IsObj($colItems) Then
For $objItem In $colItems
$Output = $Output & "GroupComponent: " & $objItem.GroupComponent & @CRLF
$Output = $Output & "PartComponent: " & $objItem.PartComponent & @CRLF
$aUserSplit = StringSplit(StringTrimLeft($objItem.PartComponent, 2), "")
If $aUserSplit[1] = $sSuche Then
MsgBox(0,"","User '" & $aUserSplit[1] & "' existiert bereits!")
EndIF
If Msgbox(1,"WMI Output",$Output) = 2 Then ExitLoop
$Output=""
Next
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_GroupUser" )
Endif

[/autoit]

Und sogar noch schön formuliert!!

**Tweaky**

der Fehler kommt immernoch

misterspeed

Zitat von Tweaky

@ misterspeed
bei deiner Version kommt bei mir ein Fehler (Win 7 pro 64bit SP1)

Sorry lag am altbekannten Forenbug. Hab den Code nun als Dateianhang hinzugefügt.
Stammt aber ohnehin nicht von mir, sondern irgendwo aus dem englischen Forum...

**Tweaky**

Danke nun gehts.

philipp

wow das buggt echt rum wie sonst was.. ich habs bisschen geändert, jetzt funktionierts. die slasheds werden irgendwie immer gelöscht also...

**AspirinJunkie**

Im Forum werdeb doppelte Anführungszeichen mit \" escaped.
Will man aber nun diese Reihenfolge aber geschrieben sehen muss man den Backslash wiederrum escapen.
Also dann so: \\"
Möchte man nun einen doppelten Backslash und dann ein Anführungszeichen muss man ergo vier Backslash schreiben: \\\\"

Runa

Warum eigentlich so kompliziert? Net Users gibt die lokalen Benutzer problemlos aus. Da braucht man das ganze Zeug da oben nicht - zumal sich noch bei 300 Benutzern kein wirklicher Geschwindigkeitsvorteil einstellt... einzig und allein eine Sache muss man bei net users tun: Die entsprechende Zeile aus der CMD lesen und sich so formatieren, wie man sie gerne hätte. Ein Beispiel:

[autoit]

Func _UserExists($sUser)
$CMD = Run(@ComSpec & " /c net users", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While Sleep(50)
$line &= StdoutRead($CMD)
If @error Then ExitLoop
Wend
$line = StringReplace($line, @LF, "")
$aString = StringSplit($line, @CR)
For $i = 1 To $aString[0]
If StringInStr($aString[$i], "Administrator") Then
$sTemp = " " & $aString[$i]
$sTemp = StringReplace($sTemp, " ", " ")
If StringInStr($sTemp, " " & $sUser) Then Return True
Return False
EndIf
Next
EndFunc

[/autoit]

Getestet auf Windows 7 64bit - funktioniert auch, während man selbst in einer Domäne ist

_mk_

[autoit]

ConsoleWrite(ExitsLocalUser("test"))

[/autoit][autoit][/autoit][autoit]

Func ExitsLocalUser($name)
Return IsObj(ObjGet(StringFormat('WinNT://localhost/%s,user', $name)))
EndFunc ;==>ExitsLocalUser

[/autoit]