CMD Aulesen

Aiden

Hallo Leute...

GTA-Spider hatte mir neulich eine von ihm geschriebene Funktion zur Verfügung gestellt.

diese funktioniert auch soweit nur ich habe grade versucht die Funktion zu erweitern durch /DOMAIN (mehr habe ich nicht hinzugefügt.

Nun verursacht das Programm aber einen Fehler

kann mir da jemand helfen?

Spoiler anzeigen

[autoit]

#include <process.au3>
#include <array.au3>

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

$load = check_online()

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

For $i = 1 to $load[0]
MsgBox(0, "Test", $load[$i])
Next

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

Func check_online()
;By GtaSpider
Local $stdBuffer, $sreBuffer
$Pid = Run(@ComSpec & ' /c net view /DOMAIN', '', @SW_HIDE, 2 + 4)
While Not @error
$stdBuffer &= StdoutRead($Pid)
WEnd
$sreBuffer = StringRegExp ($stdBuffer, "\\\\([a-zA-Z0-9-]*)", 3)
$usre = UBound($sreBuffer)
ReDim $sreBuffer[$usre+1]
_ArrayPush($sreBuffer,$usre,1)
ProcessClose($Pid)
Return $sreBuffer
EndFunc

[/autoit]

**bernd670**

Der Fehler liegt in dem Fall bei StringRegExp da mit "net view /domain" ja die Domäen-Namen aufgelistet werden und diese nicht "\\" anfangen!

Aiden

Ja ich habe mich auch versucht in der Hilfe durch diese Func druchzuwühlen.

Aber mein englisch ist nicht das beste rundum

ich weiß nicht was die bei StringRegEXP von mir wollen

**bernd670**

Ich bin mir jetzt nicht sicher ob der Befehl net view /domain die Domänennamen grundsätzlich in Grossbuchstaben ausgibt, wenn ja sollte es so gehen. Wenn nicht dann wird es etwas aufwendiger!

[autoit]

#include <process.au3>
#include <array.au3>

$load = check_online()

For $i = 1 to $load[0]
MsgBox(0, "Test", $load[$i])
Next

Func check_online()
;By GtaSpider
Local $stdBuffer, $sreBuffer
$Pid = Run(@ComSpec & ' /c net view /DOMAIN', '', @SW_HIDE, 2 + 4)
While Not @error
$stdBuffer &= StdoutRead($Pid)
WEnd
$sreBuffer = StringRegExp ($stdBuffer, "(\S[A-Z]+\S[A-Z0-9._-]\S*)", 3)
$usre = UBound($sreBuffer)
ReDim $sreBuffer[$usre+1]
_ArrayPush($sreBuffer,$usre,1)
ProcessClose($Pid)
Return $sreBuffer
EndFunc

[/autoit]

**Xenobiologist**

Hi,

mal abgesehen davon, dass du Process nicht includen brauchst, könntest du es doch auch ohne RegExp machen.

Oder nicht?

So long,

Mega

Aiden

nunja ich habe es nun soweit gelöst

Spoiler anzeigen

[autoit]

#include <process.au3>
#include <array.au3>

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

Local $cmd_id_read, $put[1]
$cmd_get = RUN(@ComSpec & ' /c net view /DOMAIN', '' , @SW_HIDE, 2 + 4)

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

While 1
$cmd_id_read = StdoutRead($cmd_get)
If @error Then ExitLoop
_ArrayAdd($put, $cmd_id_read)
WEnd

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

$i = 4
While 1
If $put[$i] = StringInStr($put[$i], "Der Befehl") Then
MsgBox(0, "Test", $put[$i])
Else
ExitLoop
EndIf
$i = $i + 2
WEnd

[/autoit]

Habe es aber noch nicht im Programm wo es nachher eigentlich sein soll getestet

Sammy

Ich würde statt

[autoit]

$Pid = Run(@ComSpec & ' /c net view /DOMAIN', '', @SW_HIDE, 2 + 4)

[/autoit][autoit]

#include <Process.au3>

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

_RunDOS("net view /DOMAIN")

[/autoit]

verwenden ist besser

Aiden

mit _RunDOS funktioniert es aber nicht.... da sacht das Script garnichts

**Xenobiologist**

Hi,

ähm, ich will ja nichts sagen Sammy, aber hast du dir mal die Funktion angeguckt?

Das nacht _RunDos()

[autoit]

Func _RunDOS($sCommand)
Return RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
EndFunc ;==>_RunDOS

[/autoit]

So long,

Mega

Sammy

Ich hatte heute morgen das gleiche Problem mit WPI. In WPI ist eine Zeile mit Run drin die die CMD ansteuert. Das habe ich geändert in _RunDOS und es funktioniert.

Mein Test-Skript:

[autoit]

#include <Process.au3>

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

_RunDOS('regedit "' & @ScriptDir & '\RegTweaks.au3"')

[/autoit]

Und es funktioniert danach kommt das Fenster ob man es wirklich integrieren möchte.

Aiden

nunja ersetze ich RUN abr druch RUNDOS dann gibt das Script nichts zurück

Sammy

Kann ich dir leider nicht helfen, da ich ein ein kompletter AutoIt-Newbie bin

Aiden

naja mit einer der beiden entwickelten lösungen wird es schon gehen

uuchip

Hallo,

hatte vor einiger Zeit das Problem den CMD Output mit AutoIT weiter zu verarbeiten, gelöst habe ich das wie folgt (siehe Anhang).

wobei:
1. cmd($dosbefehl) den Output nach Array $cmdout schreibt
2. cmd2str($dosbefehl) das Ganze als String zurückgibt
3. und writecmd($dosbefehl) dafür SEND benutzt

Mit freundlichen Grüßen
Lutz