Beiträge von Dino

cooler Antwort

Gemeint war, wie das mit AutoIT erledigen kann.

Hallo zusammen,

wie kann ich auf der angemeldeten Computer (wo ich selbst Admin bin), den Benutzer "Billi" als Administrator hinzufügen?

Besten Dank im Voraus!

Viele Grüße,
Dino

Hallo Leute,

ich habe zwei Fragen:

1. Mit diesem Eintrag kann ich unter Windows XP ohne Probleme die Autostart-Verknüpfung starten:

ShellExecuteWait(@StartupCommonDir & "\CAD-Updater.lnk")

Unter Windows 7 wird diese nicht gestartet, obwohl die Verknüpfung unter Autostart existiert. Was muss ich ändern, damit es auf beiden OS funktioniert?

2. Ich bin unter Windows 7 als Administartor angemeldet und bei der Installation des Programms (exe mit AutoIT erstellt) muss ich immer über die rechten Maustaste auf die EXE-Datei "als Administrator ausführen" klicken, um die Installation zu starten.
Mit dem Doppelklick auf die EXE-Datei bekomme ich diverse Fehlermeldungen. Unter Windows XP ging das ohne Probleme. Ist es so unter Windows 7?

Besten Dank!

Viele Grüße,
Dino

Danke m-obi !!!

So geht es

Hi funkey,

so geht es auch nicht.

Um auf Button "OK" zu klicken, habe ich die beiden ersten Zeile auskommentiert und das Button wird angeklickt:

;~ $prerequisitesDir= @ScriptDir & "\Bentley\MicroStation V8 XM Edition Prerequisite Pack\msspp08090402de\"
;~ ShellExecuteWait('"' & $prerequisitesDir & 'PrerequisitesGUI.hta"')

WinWait("MicroStation V8 XM Edition Software Prerequisite Pack","Der Installationsvorgang ist beendet.")
WinActivate("MicroStation V8 XM Edition Software Prerequisite Pack","Der Installationsvorgang ist beendet.")
ControlClick ("MicroStation V8 XM Edition Software Prerequisite Pack", "Der Installationsvorgang ist beendet", "Button1")

Wenn ich es zusammen starte, dann halt nicht.

Hallo zusammen,

ich habe das problem, um den Button "OK" nach der Installation zu klicken. Vielleicht, weil beide Fenster denselben Titel haben.

$prerequisitesDir= @ScriptDir & "\Bentley\MicroStation V8 XM Edition Prerequisite Pack\msspp08090402de\"
ShellExecuteWait('"' & $prerequisitesDir & 'PrerequisitesGUI.hta"')

;~ WinWait("MicroStation V8 XM Edition Software Prerequisite Pack","Der Installationsvorgang ist beendet.")
;~ WinActivate("MicroStation V8 XM Edition Software Prerequisite Pack","Der Installationsvorgang ist beendet.")
;~ ControlClick ("MicroStation V8 XM Edition Software Prerequisite Pack", "OK", "Button1")

WinWait("","Der Installationsvorgang ist beendet.")
If Not WinActive("","Der Installationsvorgang ist beendet.") Then WinActivate("","Der Installationsvorgang ist beendet.")
ControlClick("", "Der Installationsvorgang ist beendet.","Button1")

[Blockierte Grafik: http://www.imgbox.de/users/public/images/oKdc2qCYqI.jpg]

Was muss ich bitte ändern?

Besten Dank!

Viele Grüße,
Dino

Hi Micha,

jetzt geht es, so wie Du geschrieben hast.

Danke!

Viele Grüße,
Dino

Hallo zusammen,

jetzt bin ich am verzweifeln.... Es kommt keine Fehlermeldung, aber der dotnetfx.exe wird nicht gestartet bzw. installiert.

Hi Micha,

wenn du meinst das es an der Lände der Dir liegt. Das ist es nicht. Ich habe es auch so versucht, ohne Erfolg:

ShellExecuteWait("T:\Dino\" & 'dotnetfx.exe" /q:a /c:Install /l /q')

Hi Sprenger120,

jetzt kommt keine Fehlermeldung, aber es wird nichts installiert.

So

ShellExecuteWait($prerequisitesDir & 'dotnetfx.exe" /q:a /c:Install /l /q')
ShellExecuteWait($prerequisitesDir & 'LangPack.exe" /q:a /c:Install /l /q')

habe ich versucht und bekomme diese Meldung:
"G:\ustation_admin_XM\install\Bentley\MicroStation V8 XM Edition Prerequisite Pack\msspp08090402de\dotnetfx.exe" /q:a /c:Install /l /q" konnte nicht gefunden werden.
Stellen sicher, dass den Namen korrekt eingegeben haben und wiederholen Sie den Vorgang “Start“ und anschließend auf “Suchen“, um eine Datei zu suchen.

Datei existiert 100%-ig im Pfad.

Hallo zusammen,

wo habe ich hier Fehler gemacht:

$prerequisitesDir= @ScriptDir & "\Bentley\MicroStation V8 XM Edition Prerequisite Pack\msspp08090402de\"

#region ### Prüfung ob DotNet FX 2.0 vorhanden ###
If not FileExists(@WindowsDir & '\Microsoft.NET\Framework\v2*') Then
; nicht installiert ==> Installroutine dotnet starten
ShellExecuteWait($prerequisitesDir & "dotnetfx.exe /q:a /c:Install /l /q")
ShellExecuteWait($prerequisitesDir & "LangPack.exe /q:a /c:Install /l /q")
EndIf

Wenn ich dies: /q:a /c:Install /l /q weglasse, dann geht es.

Besten Dank!

Viele Grüße,
Dino

Vielen Dank, alle Vorschäge funktionieren....

Gruß,
Dino

Hallo zusammen,

die Datei: C:\Programme\LuxCAD_XM\Version.log hat z.B. folgenden Inhalt:
[LuxCAD]
Version=9110103101

Aufbau der Datei:
1.Stelle + 2.Stelle = Versionnr.
3.Stelle + 4.Stelle = Jahr
5.Stelle + 6.Stelle = Monat
7.Stelle + 8.Stelle = Tag
9.Stelle + 10.Stelle = Index (soll im MsgBox nicht ausgegeben werden)

Nachher soll die Ausgabe im MsgBox so aussehen:
Version: 9.1 vom 2010-10-31

Dim $logfile = "C:\Programme\LuxCAD_XM\Version.log"
$Version = IniRead($logfile,"LuxCAD","Version", "")
MsgBox(0,"Version:",StringMid($Version, 9, 1) & "." & StringMid($Version, 10, 1) & "vom" & Format(DateSerial(StringMid($Version, 11, 2), StringMid($Version, 13, 2), StringMid($Version, 15, 2)), "YYYY-MM-DD"))

Was habe ich falsch gemacht?

Besten Dank im Voraus!

Viele Grüße,
Dino

Danke Alex, jetzt geht es

Hallo Alex,

ich habe es getestet und der Ordner heißt jetzt "LuxCAD_XM_2010 -10-27".
Nach dem Jahr ist ein Leerzeichen zuviel, den ich nicht nicht wegbekomme.
Ich habe so probiert: $jahr=$array[3]
$jahr=StringLeft($jahr, StringInStr($jahr," "))

Außerdem habe ich festgestellt, dass ich im Ordner C:\Programme\LuxCAD_XM sehr viele Dateien habe, und somit das Durchsuchen lange dauert.
Könnten man es so abändern, dass nur die Unterordner die mit "bin" beginnen durchgesucht werden?
Ich habe so probiert: $Filearray=_file_search("C:\Programme\LuxCAD_XM\",".*\bin*\.ma$")

Besten Dank!

@BugFix: Du hast Recht. Aber mir fehlt es immer schwer. Das ist einfach zu viel. So aufzeichnen und abändern, das würde ich zur Zeit noch hinbekommen.

Viele Grüße,
Dino

Hallo zusammen,

ich möchte diesen Ordner C:\Programme\LuxCAD_XM in
C:\Programme\LuxCAD_XM + _ + Geändert am Datum (JJJJ-MM-TT) der jüngste *.ma Datei (die soll in allen Unterodrner von C:\Programme\LuxCAD_XM durchgesucht werden) umbenennen.

Bsp. nachher:C:\Programme\LuxCAD_XM_2010-10-27

Wie geht das? Vielen, vielen Dank im Voraus!Viele Grüße,
Dino

Hallo Leute,

gibt es die Möglichkeit im Firefox (Extras ==> Einstellungen ==> Registerkarte: Netzwerk ==> Einstellungen) den Proxy auf "Kein Proxy" zu stellen und danach die Seite "www.t-online.de" direkt aufzurufen?

Besten Dank im Voraus!

Viele Grüße,
Dino

Funktioniert super.... Besten Dank!!!!

Hallo Leute,

ich möchte immer freitags um 19 Uhr alle Dateien incl. Unterordner die im Ordner T:\Eingang\ liegen auf Festplatte D:\Eingang\ verschieben.
Auf D:\Eingang\ soll vor Verschiebung der Ordner mit akteullem Datum (Syntax JJJJ-MM-TT) erstellt werden. Bsp. D:\Eingang\2010-08-27

Wer kann mir bitte dabei helfen?!

Besten Dank im Voraus!

Viele Grüße,
Dino

Hallo Leute,

ich habe mir eine GUI erstellt. Jetzt fehlt mir nur der Code der alle Dateien im Ordner so umbenennt wie der Ordnername.
Könntet ihr mir bitte helfen....

Beispiel vorher:
C:\Dino\Harry Potter und der Halbblutprinz\hp uder halb.avi

Beispiel nachher:
C:\Dino\Harry Potter und der Halbblutprinz\Harry Potter und der Halbblutprinz.avi

[Blockierte Grafik: http://www.imgbox.de/users/public/images/3Myclhc8Wo.jpg]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Dino\form1_1.kxf
$Form1_1 = GUICreate("Ordnername = Dateiname", 499, 95, 242, 204)
$Button1 = GUICtrlCreateButton("START", 184, 48, 121, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x008000)
$Button2 = GUICtrlCreateButton("Abbruch", 320, 48, 137, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x800000)
$Button3 = GUICtrlCreateButton(">", 464, 16, 25, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label2 = GUICtrlCreateLabel("Ordner:", 8, 20, 54, 17)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 72, 16, 385, 21)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Checkbox1 = GUICtrlCreateCheckbox("Unterordner", 72, 56, 89, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Besten Dank !

Viele Grüße,
Dino