Beiträge von Sonderbaar

Kann mir jemand verraten, wie ich den Windows-Sicherheit Dialog auf einem Server 2008 aufgerufen bekommen?

Hintergrund ist der, dass ich über Autoit die Ablaufdauer des Passwortes für den angemeldeten Benutzer abfrage und ihn dann bequem über einen "Jetzt ändern"-Knopf direkt zum Windows-Sicherheits Passwort ändern Dialog leiten möchte.

Warum das ganze? Weil das kleine Bubble, dass das Passwort in den nächsten Tagen abläuft einfach von den Usern übersehen wird und ich ständig die Passwörter reseten muss.

Zitat von alpines

Ja, und wo liegt jetzt dein Problem? Ich hab doch ein Script gepostet wie man das in eine ListView einfügen kann, da kannst du auch sehen wie man das Array anspricht welches die Funktion zurückliefert. Dann setzt du die Labeltexte noch entsprechend den Arrayeinträgen und fertig.

Man liest eine gewisse Negativ-Stimmung und genervtheit in deinen Zeilen Alpines

und zudem wohl noch ein Twitter-Bot

Ich meine der Taskplaner von Microdoof muss zwingend folgende Punkte haben...

"Unabhängig von der Benutzeranmeldung ausführen"
und je nach BS auch "Mit höchsten Privilegien" angehakt haben.

Edit: Umweg über eine Batch könnte auch eine Rolle spielen... ich glaube ich konnte auch keine exe so ausführen...

so unerfahren und dann direkt mit einem Array starten? Respekt

Zitat von scandic_

Dadurch, dass das Programm immer dieses Sleep in vielleicht 10ms abständen wiederholt, ist es doch deutlich CPU lastiger, als das es einfach pausiert, bis die Bedingung zutrifft oder nicht?

Gerade durch das Sleep wird es nicht ganz so CPU-Lastig, wenn ich richtig informiert bin...
sei´s drum, da es für ein Spiel ist, ist´s eh egal

Danke

was muss ich jetzt wo und wie machen damit ich China-Zeichen erhalte?
Ich komme da gerade nicht so richtig mit

Zitat von BugFix

Schreibe in die SciTEUser.properties den Eintrag output.code.page=65001 - dann klappt's auch mit den Chinesen.

Ich habe über Options die Open Options User Datei aufgemacht und folgendes eingetragen, bringt aber immer noch die "?" ...
output.code.page=65001
import au3.UserUdfs
import au3.keywords.user.abbreviations
title.full.path=1

Setze ich Alpines Vorschlag um, erhalte ich lediglich
32654-22909-30340-19968-22825

Hi,

wie kann ich Chinesiche Zeichen abbilden mit Autoit? Letztlich müssten diese Zeichen dann nach Excel geschrieben werden, jedoch würde mir erstmal das Consolwrite reichen...

Consolewrite("美好的一天")

Consolewrite haut lediglich ????? raus...

gibt es da eine Möglichkeit?

Danke im voraus

Hallo @autoiter,

das Abändern des Codes hat scheinbar das Problem gelöst, dass ich vorher nicht löschen konnte... danke!
Da baut man es so auf, wie in der Hilfe zu sehen, funzt es nicht... naja kann man nix machen... hauptsache funzt...

Macht es Sinn das durchsuchen der Spalte ander zu gestalten?
Leider werden nur zwei der Beispieleeinträge gelöscht... ich vermute, durch das Löschen des Datensatzes ist die Schleife dann zu hoch...
oder ich muss $i -1 setzen wenn ein Datensatz gelöscht wurde...

EDIT: habe $i -1 gesetzt! Trotzdem danke, vorher hätte ich ja nix weg gelöscht

Hallo zusammen,

irgendwie kann ich zwar spalten löschen, jedoch keine komplette Zeile...
Zur Erklärung, ich würde gerne, wenn in der Spalte F eine Artikel-Nr größer 9 Zeichen vorkommt, diese entsprechende komplette Zeile entfernen... jedoch bekomme ich immer den Error Code 2.

könnte da mal einer bitte drüber schauen? Excel-Datei hängt ebenfalls (als ZIP aufgrund der hier erlaubten Dateiendung) an...

#include <Excel.au3>
#include <Array.au3>


$sInputFile = @scriptdir & "\input.xls"
$sExportFile = @scriptdir & "\export.xls"
Local $oExcel = _Excel_Open()
Local $workbook = _Excel_BookOpen($oExcel, $sInputFile)
Sleep(2000) ;Pause to let user view action


$Zeilenanzahl = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row ; -4162 = xlUp
For $i = 3 to $Zeilenanzahl
		$test = $oExcel.ActiveSheet.Range("F"& $i).Value
		If StringLen($test) > 9 Then


			_Excel_RangeDelete($workbook.Worksheets(1), '"' & $i & ":" & $i & '"')
			If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeDelete Example 2", "Error deleting rows." & @CRLF & "@error = " & @error & ", @extended = " & @extended)


			Consolewrite($test & @TAB & '"' & $i & ":" & $i & '"' & @CRLF)
		EndIf
Next

bedankt BitNugger, Api-Key habe ich

Das Thema ist zwar eigentlich erledigt, mich würden aber Eure Scripte interessieren (man muss das Rad ja nicht zwei Mal erfinden)

Tja dann würde ich jetzt vorschlagen du postet irgendwas an Code was du schon probiert hast?

Zitat von Micha_he

Möglicherweise hilft Dir dieses Script: https://www.autoitscript.com/forum/topic/16…ss-efficiently/

bringt bei mir nur die MAC für ein hosted-network aber nicht die für die LAN-Schnittstelle?

So sieht der Beispiel VBA Code aus der Hilfe aus...

Option Explicit
Sub DVProc_Cust1_Automation(ByVal oPsipentaDetail As PsipentaDetail)
    Dim oBO_PFSP As PsipentaBO
    Dim oFilter_PFSP As PsipentaFilter
    Dim oOverview_PFSP As PsipentaOverview
    Dim oDetail_PFSP As PsipentaDetail
    Dim i As Integer
    On Error GoTo Error_Handling:


    If VbaMacroMayDisplayGui Then
        BringVbaToFront
        Set oBO_PFSP = Application.createBO("PFSP")
        Set oFilter_PFSP = oBO_PFSP.getFilter
        Set oOverview_PFSP = oBO_PFSP.getOverview
        Set oDetail_PFSP = oBO_PFSP.getDetail
        oFilter_PFSP.Clear
        oFilter_PFSP.setFieldContent "F_ARTIKEL", _
            oPsipentaDetail.getFieldContent("ARTIKEL_NR", , 1)
        oFilter_PFSP.gotoOverview
        For i = 0 To oOverview_PFSP.getArraySize - 1
            Message = Message & " - " & oOverview_PFSP.getFieldContent("RUECKMELDE_NR", , i)
        Next i
    Else
        Message = "Abbruch: Verteilte Installation, daher Funktion deaktiviert!"
    End If
    Exit Sub
Error_Handling:
    Message = Err.Description
End Sub

Hallo,

mal ne kurze Frage bezüglich VBA/VBS. Ich habe für ein ERP System die Möglichkeit VBA-Code zu nutzen um Vorgänge zu automatisieren.

Wäre es irgendwie möglich diesen VBA / VBS Code aus Autoit heraus aufzurufen?
Wenn ja wie???

Zitat von Oscar

Es geht ja nicht darum, sein späteres Projekt zur Verfügung zu stellen. Damit soll er machen, was er will.Mir geht es darum, dass er die Lösung auf sein Problem hier zur Verfügung stellt, damit andere (mit dem gleichen oder ähnlichem Problem) auch davon profitieren können.
Auf diese Weise funktionieren solche Foren.

ICH bin da voll und ganz bei dir
für mich gibts auch nix schlimmeres als ungelöste Themen in Formen zu finden...

Zitat von Oscar

Du stellst Deine Lösung dem Forum aber nicht zur Verfügung. Eigentlich ist das ziemlich unfair.

Er will es doch später kommerziell Vermarkten, wenn er älter als 14 ist

Lösung gefunden... ganz von allein...

#include <snmp_udf.au3>
Global $Port = 161 ; UDP 161 = SNMP port
Global $SNMP_Version = 2 ; SNMP v2c (1 for SNMP v1)
Global $SNMP_Community = "public" ; SNMPString(Community) (change it)
Global $SNMP_ReqID
Global $result
Global $Timeout_msec = 50
Global $oid[2] = ["1.3.6.1.2.1.1.1.0", "1.3.6.1.2.1.1.6.0"]


;~ _ArrayDisplay($oid)


For $i = 0 To 1
	UDPStartup()
	$Socket = UDPOpen("192.168.x.x", $Port)
	$test = _SNMPBuildPacket($oid[$i], $SNMP_Community, $SNMP_Version, 1, "A0", "32")
;~ 	ConsoleWrite($test & @CRLF)
	UDPSend($Socket, $test)
	_StartListener()
	Sleep(1000)
		UDPCloseSocket($Socket)
		UDPShutdown()
Consolewrite($result[1][1] & @CRLF)
ConsoleWrite($result[1][0] & @CRLF)


Next


Exit


Func _StartListener()
	$Timeout = TimerInit()
	While 1
		$srcv = UDPRecv($Socket, 250)
		If $srcv <> "" Then $result = _ShowSNMPReceived($srcv)
		If @error Or TimerDiff($Timeout) > $Timeout_msec Then ExitLoop
		Sleep(50)
;~ _ArrayDisplay($result)
	WEnd
EndFunc   ;==>_StartListener

$test = _SNMPBuildPacket($oid[$i], $SNMP_Community, $SNMP_Version, 1, "A0", "32") <<< Hier lag der Fehler... die ganze Zeit über hatte ich da A1 drin.