... oder kann man in einem ListView auch Daten editieren? 
Danke vorab,
Grüße
TheDude
Beiträge von TheDude
-
-
Hallo Zusammen,
gibt es in AutoIT eigentlich ein Control, welches sich beim Bedienen wie Excel verhält und welches man in einen Dialog einbinden kann um schnell Daten für eine Datenbankanwendung zu erfassen?
Leider komme ich mit dem ListView nicht weiter, da ich darin nicht mit den Cursortasten arbeiten bzw. keine Daten eingeben kann.
Danke vorab für eure Hilfe,
GrüßeTheDude
-
Hallo Zusammen,
im englischen Forum habe ich etwas dazu gefunden. Allerdings mußte ich es etwas modifizieren, damit es auch in meinem Script läuft:
Spoiler anzeigen
;===============================================================================
; Function Name: _ProcessListProperties()
; Description: Get various properties of a process, or all processes
; Call With: _ProcessListProperties( [$process [, $asset]] )
; Parameter(s): (optional) $process - PID or name of a process, default is "" (all)
; (optional) $asset - remote computer to get list from, default is local
; Requirement(s): AutoIt v3.2.4.9+
; Return Value(s): On Success - Returns a 2D array of processes, as in ProcessList()
; with additional columns added:
; [0][0] - Number of processes listed (can be 0 if no matches found)
; [1][0] - 1st process name
; [1][1] - 1st process PID
; [1][2] - 1st process Parent PID
; [1][3] - 1st process owner
; [1][4] - 1st process priority (0 = low, 31 = high)
; [1][5] - 1st process executable path
; [1][6] - 1st process CPU usage
; [1][7] - 1st process memory usage
; [1][8] - 1st process creation date/time = "MM/DD/YYY hh:mm:ss" (hh = 00 to 23)
; [1][9] - 1st process command line string
; ...
; [n][0] thru [n][9] - last process properties
; On Failure: Returns array with [0][0] = 0 and sets @Error to non-zero (see code below)
; Author(s): PsaltyDS at http://www.autoitscript.com/forum
; Date/Version: 12/01/2009 -- v2.0.4
; Notes: If an integer PID or string process name is provided and no match is found,
; then [0][0] = 0 and @error = 0 (not treated as an error, same as ProcessList)
; This function requires admin permissions to the target computer.
; All properties come from the Win32_Process class in WMI.
; To get time-base properties (CPU and Memory usage), a 100ms SWbemRefresher is used.
;===============================================================================
Func _ProcessListProperties($Process = "",$Asset = "")Local $sUserName, $sMsg, $sUserDomain, $avProcs, $dtmDate
Local $avProcs[1][2] = [[0, ""]], $n = 1; Convert PID if passed as string
If StringIsInt($Process) Then $Process = Int($Process); Connect to WMI and get process objects
$oWMI = ObjGet("winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy, (Debug)}!\\" & $Asset & "\root\cimv2")
If IsObj($oWMI) Then
; Get collection processes from Win32_Process
If $Process == "" Then
; Get all
$colProcs = $oWMI.ExecQuery("select * from win32_Process")
ElseIf IsInt($Process) Then
; Get by PID
$colProcs = $oWMI.ExecQuery("select * from win32_Process where ProcessId = " & $Process)
Else
; Get by Name
$colProcs = $oWMI.ExecQuery("select * from win32_Process where Name = '" & $Process & "'")
EndIfIf IsObj($colProcs) Then
; Return for no matches
If $colProcs.count = 0 Then Return $avProcs; Size the array
ReDim $avProcs[$colProcs.count + 1][10]
$avProcs[0][0] = UBound($avProcs) - 1; For each process...
For $oProc In $colProcs
; [n][0] = process name
$avProcs[$n][0] = $oProc.name
; [n][1] = process PID
$avProcs[$n][1] = $oProc.ProcessId
; [n][2] = Parent PID
$avProcs[$n][2] = $oProc.ParentProcessId
; [n][3] = Owner
If $oProc.GetOwner($sUserName, $sUserDomain) = 0 Then $avProcs[$n][3] = $sUserDomain & "\" & $sUserName
; [n][4] = Priority
$avProcs[$n][4] = $oProc.Priority
; [n][5] = Executable path
$avProcs[$n][5] = $oProc.ExecutablePath
; [n][8] = Creation date/time
$dtmDate = $oProc.CreationDate
If $dtmDate <> "" Then
; Back referencing RegExp pattern from weaponx
Local $sRegExpPatt = "\A(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(?:.*)"
$dtmDate = StringRegExpReplace($dtmDate, $sRegExpPatt, "$2/$3/$1 $4:$5:$6")
EndIf
$avProcs[$n][8] = $dtmDate
; [n][9] = Command line string
$avProcs[$n][9] = $oProc.CommandLine; increment index
$n += 1
Next
Else
SetError(2); Error getting process collection from WMI
EndIf
; release the collection object
$colProcs = 0; Get collection of all processes from Win32_PerfFormattedData_PerfProc_Process
; Have to use an SWbemRefresher to pull the collection, or all Perf data will be zeros
Local $oRefresher = ObjCreate("WbemScripting.SWbemRefresher")
$colProcs = $oRefresher.AddEnum($oWMI, "Win32_PerfFormattedData_PerfProc_Process" ).objectSet
$oRefresher.Refresh; Time delay before calling refresher
Local $iTime = TimerInit()
Do
Sleep(20)
Until TimerDiff($iTime) >= 100
$oRefresher.Refresh; Get PerfProc data
For $oProc In $colProcs
; Find it in the array
For $n = 1 To $avProcs[0][0]
If $avProcs[$n][1] = $oProc.IDProcess Then
; [n][6] = CPU usage
$avProcs[$n][6] = $oProc.PercentProcessorTime
; [n][7] = memory usage
$avProcs[$n][7] = $oProc.WorkingSet
ExitLoop
EndIf
Next
Next
Else
SetError(1); Error connecting to WMI
EndIf; Return array
Return $avProcs
EndFunc ;==>_ProcessListPropertiesDie UDF läuft bei mir super. In dieser Fassung sollte sie auch einfach mit Copy und Paste in andere Projekte zu übernehmen sein.
Viele Grüße
TheDude -
Hallo Zusammen,
leider kann ich mit "ProcessExists" nur lokal laufende Prozesse abfragen. Gibt es auch eine Möglichkeit, mit AutoIT einen bestimmten Prozess auf einer entfernten Maschine zu suchen und wenn dieser gefunden wurde, auch noch weitere Informationen zu dem Prozess zu ermitteln (ähnlich wie mit PSLIST)?
Oder gibt es evtl. hierzu schon eine UDF?
Ich habe hier über die Suche verschiedene Ansätze gesehen, die auf WMI aufsetzten, jedoch paßt leider kein Treffer zu meinem "Problem" ...
Vorab vielen Dank,
GrüßeTheDude
-
Hallo Water,
... Du bist ein echter "Trickser" - beide Möglichkeiten funktionieren. Vielen herzlichen Dank für Deine Hilfe!
Ich habe im Script jetzt erst einmal die Methode $Status=_AD_MoveObject($TargetOU,$ComputerFQDN,@ComputerName) stehen gelassen. Wenn eine neue Version der UDF kommt (und ich hoffentlich daran denke
), werde ich das Script entsprechend anpassen.Viele Grüße & einen schönen Tag
TheDudeP. S. Der Tipp mit dem englischen Forum war prima - auch dafür nochmals vielen Dank!
-
Hallo Water,
sorry, es geht hierbei um das Verschieben eines Computer-Objekts. :wacko:
- Zuerst ermittle ich mit _AD_ObjectExists(@ComputerName & "$"), ob das Objekt generell im AD existiert - funktioniert.
- Wenn dies der Fall ist, ermittle ich mit $ComputerFQDN=_AD_SamAccountNameToFQDN($ComputerName & "$"), in welcher OU der Rechner sich befindet. In $ComputerFQDN steht nun die Lokalisierung des Objektes als Fully Qualified - funktioniert.
- Wenn nun das Objekt im Default-Container "Computers" ist, dann soll es verschoben werden. Dazu verwende ich den Aufruf $Status=_AD_MoveObject($TargetOU,$ComputerFQDN) - hierbei kommt es zum Abbruch.
- In $TargetOU steht dabei folgendes: OU=MeineComputer,OU=Standort,OU=Land,OU=Region,OU=Unternehmen,DC=Domaene,DC=HauptDomaene,DC=com - dies stimmt mit der Struktur im AD überein.
- In $ComputerFQDN steht der Rückgabewert aus _AD_SamAccountNameToFQDN($ComputerName & "$"): CN=RechnerName,CN=Computers,DC=Domaene,DC=HauptDomaene,DC=com
In $TargetOU und in $ComputerFQDN gibt es auch keine Sonderzeichen, Umlaute oder Leerzeichen. Das einzige, was kein echter Buchstabe ist, ist ein "-" im Rechnernamen.
So richtig weiß ich nicht wirklich weiter ... :wacko:
Viele Grüße
TheDude -
Hallo Water,
Der Rückgabewert der UDF _AD_MoveObject() ist bei mir stets -2147352567. Wir hatten ja mal über fehlende Rechte im AD gesprochen, wahrscheinlich deutet dies wieder darauf hin.
Was ich jedoch nicht verstehe ist, dass ich Objekte mit dem "AD Users and Computers" über Drag 'n Drop mit meinem Account verschieben und auch löschen kann. Wie kann ich erreichen, dass dies auch mit den AD-UDF funktioniert?
Bei dem Anlegen von Objekten im AD hattest Du mir ja den Tipp gegeben, die entsprechende Function anzupassen, was auch wunderbar klappt. Aber in der Function _AD_MoveObject() finde ich keinen Hinweis darauf, warum sie in meinem Context nicht funktioniert.
Hast Du hier evtl einen Tipp für mich?
Danke vorab,
viele GrüßeTheDude
-
... und wie kann ich den Threat nun auf "gelöst" setzen?
-
Hallo Zusammen,
... genau sowas habe ich gesucht: StdOutRead ... man, wer lesen kann ist klar im Vorteil. Ist mir beinahe peinlich ...
Vielen Dank an euch,
GrüßeTheDude
-
Hallo Zusammen,
hat jemand bitte einen Tipp für mich wie ich die Statusmeldungen ( Fehler und/oder i. O.) eines SC zurückerhalten kann, wenn ich es mit Run(@ComSpec & " /c " & 'SC stop Dienst', "", @SW_HIDE) aufrufe?
Vorab vielen Dank,
GrüßeThe Dude
-
Hallo Water,
... leider habe ich das bisher nicht zum Laufen gebracht. Was aber als Workaround funktioniert wäre folgendes:
Code
Alles anzeigenFunc _GeneriereVbScript($DateiName,$Domaene,$AD_Gruppe,$Lokale_Gruppe) Local $FileHandle $FileHandle = FileOpen($Dateiname,2) FileWriteLine($FileHandle,"On Error Resume Next") FileWriteLine($FileHandle,"") FileWriteLine($FileHandle,"strDomain=" & Chr(34) & "WinNT://" & $Domaene & "/" & chr(34)) FileWriteLine($FileHandle,"strLocalGroup=" & chr(34) & $Lokale_Gruppe & Chr(34)) FileWriteLine($FileHandle,"strGlobalGroup=" & Chr(34) & $AD_Gruppe & Chr(34)) FileWriteLine($FileHandle,"strComputer=" & Chr(34) & @ComputerName & Chr(34)) FileWriteLine($FileHandle,"") FileWriteLine($FileHandle,"Set net=CreateObject(" & Chr(34) & "Wscript.Network" & Chr(34) & ")") FileWriteLine($FileHandle,"Set objComputer=strDomain") FileWriteLine($FileHandle,"") FileWriteLine($FileHandle,"strAdd=strDomain & strGlobalGroup") FileWriteLine($FileHandle,"'On Error Resume Next") FileWriteLine($FileHandle,"Set objLocalGroup=GetObject(" & Chr(34) & "WinNT://" & Chr(34) & " & strComputer & " & Chr(34) & "/" & Chr(34) & " & strLocalGroup)") FileWriteLine($FileHandle,"objLocalGroup.Add(strAdd)") FileClose($FileHandle) If $Debug = 0 Then RunWait("cscript /B /NoLogo " & $DateiName,"",@SW_HIDE) ;FileDelete($DateiName) Else RunWait("cscript /NoLogo " & $DateiName,"",@SW_SHOW) EndIf Return 1 EndFuncHiermit könnte man sogar die Gruppe remote auf einem entfernten Rechner hinzufügen. Ist als Lösung sicherlich nicht schön, klappt aber.
Grüße
TheDude -
Hallo Water,
... ich habe hier etwas gefunden, muß es nur mal verstehen: [ gelöst ] Active Directory: per AutoIt globale Gruppe einer lokalen Gruppe hinzufügen
CodeFunc _ADAddgGroupTolGroup($ggroup, $lgroup) $oggroup = ObjGet("LDAP://" & $strHostServer & "/" & _ADSamAccountNameToFQDN($ggroup)) ; $ggroup in FQDN wandeln und Infos über lokale Gruppe holen $olgroup = ObjGet("LDAP://" & $strHostServer & "/" & _ADSamAccountNameToFQDN($lgroup)) ; $lgroup in FQDN wandeln und Infos über globale Gruppe holen $olgroup.Add ($oggroup.AdsPath) ; Infos der globalen Gruppe der lokalen Gruppe hinzufügen $olgroup.SetInfo $oggroup = 0 $olgroup = 0 EndFunc ;==>_ADAddgGroupTolGroupMal sehen, ob ich es hingebaut bekomme. Ansonsten werde ich mal den Autor fragen. Die UDF "adfunctions.au3" scheint ja ein "Vorläufer" Deiner AD.au3 zu sein, daher weiß ich nicht, ob ich das alles so 1:1 übernehmen kann ...
Nochmals Danke,
GrüßeTheDude
-
Hallo Water,
kann man mit der AD-UDF auch AD-Gruppen zu lokalen Gruppen hinzufügen? Mein Problem ist, daß ich mit "net localgroup" anscheinend nur Gruppen hinzufügen kann, wenn die Namen der Gruppen aus nicht mehr als 20 Buchstaben bestehen. Daher scheitert folgendes leider:
CodeRunWait(@Comspec & " /c " & "NET LOCALGROUP " & $LocalAdminGroup & " Eine-wirklich-sehr-sehr-lange-AD-Gruppe /add >> " & $LogFile,"",@SW_HIDE)Hast Du evtl. einen Tipp für mich?
Danke vorab,
viele GrüßeThe Dude
-
Hallo Water,
... YES! Nun klappt alles. Vielen, vielen Dank für Deine Geduld.
Grüße & einen schönen Tag
TheDude -
Guten Morgen Water,
... OK, JETZT habe ich es verstanden. Wobei ich gestehen muß, daß ein Blick in die AD.au3 in diesem Zusammenhang auch nicht geschadet hätte ...
Wäre es möglich, die Funktion AD_CreateComputer() aus der UDF in das Script zu kopieren und die Teile dann dort herauszulöschen, die für das Verändern der ACL zuständig sind? Ich würde ungerne die UDF verändern, da mit dem nächsten Update alle Änderungen ja wieder gelöscht würden. Oder zu welchem Vorgehen würdest Du mir in diesem Zusammenhang raten? Leider bekomme ich nicht mehr Rechte an den Objekten sodaß ich anders wohl nicht weiterkomme ...
Folgendes würde dann noch übrig bleiben (wenn ich es richtig interpretiert habe):
CodeFunc _AD_CreateComputerOwn($sAD_OU, $sAD_Computer, $sAD_User) If Not _AD_ObjectExists($sAD_OU) Then Return SetError(1, 0, 0) If _AD_ObjectExists("CN=" & $sAD_Computer & "," & $sAD_OU) Then Return SetError(2, 0, 0) If Not _AD_ObjectExists($sAD_User) Then Return SetError(3, 0, 0) If StringMid($sAD_OU, 3, 1) <> "=" Then $sAD_OU = _AD_SamAccountNameToFQDN($sAD_OU) ; sAMACccountName provided If StringMid($sAD_User, 3, 1) = "=" Then $sAD_User = _AD_FQDNToSamAccountName($sAD_User) ; FQDN provided Local $oAD_Container = _AD_ObjGet("LDAP://" & $sAD_HostServer & "/" & $sAD_OU) Local $oAD_Computer = $oAD_Container.Create("Computer", "cn=" & $sAD_Computer) Return 1 EndFuncEine Frage zu dem AD_JoinDomain() bitte noch: Welches Format hat der erwartete Parameter $sAD_UserParam? Wieder nur der AD-Account oder aber mit einem vorgestellten "Domain\"?
Nochmals(!) vielen Dank für Deine Hilfe,
GrüßeTheDude
-
Hallo Water,
Danke für den Link. Die leuchtet mir auch soweit ein.
Folgendes habe ich mit NetDom vor ein paar Minuten durchgeführt:
CodeNETDOM.EXE JOIN RECHNERNAME /Domain:Domain.XYZ.com /OU:OU=Workstations,OU=Ort,OU=Land,OU=Region,OU=Unternehmen,DC=Domain,DC=XYZ,DC=com /UserD:Domain.XYZ.com\MeinUserName /PasswordD:MeinPasswortDies hat auf Anhieb funktioniert. Das Einzige, was anders ist, ist die Zusammensetzung der User-ID. Dies werde ich mit der UDF aber auch mal testen.
Ansonsten bin ich mit meinem Latein am Ende ...
Sorry für die Geduldsstrapaze,
GrüßeTheDude
-
Hallo Water & Micha_He,
verstehe ich soweit. Nur - warum konnte ich den Rechner dann nach meinen (fehlgeschlagenen) Versuchen mit der UDF mittels NetDom.exe ins AD aufnehmen? Irgendwie leuchtet mir im Moment nicht ein, warum das Problem an fehlenden Rechten liegen soll. Aber - ich bin ja wirklich für jede Hilfe dankbar. Wäre prima, wenn ihr das etwas herausfinden könntet. Vielleicht macht ja auch NetDom so eine Rückgabe, aber ich sehe sie nicht, weil ich nicht danach frage ...
Viele Grüße
Thomas -
... Grmpf. War zu früh heute morgen ...
Sorry, die Syntax des 3. Parameters war/ist so, wie Du geschrieben hast. War 'n Fehler meinerseits. Leider liegt das Problem mit AD_CreateComputer() dann doch nicht daran.
SORRY!
Grüße
TheDude -
Hallo Water,
danke für den Hinweis mit dem Format des 3. Paramaters. Ich werde es anpassen und schauen, was dann passiert. Melde mich dann noch dazu ... vielleicht hilft das ja bei dem anderen Problem ...
Leider habe ich keinen Zugriff auf die Domäne als Domänen-Admin. Grundsätzlich kann ich aber einen Rechner der Domäne hinzufügen, sei es manuell über Arbeitsplatz->Eigenschaften ... oder aber über z. B. NetDom.exe. Insofern müßten die Rechte meines Accounts ausreichen.
Ich habe den Rechner jetzt mal manuell (NetDom.exe) hinzugefügt. Es gab keinen Fehler und der Rechner läuft sauber im AD. Es ist alles sehr komisch ...
Hast Du/habt ihr vielleicht noch eine andere Idee?
Danke & Grüße
TheDude -
Guten Morgen Water,
... kein Thema, gerne. Hier die Parameter zu AD_Open():
_AD_Open("Domäne\MeinLoginName","MeinPWD","Domäne.XYZ.com","StdDC.Domäne.XYZ.com","CN=Configuration," & "DC=Domäne,DC=XYZ,DC=com")
Das ist alles OK und läuft soweit.
Und hier nun die Paramater zu AD_CreateComputer():
$OU="OU=Workstations,OU=ORT,OU=LAND,OU=REGION,OU=COMPANY,DC=DOMÄNE,DC=XYZ,DC=com"
$ComputerName=@ComputerName
$ADStatus = _AD_CreateComputer($OU,$ComputerName,"MeinLoginName")Rückgabewerte: $ADStatus: 0, @Error: -2147352567, @Extended: 0
Aber: Das Computer-Object wurde im AD und in der richtigen OU angelegt, dennoch ist der Rückgabewert von AD_CreateComputer() "0", also Fehler.
Was läuft hier falsch? Ich bin mit meiner "Weisheit" nun wirklich am Ende ...
Nach einem erneuten Aufruf der Funktion AD_CreateComputer() bekomme ich dann auch als @Error eine "2", die nach Doku besagt, daß das Object bereits existiert. Interessant finde ich auch, daß ich bei AD_Open() den Benutzernamen mit "Domäne\MeinLoginName" angeben muß, bei AD_CreateComputer() dies aber zu einem Fehler führt. Hier darf ich nur "MeinLoginName" übergeben, sonst wird der User nicht gefunden. Dies ist aber kein grundsätzliches Problem.
Viele Grüße
TheDude