Beiträge von mauric

mauric

Wollte mich bei Euch allen bedanken für die Zahlreichen Antworten.

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.

AutoIt

RunWait(@ComSpec & ' /c ' & $7 & " " & $x & " " & $all & " " & $de & " " & $d,'', @SW_SHOW)

Danke für die Hilfe,

Doch mit dem String Format würde es mich schon noch wundern wie dies nun wirklich funktionieren würde!?

mauric

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

#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

Alles anzeigen

mauric

Aber dies sollte doch funktionieren?, ich möchte dies verstehen!? Bitte

Danke Euch vielmals !

Code

Local $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)

Alles anzeigen

mauric

Danke der schnellen Antwort,
Wünsche ein ruhiges Weekend!

mauric

Hallo Bittnugger!

Wollte mich bedanken für die schnelle Hilfe die ich bekommen durfte!
Mauri

mauric

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 versteh

Ich bitte um Hilfe!

Spoiler anzeigen

C

#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

Alles anzeigen

mauric

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\Backup

Die 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

mauric

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

#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

Alles anzeigen

mauric

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 lassen

Ja 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

mauric

Hallo Mauri!

Bash

Get-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

mauric

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.

mauric

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

mauric

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

mauric

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

mauric

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

#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=","";"

Alles anzeigen

mauric

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=",";" >>$MemberOfResult

Hättest du hier noch einen möglichen Tip!
Danke vielmals

mauric

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!
Danke

AutoIt

#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

Alles anzeigen

mauric

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

#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

Alles anzeigen

mauric

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.

Beiträge von mauric

und nochmals RunWait @ComSpec

und nochmals RunWait @ComSpec

und nochmals RunWait @ComSpec

und nochmals RunWait @ComSpec

[Amfänger] - if FileExist, ich komme nicht weiter

Und mein Script startet ein weiteres Dos fenster ?!

Und mein Script startet ein weiteres Dos fenster ?!

[Amfänger] - if FileExist, ich komme nicht weiter

[Amfänger] - if FileExist, ich komme nicht weiter

Anf$nger - Vermutich - Ubound Schleifen Fehler!

Einfügen von msTSHomeDirectory?

Einfügen von msTSHomeDirectory?

Anf$nger - Vermutich - Ubound Schleifen Fehler!

Einfügen von msTSHomeDirectory?

Anf$nger - Vermutich - Ubound Schleifen Fehler!

Anf$nger - Vermutich - Ubound Schleifen Fehler!

Input Wert wird nicht weitergegeben

Input Wert wird nicht weitergegeben

Input Wert wird nicht weitergegeben

Package.wms -> Windows RegFile