Beiträge von Dino

Dino

Hallo BugFix,

vielen Dank!

VG,
Dino

Dino

es sind Netzwerklaufwerke.

Dino

Hallo Leute,

ich möchte alle Dateien die im Netzwerkordner (incl. Unterordner) IN und OUT (wenn diese existieren) liegen schreibschützen.

Pfad:
\\85w2t05\prj\xxxxxxxx\IN\
\\85w2t05\prj\xxxxxxxx\OUT\

zu xxxxxxxx: hier stehen unterschiedliche Ordnernamen (für ca. 200 verschiedene Projekte). Restlicher Aufbau ist immer gleich.

Wie mache ich das?

Besten Dank im Voraus!

Viele Grüße,
Dino

Dino

Auch von mir alles Gute

PS: lies du die PN nicht mehr

Dino

Hallo Leute,

Dies ist noch nicht gelöst:
Wenn in der Signatur das Zeichen & drin ist, dann wird die Signatur nur bis dahin eingefügt / dargestellt.
Da gibt es sicherlich ein Trick dies noch zu lösen.

Spoiler anzeigen

[autoit]

#include <ComboConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <Inet.au3>
Global $section, $combodata
$section = IniReadSection("Email.ini", "Emails")
Dim $Checkbox[$Section[0][0]+1]

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

$Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*30+290)
For $i = 1 To $Section[0][0]
$Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*30, 190, 25)
Next
$label1 = GUICtrlCreateLabel("_________________________________________________________________", 5, (Mod($section[0][0], 2) +Round($i/2) - 1)*30 - 5, 390, 25)
$label2 = GUICtrlCreateLabel("Betreff:", 5, 20 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 35 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
$label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 80 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 100)
$label3 = GUICtrlCreateLabel("Empfänger:", 5, 215 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input2 = GUICtrlCreateInput("", 5, 230 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
$Button1 = GUICtrlCreateButton("Standards speichern", 5, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 120, 25)
$Button2 = GUICtrlCreateButton("Email senden", 135, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 130, 25)
$Combo1 = GUICtrlCreateCombo("", 275, 261 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 120, 30, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUISetState(@SW_SHOW)

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

$signaturs = _FileListToArray(@AppDataDir & "\Microsoft\Signatures", "*.txt", 1)
If IsArray($signaturs) Then
For $i = 1 To $signaturs[0] Step 1
$combodata &= $signaturs[$i] & "|"
Next
GUICtrlSetData($Combo1, " |" &$combodata, $signaturs[$i - 1])
Else
GUICtrlSetState($Combo1, $GUI_DISABLE)
EndIf

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox[1] To $Checkbox[$Section[0][0]]
$emails = ""
For $i = 1 To $Section[0][0]
If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
$emails &= $Section[$i][1] & "; "
EndIf
Next
Guictrlsetdata($Input2, $emails)
Case $Button1
IniWrite("Email.ini", "Standards", "Betreff", GUICtrlRead($Input1))
IniWrite("Email.ini", "Standards", "Nachricht", StringReplace(GUICtrlRead($Edit1), @CRLF, " |@CRLF| "))
Case $Button2
If FileExists(@AppDataDir & "\Microsoft\Signatures\" & GUICtrlRead($Combo1)) Then
$signatur = FileRead(@AppDataDir & "\Microsoft\Signatures\" & GUICtrlRead($Combo1))
Else
$signatur = ""
EndIf
_INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1) & @CRLF & @CRLF & $signatur)
EndSwitch
WEnd

[/autoit]

Email.ini

Spoiler anzeigen

[autoit]

[Emails]
Klaus=klaus@anbieter.de
Peter=peter@anbieter.de
Claudia=claudia@anbieter.de
Susi=susi@anbieter.de
Rodi=rodi@anbieter.de
[Standards]
Betreff=Standard Betreff
Nachricht=Standart Nachricht |@CRLF| Zeile 2 |@CRLF| Zeile 3

[/autoit]

Wer kann mir bitte helfen?

Viele Grüße,
Dino

Dino

lag an der Version.... Besten Dank!

Dino

Hallo (Auto)Bert ,

das habe ich probiert, sehe keine Veränderungen. Woran könnte es noch liegen?

VG,
Dino

Dino

jetzt ist alles perfekt DANKE!

Anbei noch für alle andere die komplette Datei:

Spoiler anzeigen

[autoit]

;~ ~ ------------------------------------------------------------------------------
;~ Erklärung zu den RegEx:
;~ ------------------------------------------------------------------------------
;~ Pattern: (\s\sMS_DESIGNSEED\s=.*\r\n)
;~ \s\s Leerzeichen (2x)
;~ MS_DESIGNSEED genauer Text
;~ \s Leerzeichen
;~ = Gleichheitszeichen
;~ .* irgendwelche Zeichen, beliebig oft
;~ \r\n @CRLF
;~ () die ganze Abfrage in Klammern bildet eine Backreferenz

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

;~ Replace: '$1' & " %lock MS_DESIGNSEED" & @CRLF
;~ $1 Backreferenz Nr. 1 (der gesuchte Text)
;~ " %lock MS_DESIGNSEED" & @CRLF <== die zusätzliche Zeile

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

;~ Pattern: (\s\sMS_OTWREG_NOCHECK\s=\s)(1)(.*\r\n)', '$10$3')
;~ (\s\sMS_OTWREG_NOCHECK\s=\s) Backreferenz Nr. 1
;~ (1) Backreferenz Nr. 2
;~ (.*\r\n) Backreferenz Nr. 3

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

;~ Replace: '$10$3'
;~ $1 Backreferenz Nr. 1
;~ 0 die '0' anstelle der Backreferenz Nr. 2
;~ $3 Backreferenz Nr. 3
;~ ------------------------------------------------------------------------------
#include <File.au3>
$pfad = "c:\admin_V8\config\project_config"
$ext = "*.pcf"

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

If StringRight($sPfad, 1) <> "\" Then $sPfad &= "\"
$aFiles = _FileListToArray($sPfad, $ext)
If @error Then
MsgBox(64,"","Fehler. Keine Dateien gefunden")
Exit
EndIf

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

$sPfad = StringTrimRight($sPfad,1)

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

For $i = 1 To $aFiles[0]
$fh = FileOpen($sPfad & "\" & $aFiles[$i], 0)
$sRead = FileRead($fh)
FileClose($fh)
$sFileName = $aFiles[$i]

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

;~ Einfügen: Textanfang (links) in der Datei suchen und dadrünter neuen Text einfügen
;~ Suche: " MS_DESIGNSEED =" und danach "%lock MS_DESIGNSEED" einfügen
$sRead = StringRegExpReplace($sRead, '(\s\sMS_DESIGNSEED\s=.*\r\n)', '$1' & " %lock MS_DESIGNSEED" & @CRLF)
;~ Suche: " MS_SEEDFILES =" und danach "%lock MS_DESIGNSEED" einfügen
$sRead = StringRegExpReplace($sRead, '(\s\sMS_SEEDFILES\s=.*\r\n)', '$1' & " # Verzeichnis der Seeddateien" & @CRLF)

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

;~ Löschen: Textanfang (links) in der Datei suchen und dann die ganze Zeile löschen
;~ Zeile " MS_COMPRESS_OPTIONS" suchen und danach löschen
$sRead = StringRegExpReplace($sRead, '(\s\sMS_COMPRESS_OPTIONS.*\r\n)', '')
;~ Zeile " MS_LEVEL_EDIT_NESTED_ATTACHMENT_LEVELS" suchen und danach löschen
$sRead = StringRegExpReplace($sRead, '(\s\sMS_LEVEL_EDIT_NESTED_ATTACHMENT_LEVELS.*\r\n)', '')

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

;~ Ersetzen: Textanfang (links) in der Datei suchen und dann mit neuem Text ersetzen
;~ Zeile " MS_OTWREG_NOCHECK = 1" suchen und danach mit " MS_OTWREG_NOCHECK = 0" ersetzen
$sRead = StringRegExpReplace($sRead, '(\s\sMS_OTWREG_NOCHECK\s=\s)1(\r\n)', ' MS_OTWREG_NOCHECK = 0' & @CRLF)

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

;~ Einfügen: Text am Ende der Datei einfügen
;~ "MS_OPENDESIGNFILEFILTER = *.dgn" und "MS_REF_DEFAULTSETTINGS = saveRelativePath=0,ignoreWhenNesting=0" einfügen
$sRead &= @CRLF & @CRLF & _
"MS_OPENDESIGNFILEFILTER = *.dgn" & @CRLF & _
"MS_REF_DEFAULTSETTINGS = saveRelativePath=0,ignoreWhenNesting=0" & @CRLF

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

$fh = FileOpen($sPfad & "\" & $aFiles[$i], 2)
FileWrite($fh, $sRead)
FileClose($fh)
Next

[/autoit]

Dino

Hallo Leute,

was muss ich ändern, damit der $Combo1 die Hintergrundfarbe 0xFFFFE1 bekommt?

[autoit]

#Region ### START Koda GUI section ### Form=c:\tools\installmanager\form2.kxf
$Form1_1 = GUICreate("Installmanager", 638, 246, 725, 228)
$Label1 = GUICtrlCreateLabel("Version:", 168, 20, 62, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Combo1 = GUICtrlCreateCombo("Combo1", 256, 16, 369, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("START", 168, 192, 457, 41, $WS_GROUP)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 256, 56, 369, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xF1EFE2)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("", 256, 88, 369, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xF1EFE2)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input3 = GUICtrlCreateInput("", 256, 120, 369, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xF1EFE2)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input4 = GUICtrlCreateInput("89" & StringRight(@YEAR,2) & @MON & @MDAY & "01" , 256, 152, 129, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label2 = GUICtrlCreateLabel("Versionsnr.:", 168, 156, 88, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Vers. + JJ + MM + TT + Index", 397, 158, 173, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Install-Dir:", 168, 56, 75, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Server 1:", 168, 92, 67, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Server 2:", 168, 124, 67, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\image1.jpg", 16, 58, 129, 169, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\image2.jpg", 16, 16, 129, 33, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label7 = GUICtrlCreateLabel("Label7", 8, 8, 148, 225, BitOR($SS_CENTER,$SS_RIGHT,$SS_BLACKRECT,$SS_GRAYRECT,$SS_WHITERECT,$SS_BLACKFRAME))
_IniEinlesen()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit]

Vielen Dank!

Gruß,
Dino

Dino

Im Anhang die ergänzte Datei

Dino

noch eine letzte Kleinigkeit

Hier hackt es noch: $sRead = StringRegExpReplace($sRead, '(\s\sMS_OTWREG_NOCHECK\s=\s)(1)(.*\r\n)', '$10$3')
MS_OTWREG_NOCHECK = 1 wird duch nichts (leer) ersetzt.
Richtig wäre MS_OTWREG_NOCHECK = 0

Dino

Hi BugFix,

bekomme diese Meldung:

Zitat

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Dokumente und Einstellungen\Dino\Desktop\1.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams
+>21:57:28 Starting AutoIt3Wrapper v.2.0.0.3 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 3 CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0) from:C:\Programme\AutoIt3
C:\Dokumente und Einstellungen\Dino\Desktop\1.au3(22,40) : WARNING: $sRead: possibly used before declaration.
$sRead = StringRegExpReplace($sRead,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Dino\Desktop\1.au3 - 0 error(s), 1 warning(s)
->21:57:28 AU3Check ended.rc:1
>Running:(3.3.4.0):C:\Programme\AutoIt3\autoit3.exe "C:\Dokumente und Einstellungen\Dino\Desktop\1.au3"
C:\Dokumente und Einstellungen\Dino\Desktop\1.au3 (22) : ==> Variable used without being declared.:
$sRead = StringRegExpReplace($sRead, '(\s\sMS_DESIGNSEED\s=.*\r\n)', '$1' & " %lock MS_DESIGNSEED" & @CRLF)
$sRead = StringRegExpReplace(^ ERROR
->21:57:29 AutoIT3.exe ended.rc:1
+>21:57:30 AutoIt3Wrapper Finished
>Exit code: 1 Time: 2.044

Alles anzeigen

Dino

Es ist immer gut, wenn die Stimmung da ist
Jetzt funktioniert es

Zwei Sachen noch:
1. Was muss ich rausnehmen, damit der Ordner _Repl nicht erstellt wird. Die Änderungen sollen direkt in $sPfad ausgeführt werden?
2. Bei der letzte Aktion "Einfügen am Ende der Datei" soll vorher eine leere Zeile eingefügt werden. Was muss ich in der AU3-Datei hinzufügen?

Vielen Dank!

Gruß,
Dino

Dino

Hi SEuBo,

nur die letzte Aktion wird gemacht
Irgendwas fehlt noch

Dino

SEuBo: von vier Aktionen wurde nur die letzte (Text am Ende der Datei einfügen) erfolgreich ausgeführt. Wieso der Rest nicht?

BugFix : funktioniert prima.
Lässt sich dies in deine Script einbauen?

[autoit]

;~ Pfad, wo die *.PCF-Dateien liegen
$sPfad = "c:\admin_V8\config\project_config"
;~ Nur für die Dateiendung:
$ext = "*.pcf"

[/autoit]

Danke an alle !!!

Dino

Hallo SEuBo,

bei mir wurde nur der Ordner "project_config_Repl" erstellt, sonst nichts mehr.
Im Anhang eine Beispieldatei.

Besten Dank!

Viele Grüße,
Dino

Dino

Hallo Leute,

ich habe ca. 300 Dateien bei den ich unten aufgeführte Aktionen durchführen möchte.

[autoit]

;~ Pfad, wo die *.PCF-Dateien liegen
$pfad = "c:\admin_V8\config\project_config"
;~ Nur für die Dateiendung:
$ext = "*.pcf"

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

;~ Textanfang (links) in der Datei suchen und dadrünter neuen Text einfügen
$Text1_Search = "MS_DESIGNSEED ="
$Text1_Paste = "%lock MS_DESIGNSEED"
$Text2_Search = "MS_SEEDFILES ="
$Text2_Paste = "# Verzeichnis der Seeddateien"
;~ usw.

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

;~ Textanfang (links) in der Datei suchen und dann die ganze Zeile löschen
$Text1_Delete = "MS_COMPRESS_OPTIONS"
$Text2_Delete = "MS_LEVEL_EDIT_NESTED_ATTACHMENT_LEVELS"
;~ usw.

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

;~ Textanfang (links) in der Datei suchen und dann mit neuem Text ersetzen
$Text1_Find = "MS_OTWREG_NOCHECK = 1"
$Text2_Replace = "MS_OTWREG_NOCHECK = 0"
;~ usw.

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

;~ Text am Ende der Datei einfügen
$Text1_New = "MS_OPENDESIGNFILEFILTER = *.dgn"
$Text2_New = "MS_REF_DEFAULTSETTINGS = saveRelativePath=0,ignoreWhenNesting=0"
;~ usw.

[/autoit]

Wie mache ich das ?

Besten Dank im Voraus !

Viele Grüße,
Dino

Dino

Vielen Dank an alle !!!!

Dino

Hallo blubbstar und AutoBert,

ich meine nur die, die übers LAN verbundenen Rechner.

Spoiler anzeigen

[autoit]

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

C:\Dokumente und Einstellungen\Dino>ipconfig /all

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

Windows-IP-Konfiguration

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

Hostname. . . . . . . . . . . . . : pc2089
Primäres DNS-Suffix . . . . . . . : bogie.intern
Knotentyp . . . . . . . . . . . . : Hybrid
IP-Routing aktiviert. . . . . . . : Nein
WINS-Proxy aktiviert. . . . . . . : Nein
DNS-Suffixsuchliste . . . . . . . : bogie.intern
fritz.box

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

Ethernetadapter Drahtlose Netzwerkverbindung:

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

Verbindungsspezifisches DNS-Suffix: fritz.box
Beschreibung. . . . . . . . . . . : Intel(R) Wireless WiFi Link 4965AGN
Physikalische Adresse . . . . . . : 00-25-4C-0A-4B-13
DHCP aktiviert. . . . . . . . . . : Ja
Autokonfiguration aktiviert . . . : Ja
IP-Adresse. . . . . . . . . . . . : 192.168.178.67
Subnetzmaske. . . . . . . . . . . : 255.255.255.0
Standardgateway . . . . . . . . . : 192.168.178.1
DHCP-Server . . . . . . . . . . . : 192.168.178.1
DNS-Server. . . . . . . . . . . . : 192.168.178.1
Lease erhalten. . . . . . . . . . : Mittwoch, 3. Februar 2010 23:10:42
Lease läuft ab. . . . . . . . . . : Samstag, 13. Februar 2010 23:10:42

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

Ethernetadapter LAN-Verbindung:

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

Medienstatus. . . . . . . . . . . : Es besteht keine Verbindung
Beschreibung. . . . . . . . . . . : Intel(R) 82566MM Gigabit Network Con
nection
Physikalische Adresse . . . . . . : 00-1B-29-4C-0F-18

[/autoit]

Viele Grüße,
Dino

Dino

Hallo Leute,

gibt es die Möglichkeit nur die MAC-Adresse der LAN-Verbindung auszulesen?

Vielen Dank im Voraus !

Beste Grüße,
Dino

Beiträge von Dino

Alle Dateien des Netzwerkordners (incl. Unterordner) schreibschützen?

Alle Dateien des Netzwerkordners (incl. Unterordner) schreibschützen?

Alle Dateien des Netzwerkordners (incl. Unterordner) schreibschützen?

Schnitzel hat Geburtstag

Empfänger auswählen und Standard-E-Mail verschicken?

Combo mit Hiltergrundfarbe?

Combo mit Hiltergrundfarbe?

Text einfügen, löschen, ersetzten

Combo mit Hiltergrundfarbe?

Text einfügen, löschen, ersetzten

Text einfügen, löschen, ersetzten

Text einfügen, löschen, ersetzten

Text einfügen, löschen, ersetzten

Text einfügen, löschen, ersetzten

Text einfügen, löschen, ersetzten

Text einfügen, löschen, ersetzten

Text einfügen, löschen, ersetzten

MAC-Adresse der LAN-Verbindung auslesen?

MAC-Adresse der LAN-Verbindung auslesen?

MAC-Adresse der LAN-Verbindung auslesen?