Hi, ich benutzeimmer wieder gerne das kleine Tool von MEGA
Decode Produktkey
Das funzt aber bei 64 Bit Systemen wohl nicht (Windows Produktkey).
Da steht dann immer XXXXX-XXXXX-XXXXX-XXXXX.
Ich nehme an das liegt daran das das Windows Server 2008 ein 64 Bit System ist ?!
Gibts dafür auch so eine schöne Lösung?
Da heißt, ich muß den Text jedesmal Zeile für Zeile bearbeiten.
Das wollte ich aber mit irgendeiner Funktion umgehen, scheint aber nicht zu gehen....
Schade
Hi, das mit den Umbrüchen ist zwar ne gute Idee, aber ich wollte es ganz ohne @cr usw.. hinbekommen.
Also so das ich den Text einfach vorher von irgendwoher kopieren kann um ihn dann sofort einfügen zu können.
Hallo,
ich möchte eine textblock in eine Datei schreiben aber ohne für jede Zeile ein Filewrite zu benutzen.
Gibt es da einen Trick wie man eine Textblock komplett in eine Datei schreiben kann ?
ich dachte da an so etwas wie "#comments-start" nur eben anders.
In etwa so..
[autoit]
#textblock-start
strComputer = "."
Set objWMIService = GetObject("winmgmts:"
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Put_
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
Set objDriver = objWMIService.Get("Win32_PrinterDriver")
objDriver.Name = "Lexmark T644 (MS)"
intResult = objDriver.AddPrinterDriver(objDriver)
#Textblock-ende
filewrite($datei,$textblock)
[/autoit][autoit][/autoit][autoit][/autoit]An folgende Variannte habe ich zuerst gedacht, aber das wird mir zu unübersichtlich.....
[autoit]
$textblock = 'strComputer = "."' & @crlf & ''Set objWMIService = GetObject("winmgmts:" ' & @crlf &........
filewrite($datei,$textblock)
[/autoit]Hat jemand eine Idee wie man das EINFACH hinbekommt ?
PS: der Textblock ist einfach nur ein Beispiel, es könnnte auch einfach ein Zeitungsbericht oder was anderes sein
Hallo,
bei manchen Autoit Spripten kommt eine Windowsfehlermeldung
Titel: AUTOIT3.EXE Fehler in Anwendung
Fenster: "Die Anweisung verweist auf Speicher...."
Manchmal läuft das Script durch, manchmal nicht.
Das Script liest Servernamen aus dem AD aus verschiedenen OUs und schaltet zwischendurch auf einen andere Domäne um und macht dort das selbe.
Ich habe es aber auch schon bei anderen Scripten gehabt, vor allem wenn FOR Schleifen benutzt werden.
Gibt es dafür eine grundsätzliche Erklärung ?
Danke,
das mit dem BLOB hatte ich auch schon gelesen.
Ich habe mir den Artikel auf der verlinken Seite auch angesehen, werde aber nicht so recht schlau daraus....
Dann wird das zunächst wohl nicht auszulesen sein.
Alles anzeigenHi, habe mal ne Frage zur GUI.
Also ich habe eine Gui, mit einem Button rufe ich eine Funktion auf die dann eine schleife durchläuft.
Jetzt hätte ich gerne das durch drücken eines beliebigen Buttons diese schleife beendet wird.Ich habe bis jetzt folgendes gemacht.
HotKeySet("{ESC}", "Beenden")
In diesem habe ich die schleife unterbrochen.
Wie könnte man sowas regeln ?
Kann mir da jemand einen Gedankenanstoss geben ?Durch setzen eines Flags ist schlecht, da mit dem gedrückten Button dann die nächste schleife loslaufen soll unter umständen.
Und das ganze soll ja global funktionieren.
Danke schon mal im voraus.
MfG
Hi, ich hatte heute das gleiche Problem.
Habs relativ einfach gelößt:
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1_start
$stop=0
test_drucker()
Case $Button_Stop
$stop=1
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
func test_drucker()
Do
......
Until $stop == 0
EndFuncHi, ich habe gestern festgestellt, das der Parametzer sehr wohl ausgelesen wird, aber warum auch immer liefert MS nicht das gewünschte Ergebnis so wie alle anderen Parameter sondern so was:
userParameters|CtxCfgPresent PCtxCfgPresent㔵攱戰ぢ LCtxWFProfilePath挵挵搶㠶㌷㈷〳ㄳ㈳㐳挵㐷㌷〷㈷昶㘶㤶挶㔶㐲挵搶㠶挵搶㔶㤷㔶㈷攲㐶㔶㐷挶㔶㘶〰.CtxMaxDisconnectionTimeっ㜲㤰〰 CtxMaxIdleTime〰㐷㝢(CtxMaxConnectionTime〰〰〰〰CtxCfgFlags1〰て㈲〹Unter UserParameters wird der Wert für "CtxWFProfilePath" leider kryptisch ausgegeben.
Siehst Du da noch eine Chance da was vernünftiges raus zubekommen ?
[Blockierte Grafik: http://www.selfadsi.de/img/tutorial/ad-user-attributes-14.png]
Hi, ich nutze die AD funktionen auch ganz fleissig und bin echt angetan was man damit alles machen kann.
Ein Problem habe ich gerade.
Wie kann ich den Wert für "TerminalServicesProfilePath" ermitteln.
Mit "_AD_GetObjectProperties($username,"") bekomme ich allerhand Infos über eine User wie zum Beispiel den Pfad zum Homedirectory.
Allerdings fehlt der "TerminalServicesProfilePath".
Soweit ich "ge-googlet" habe muß ich dazu die USERINFO abfragen, allerdings habe ich keine schimmer wie ich das machen soll ?!?
Ich habe folgendes Problem.
In einer Listbox stehen ca 500 Namen.
Ich will dann nur einen belibigen Teil des Namens eingeben und es soll der zutreffene Name selektiert werden.
Das machje ich mit
_GUICtrlListBox_FindInTextKlappt soweit ganz gut.
Das Problem ist aber das die Liste Alphabetisch nach Vornamen geordnet ist und ich aber jemanden suche dessen Vornamen ich nicht kenne.
Also gebe ich den Nachnamen ein.
Auch das klappt, aber wenn es mehrere mit dem Nachnamen z.B. "REX" gibt, wird immer nur der erste makiert.
Was muß ich machen das mir auch der nächste passende Eintrag markiert wird ??
#include <array.au3>
#Include <GuiListView.au3>
#include <GUIListBox.au3>
#include <GuiConstantsEx.au3>
dim $aArray1, $aArray2, $username, $dom, $standort, $server, $path, $ado, $cmd2, $search, $input_suche
dim $aArray1, $aArray2, $username, $ButtonStart2, $Hompfad, $Input1, $erfolg
#include <GuiButton.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=u:\au3\marc\user.cmd.kxf
$Form1_1 = GUICreate("", 368, 407, 353, 259)
$List1 = GUICtrlCreateList("", 30, 210, 1, 6)
$List2 = GUICtrlCreateList("", 10, 170, 210, 175)
$input_suche = GUICtrlCreateInput("freitextsuche", 10, 142, 211, 21)
;~ _GUICtrlButton_SetFocus($Ordner_durchsuchen)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_SHOW)
_GUICtrlListBox_AddString($list2, "Karl.Lurks")
_GUICtrlListBox_AddString($list2, "Martin.Rex")
_GUICtrlListBox_AddString($list2, "Karl.Rex")
_GUICtrlListBox_AddString($list2, "Martin.Glück")
_GUICtrlListBox_AddString($list2, "Peter.Pan")
_GUICtrlListBox_AddString($list2, "Martina.Wolf.")
_GUICtrlListBox_AddString($list2, "Karl.Dergrosse")
_GUICtrlListBox_AddString($list2, "Sabine.Super")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$search = GUICtrlRead($input_suche)
$iIndex = _GUICtrlListBox_FindInText($List2,$search)
_GUICtrlListBox_SetCurSel($List2, $iIndex)
Sleep(100)
WEndEinfach den Ordner im Windows Explorer öffnen um die Datei (bzw die kompilierte EXE ) dann weiter zu nutzen (kopieren, mailen, löschen, oder sonst was).
Gibt es in Scite eigentlich eine Möglichkeit den Ordner zu öffnen in dem sich das Script befindet.
Wenn man mit der Maus über die Tabs streift zeigt er ja den Pfad an.
Den würde ich gerne auch direkt öffnen.
Hallo, es ist zwar schon alles etwas her, aber vielleicht versucht ja noch jemand eine Exeltabelle in eine Array einzulesen und stellt fest das das immer echt lange dauert.
Ich habe deswegen versucht das Array was mir _ExcelReadSheetToArray($oExcel) liefert in eine Datei zu schreiben und anschließend wieder auszulesen.
Das geht wesentlich schneller.
Ich habe mir also zwei Funktionen geschrieben weil ich mit den Vorschlägen hier im Thread nicht klar gekommen bin.
HAVE FUN:
Func Array2inifile ($dateiname)
For $x=0 To $aArray[0][0] Step 1; Zeile
For $y=0 To $aArray[0][1] Step 1 ; Spalte
;~ ToolTip($x & "|" & $y & "-" & $aArray[$x][$y])
;~ Sleep(1000)
IniWrite($dateiname,"Zeile" & $x,$y, $aArray[$x][$y])
Next
Next
EndFunc
Func Inifile2Array ($dateiname)
$x_dim = IniRead($dateiname,"Zeile0","0","")
$y_dim = IniRead($dateiname,"Zeile0","1","")
;~ MsgBox(0,$filesave,$x_dim & "|" & $y_dim)
Global $aArray[$x_dim + 1][$y_dim + 1]
For $x=0 To $x_dim Step 1; Zeile
For $y=0 To $y_dim Step 1 ; Spalte
;~
$aArray[$x][$y]=Iniread($dateiname,"Zeile" & $x,$y,"")
;~ ToolTip($x & "|" & $y & "-" & $aArray[$x][$y])
;~ Sleep(500)
Next
Next
;~ _ArrayDisplay($aArray)
EndFuncSo funktioniert das mit 30 Objekten gleichzeitig eigentlich immer.
Ich habe es auch mal mit 84 Objekten probiert, da chrascht das VBS Script gelegentlich.
#include <process.au3>
#include <Misc.au3>
dim $temp_vba, $file, $mailempfaenger, $betreff = "", $body = "", $attach, $random , $PID
$PID=@AutoItPID
$random = Random(1,100)
$temp_vba = @TempDir & "\" & "vbamail_" & @MSEC & $pid & $random & ".vbs"
sleep(1000)
if FileExists($temp_vba) Then $temp_vba= @TempDir & "\" & "vbamail_" & $random & @MSEC & ".vbs"
$file=FileOpen($temp_vba,2)
vba_mail()
Func vba_mail()
if not ProcessExists ("outlook.exe") Then ShellExecute("outlook.exe")
While 1
If ProcessExists ("outlook.exe") Then ExitLoop
Sleep(1000)
WEnd
if $CmdLine[0] = 0 Then
help()
EndIf
; Komandozeilenparameter auslesen
if IsArray($CmdLine) Then
$i=1
for $i=1 to $CmdLine[0] Step 1
if $CmdLine[$i] = "-h" Then help()
if $CmdLine[$i] = "-r" Then $mailempfaenger=$CmdLine[$i+1]
if $CmdLine[$i] = "-s" Then $betreff=$CmdLine[$i+1]
if $CmdLine[$i] = "-m" Then $body=$CmdLine[$i+1]
if $CmdLine[$i] = "-f" Then $attach=$CmdLine[$i+1]
Next
;~ $summe=StringToBinary($mailempfaenger)+StringToBinary($betreff)+StringToBinary($body)+StringToBinary(@MSEC)
;~ ToolTip($mailempfaenger & " " & $betreff & " " & $body & " " & $attach)
;~ Sleep(5000)
EndIf
FileWriteLine($file, 'Set oOApp = CreateObject("Outlook.Application")')
FileWriteLine($file, 'Set oOMail = oOApp.CreateItem(olMailItem)')
FileWriteLine($file, 'With oOMail')
FileWriteLine($file, ' .To = "' & $mailempfaenger & '"')
FileWriteLine($file, ' .Subject = "' & $betreff & '"')
FileWriteLine($file, ' .Body = "' & $body & '"')
if Not $attach = "" Then FileWriteLine($file, ' .Attachments.Add("' & $attach & '"), olByValue, 1 ')
FileWriteLine($file, ' .Send')
FileWriteLine($file, 'End With')
FileClose($file)
RunWait($temp_vba)
FileDelete($temp_vba)
EndFunc
Func Help()
MsgBox(0,"Sendet MAPI Emails von der Komandozeile (Outlook muß gestartet sein)",'Beispiel:' & @cr & 'mapimail.exe -r "ab@c.de" -s "Betreff" -m "Mailtext" -f "c:\test.txt" '& @CR & @CR& _
'-h "ruft diese Hilfe auf"'& @CR & _
'-r "Empfänger" (mehrere mit ";" trennen, keine Leerzeichen erlaubt)'& @CR & _
'-s "Betreffzeile"'& @CR & _
'-m "Mailtext"'& @CR & _
'-f "Pfad zum Attachment"' _
)
Exit
EndFuncIch habe mir schon fast alles in der Hilfe durchgelesen, habe aber immer bei den Prozess Befehlen geguckt....
Was ich aber feststelle das das mit @AutoItPID relativ gut funktioniert.
Ich habe aber mal versucht mehr als 20 mal den gleichen Prozess zu starten, dann gibt es dennoch gelegentlich eine doppelte PID was ja nicht sein kann den einen Prozess kann es ja immer nur einmal geben.
Deswegen die Zeile mit dem Sleep(1000).
Dann funktioniert es.
ich habe das jetzt so gemacht:
$PID=@AutoItPID
$random = Random(1,100)
$temp_vba = @TempDir & "\" & "vbamail_" & @MSEC & $pid & $random & ".vbs"
sleep(1000)
if FileExists($temp_vba) Then $temp_vba= @TempDir & "\" & "vbamail_" & $random & @MSEC & ".vbs"
$file=FileOpen($temp_vba,2)
....Hallo,
wie bekomme ich die PID von einem laufenden Script raus ?
Ich will die PID innerhalb des selben Scripts weiternutzen um einen Zufälligen Namen zu erzeugen.
Mit random klappt das nicht da mehrere Prozesse die gleichzeitig gestartet werden immer die selbe Zahl rausschmeißen.
Die PID ist aber immer eindeutig, deswegen will ich die innerhalb eines Scriptes ermitteln um dann eine Dateinamen zu bauen der die PID Nummer enthält.
Danke,
sah auf den ersten Blick gut aus, aber mir ist noch was anderes eingefallen.
Hallo,
ich habe wieder mal ein Problem.
Ich habe eine Script geschrieben das mittels eines VBA Scriptes eine MAPI Mail verschickt.
Dazu erzeuge ich im TEMP Ordner eine VBS Datei die dann mit daten gefüllt wird.
Das klappt im Prinzip wunderbar solange das Script nicht zweimal gleichzeitig ausgeführt wird.
genau das will ich aber per Taskplaner machen, so das dann ein VBS Fwehler erzeugt wird (Datei ist schon im Zugriff)
Ich habe versucht das Problem mit RANDOM zu lösen.
Da der Taskplaner aber mehrere male das Script wirklich in der selbern Millisekunde startet wird immer wieder ein dioppelter Name erzeugt was dann zur Fehlermeldung führt.
Vielleicht hat jemand eine Idee wie ich das Probklem gelößt bekomme ?
Hier die entscheideneden Zeilen:
$temp_vba = @TempDir & "\" & "vbamail_" & @MSEC & @MDAY & $random & ".vbs"
sleep(10)
if FileExists($temp_vba) Then $temp_vba= @TempDir & "\" & "vbamail_" & $random & @MSEC & ".vbs"
$file=FileOpen($temp_vba,2)Für alle die das mit dem MAPI Mailen Interessiert hier der gesamte Code
#include <process.au3>
$random = Random(1,100,1)
dim $temp_vba, $file, $mailempfaenger, $betreff = "", $body = "", $attach, $random = Random(@msec,@MSEC+@MSEC+@MSEC,1)
$temp_vba = @TempDir & "\" & "vbamail_" & @MSEC & @MDAY & $random & ".vbs"
sleep(10)
if FileExists($temp_vba) Then $temp_vba= @TempDir & "\" & "vbamail_" & $random & @MSEC & ".vbs"
$file=FileOpen($temp_vba,2)
vba_mail()
Func vba_mail()
if not ProcessExists ("outlook.exe") Then ShellExecute("outlook.exe")
While 1
If ProcessExists ("outlook.exe") Then ExitLoop
Sleep(1000)
WEnd
if $CmdLine[0] = 0 Then
help()
EndIf
; Komandozeilenparameter auslesen
if IsArray($CmdLine) Then
$i=1
for $i=1 to $CmdLine[0] Step 1
if $CmdLine[$i] = "-h" Then help()
if $CmdLine[$i] = "-r" Then $mailempfaenger=$CmdLine[$i+1]
if $CmdLine[$i] = "-s" Then $betreff=$CmdLine[$i+1]
if $CmdLine[$i] = "-m" Then $body=$CmdLine[$i+1]
if $CmdLine[$i] = "-f" Then $attach=$CmdLine[$i+1]
Next
;~ $summe=StringToBinary($mailempfaenger)+StringToBinary($betreff)+StringToBinary($body)+StringToBinary(@MSEC)
;~ ToolTip($mailempfaenger & " " & $betreff & " " & $body & " " & $attach)
;~ Sleep(5000)
EndIf
FileWriteLine($file, 'Set oOApp = CreateObject("Outlook.Application")')
FileWriteLine($file, 'Set oOMail = oOApp.CreateItem(olMailItem)')
FileWriteLine($file, 'With oOMail')
FileWriteLine($file, ' .To = "' & $mailempfaenger & '"')
FileWriteLine($file, ' .Subject = "' & $betreff & '"')
FileWriteLine($file, ' .Body = "' & $body & '"')
if Not $attach = "" Then FileWriteLine($file, ' .Attachments.Add("' & $attach & '"), olByValue, 1 ')
FileWriteLine($file, ' .Send')
FileWriteLine($file, 'End With')
ShellExecute($temp_vba)
EndFunc
Func Help()
MsgBox(0,"Sendet MAPI Emails von der Komandozeile (Outlook muß gestartet sein)",'Beispiel:' & @cr & 'mapimail.exe -r "ab@c.de" -s "Betreff" -m "Mailtext" -f "c:\test.txt" '& @CR & @CR& _
'-h "ruft diese Hilfe auf"'& @CR & _
'-r "Empfänger" (mehrere mit ";" trennen, keine Leerzeichen erlaubt)'& @CR & _
'-s "Betreffzeile"'& @CR & _
'-m "Mailtext"'& @CR & _
'-f "Pfad zum Attachment"' _
)
Exit
EndFuncHi,
super!
das ist es gewesen.
Hab das gar nicht gesehen das ich da eine Option gesetzt habe.
Das ganze Script ist wesentlich länger, da ist mir das gar nicht aufgefallen.
DANKE!!!
Hallo,
ich habe ein kleines Script geschrieben welches automatisch eine Mausklick macht wenn zu einer bestimmten IP Adresse eine Netstat -Verbindung existiert.
Das Problem: in einer While Schleife wird eine Netstat Befehl aufgerufen, bei jedem aufruf stegt dabei der Speicherbedarf.
Kann mir jemand sagen woran das liegt ?
dim $merker
$beamer_ip = "10.10.10.47"
$cmd = 'netstat -n |find "' & $beamer_ip & '"'
While 1
Sleep(1000)
If Ping($beamer_ip,10000) > 0 Then
$merker=RunWait(@ComSpec & " /c " & $cmd, "", @SW_HIDE,6)
EndIf
WEnd