Wollte mich bei Euch allen bedanken für die Zahlreichen Antworten.
Beiträge von mauric
-
-
Hallo alle Zusammen!
Ich habe nun doch einige Tests gemacht und komme zum Entschluss.
Wenn ich so ein Zip erstellen möchte, ist dass Zip File immer leer, und mit einem KB.
AutoIt$iErr = RunWait(StringFormat('"%s" a "%s" "%s"', $sSevenZa, $sArchiv, $sSource), '', @SW_HIDE)
und der $iErr gibt so wieso nur eine nichts aussagende Zahl aus "-32475457" (für mich)Mit diesem Weg klappt es auch nicht.
AutoIt$c = RunWait(StringFormat('"%s" x "%s" "%s"',@ComSpec,@Systemdir, $7a, $x, $all, $de), '', @SW_SHOW)
Ich habe aber gesehen wie ich es doch korrekt packen&entpacken kann.
Danke für die Hilfe,
Doch mit dem String Format würde es mich schon noch wundern wie dies nun wirklich funktionieren würde!?
-
Zuerst möchte ich mich bei Euch bedanken für die vielen Antworten die ich erhalten durfte!
Ich habe Bitnugger schon korrekt verstanden doch dies funktioniert bei mir nicht!
Ich habe den Code nochmals angepasst aber das Dos-Fenster geht so schnell "AufZu" ich kann nicht sagen
was da genau steht, ich kann nur sagen dass es so noch nicht funktioniert.Ich hatte dies schon probiert mit dem RunWait(StringFormat..... Aber.... deshalb hab ich ein neuen "thread" erstellt.
Entschuldigt dass ich dies nochmals aufkoche....Spoiler anzeigen
AutoIt
Alles anzeigen#include <MsgBoxConstants.au3> entpacken() Func entpacken() Local $DirFolder, $fil, $all, $des, $7za, $ext Opt("ExpandVarStrings", True) ;; From source CSV Files available, copy run $DirFolder = "C:\Temp\Bulkowski\Patternz55\" $fil = "StocksCVSBackup-21_04_2017.zip" $all = "C:\Temp\Bulkowski\Patternz55\StocksCVSBackup-21_04_2017.zip" $des = "-oc:\Temp\Bulkowski\Patternz55\" $7za = "c:\windows\system32\7za.exe" $ext = "x" RunWait(StringFormat('"%s" %s "%s" "%s"', $7za, $ext, $all, $des), '', @SW_SHOW) ;; RunWait(@ComSpec & ' /c ' & $7za & ", " & $ext & ", " & $all & ", " & $des , '', @SW_SHOW) EndFunc
-
Aber dies sollte doch funktionieren?, ich möchte dies verstehen!? Bitte
Danke Euch vielmals !
Code
Alles anzeigenLocal $DirFolder, $7, $fil, $all, $de $DirFolder = "C:\Temp\Bulkowski\Patternz55\" $fil = "StocksCVSBackup*.zip" $all = "C:\Temp\Bulkowski\Patternz55\StocksCVSBackup*.zip" $de = "-oc:\temp\bulkowski\patternz55\" $7 = "c:\windows\system32\7za.exe" $x = "x" RunWait(@ComSpec & ' /c ' & '$7, $x, $all, $de', '', @SW_SHOW)
-
Danke der schnellen Antwort,
Wünsche ein ruhiges Weekend! -
Hallo Bittnugger!
Wollte mich bedanken für die schnelle Hilfe die ich bekommen durfte!
Mauri -
Hallo Zusammen
Ich habe hier ein Script, dass einfach nur CSV Files Zippen sollte und dieses Zip file anschliessend korrekt beschriftet mit Name+Datum.
Habe zwischenzeitlich mal etwas versucht zu "Coden/Schreiben" , aber es hat noch ein Fehler in der RunWait Zeile die ich aber momentan nicht mehr verstehIch bitte um Hilfe!
Spoiler anzeigen
C
Alles anzeigen#include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> zippen() Func zippen() FileDelete(".\input.csv") Local $destin, $source, $a, $DateName $destin = "c:\temp\stocks\Stocks.zip" $source = "c:\temp\stocks\*.csv" $wert = "a" RunWait(@ComSpec & " /c " & "& @SystemDir &" "'\7za.exe'" "'& $wert &'" "'& $destin &'" "'& $source &'"", @SW_SHOW) $DateName = @MDAY & "_" & @MON &"_" & @YEAR & "-StocksCVSBackup.zip" FileMove("'& $destin &'", $DateName) FileCopy("'& $destin &'",".\Archiv") FileDelete("'& $source &'") EndFunc
-
Hallo gmmg
Danke der schnellen Antwort!Mein Ziel:
Wenn die "*.CSV" Dateien Existiert so möchte ich alle CSV Files aus diesem Order in \Backup verschieben.
---> from c:\temp\looks\*.csv --> c:\temp\looks\BackupDie neuen CSV Dateien müssen anschliessend abgeholt werden aus dem Original und in Looks ablegen werden.
---> from s:\Original\a\*.cvs ---> c:\temp\looks\
So habe ich immer ein Backup vom Vortag, und könnte nochmals zurückgreifen.Danke
-
Hallo Zusammen
Ich möchte doch nur ein If FileExist then ausführen wenn dieses File wirklich existiert.
Aber keine Chance es Springt gelich zu "nothing todo"Bitte kan mir jemand mal eine Hilfe geben, Danke
Spoiler anzeigen
Code
Alles anzeigen#include <FileConstants.au3> Verschieben() Func Verschieben() ;; ---- From source CSV Files available, copy run Local $DirFolder $DirFolderFiles = "C:\Temp\Looks\A.csv" if FileExists($DirFolderFiles) Then FileMove("C:\Temp\Looks\*.cvs","C:\Temp\Looks\Backup\", 9) ;FileMove("S:\Original\a\*.cvs","c:\temp\Looks\", 9) Else MsgBox(1,"","Nothing todo",1); EndIf ;; ---- End, FINISH EndFunc
-
Hallo Zusammen
Danke an alle, ja nun Funktioniert es!Autoiter:
Korrekt die MsgBox war leer doch als ich diese Zeile "_ArrayDisplay($aUser)" eingefügt hatte
war doch alles hier wie du es erwähnt hast "DANKE!". Stimmt man lernt so nicht gerade viel
wenn man nur den Code zusammendrückt und kompiliert. Doch habe dies versucht zu Analysieren
mit meinen "MSGBoxen", doch hier war mein Fehler, diese Logik mit Array war "Neuland" sicher
muss ich dies durchlesen und ein wenig einwirken lassenJa Stimmt, zu 99% muss/sollte die Anwendung laufen bevor man überhaupt angefangen hat
Ich wünsche allen ein schönen Feierabend und sicher bis zum nächsten "Post"
Danke Gruss
Mauri -
Hallo Mauri!
BashGet-ADUser Mauri | ForEach-Object { $User = [ADSI]"LDAP://$($_.DistinguishedName)" $User.psbase.invokeset("TerminalServicesProfilePath","\\Server\Share\HomeDir\Mauri") $User.psbase.invokeset("TerminalServicesHomeDrive","H:") $User.psbase.invokeset("TerminalServicesHomeDirectory","\\Server\Share\Mauri") $User.setinfo() }
Danke
Mauri
-
http://faq-o-matic.net/2010/01/13/ter…-die-ungenutzte-neuerung/
- Aus dem Bericht:
Wer nun aber versucht, diese neuen Attribute zu nutzen, stellt fest: Steht nix drin.
Auch ein direkter Versuch klappt nicht: Ein TS-Profil beim User anlegen, dann mit
ADSI Edit nachsehen: msTSProfilePath ist leer. -
Mein erster Satz war "Hallo, Bitte nicht steinigen, ich bin Anfänger!"
- Ja vermutlich hat es noch mehr Fehler drin.....Aber:
- Bis Zeile 26 Funkltioniert's und der Inhalt wird korrekt angezeigt
- Zeile 27 gibt keinen Wert aus, also ist diese Inhaltslos
(Ich vermute immer noch weil dies mit "GuiCtrlCreateInput" abgefüllt wurde.)- Deshalb hab ich in Zeile 30 geschrieben For $i = 1 to UBound(GuiCtrlRead($Input1)) -1
weil diese noch zu diesem Zeitpunkt korrekt befüllt war/ist.Ich "hoffe" hier kann mir vielleicht jemand Helfen?
Danke -
Hallo Zusammen
Besteht die Möglichkeit mit AutoIT diese zwei Felder "msTSHomeDirectory" auszufüllen?
Ich habe nichts passendes gefunden, wäre um jeden Tipp Dankbar!
Danke -
Hallo Zusammen
Im Script werden die AD "UserMemberOfGroup" ausgelesen und unterschiedlich filtriert mit "StringReplace" die "GuiCtrlRead($Input1))" habe ich genommen weil der Input mit GUICtrlCreateInput erstellt wurde.
Danke -
Hallo Zusammen
Bitte nicht steinigen, ich bin Anfänger!Ich benötige Hilfe, da ich nicht sehe wie dies mit der Schleife weiter verarbeitet werden sollte.
Auch die ConsolWrite ausgabe spuckt mir nichts aus.
Bin wirklich froh um jede Hilfe!AutoIt
Alles anzeigen#include <AD.au3> #include <GUIConstantsEx.au3> #include <FileConstants.au3> _AD_Open() Global $file, $sOutput, $sOutput2, $sOutput3, $UserName, $Tmp, $aUser Global $Form1, $Input1, Button1, $Exit $Form1 = GUICreate("AD-Tool - MemberOf", 269, 110,193,115) $Input1 = GUICtrlCreateInput("",72,16,121,21) $Button1 = GUICtrlCreateButton("Read Out Now!",72,50,90,30,0) $Exit = GUICtrlCreateButton("Exit",170,50,90,30,0) GUISetState(@SW_SHOW) While 1 ;;; start of loop[/COLOR] $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 MsgBox(1,"1.Fenster",""& GuiCtrlRead($Input1)) ; enthält Input1 $aUser = _AD_GetUserGroups(GUICtrlRead($Input1)) MsgBox(1,"2.Fenster",""& GuiCtrlRead($Input1),100) ; enthält Input1 MsgBox(1,"3.Fenster","", $aUser) ; leer $file = FileOpen("test.txt", 2) FileWriteLine($file, "Name : "& GuiCtrlRead($Input1)) For $i = 1 to UBound(GuiCtrlRead($Input1)) -1 $sOutput = StringRegExpReplace(GuiCtrlRead($Input1)[$i]), '^CN=([^,]+),OU=.+,'$1') $sOutput2 = StringRegExpReplace($sOutput, '^CN=([^,]+),DN=.+,'$1') $sOutput3 = StringRegExpReplace($sOutput2, '^CN=([^,]+),CN=.+,'$1') $sOutput3 = StringReplace($sOutput3, 'á', "ß") $sOutput3 = StringReplace($sOutput3, 'š', "Ü") $sOutput3 = StringReplace($sOutput3, '™', 'Ä') $sOutput3 = StringReplace($sOutput3, 'š', 'Ö') $sOutput3 = StringReplace($sOutput3, 'Ž', "ü") $sOutput3 = StringReplace($sOutput3, '„', "ä") $sOutput3 = StringReplace($sOutput3, '”', "ö") ConsoleWrite (_ANSI2OEM($sOutput3 &@LF)) FileWriteLine($file, $sOutput3 & @CRLF) Next Func _ANSI2OEM($text) $text = DllCall('user32.dll', 'Int', 'CharToOem', 'str', $text, 'str', '') Return $text[2] FileClose($file) Exitloop EndSwitch WEnd EndFunc ; ((Get-ADUser "User" -Properties *).MemberOf -split (",") | Select-String -SimpleMatch "CN=") -replace "CN=","";"
-
Hallo Autoiter
ich habe nun dieses Zeichen ausgetauscht doch er stolpert immer noch in dieser Zeile... oder muss ich RunAsWait nehmen?
Spoiler anzeigen
ShellExecuteWait("-u Domain\User", "-p Password", "powershell.exe ((Get-ADUser "& $Input1 &" -Properties *).MemberOf -split (",") | Select-String -SimpleMatch "CN=") -replace "CN=",";" >>$MemberOfResultHättest du hier noch einen möglichen Tip!
Danke vielmals -
Danke der schnellen Antwort!
Ich habe nun meinen Teil erweitert doch dieser funktioniert noch nicht so richtig...... kann mir hier nochmals jemand Helfen.
Wäre wirklich sehr Dankbar!
DankeAutoIt
Alles anzeigen#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("AD-Tool - MemberOf", 269, 110,193,115) $Input1 = GUICtrlCreateInput("",72,16,121,21) $Button1 = GUICtrlCreateButton("Read Out Now!",72,50,90,30,0) $Exit = GUICtrlCreateButton("Exit",170,50,90,30,0) GUISetState(@SW_SHOW) ;; set the gui state to show so you can see it While 1 ;;; start of loop[/COLOR] $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 ShellExecuteWait("-u Domain\user", "-p password", powershell.exe ""((Get-ADUser "& $Input1 $" -Properties *).MemberOf -split (",") | Select-String -SimpleMatch "CN=") -replace "CN=",";""') >>c:\group.txt" ; MsgBox(1,"","Username: "& GUICtrlRead($Input1),100) Case $Exit Exitloop EndSwitch WEnd
-
Hallo Zusammen
Absoluter Anfänger sucht Hilfe.... mein InputWert wird nicht korrekt weitergereicht.Ich möchte gerne erreichen dass dieses Script schlussendlich denn Input danach im AD sucht und die GruppenMemberOf ausliest
und diese danach in einem Text Dokument abspeichert. Aber bis dahin werde ich sicher noch ein paar mal anklopfen müssen.Besten Dank!
AutoIt
Alles anzeigen#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form1", 269, 99,193,115) $Input1 = GUICtrlCreateInput("",72,16,121,21) $Tmp = GUICtrlRead($Input1) $Button1 = GUICtrlCreateButton("Button1",96,56,75,25,0) GUISetState(@SW_SHOW) ;; set the gui state to show so you can see it While 1 ;;; start of loop[/COLOR] $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 MsgBox(1,"","111"& $Tmp &"ddd",100) EndSwitch WEnd
-
Hallo KloMeister
Also meine bsp. dass ich bis jetzt gemacht habe ist bei weitem noch nicht so weit wie du dies mir mal schnell hingezaubert hast.