Und noch ne Frage

TheSaint

Hi ... Die Sache ist die:

Ich möchte mit der Funktion "FileCopy" eine Datei in ein festgelegtes Verzeichnis kopieren. Da ich aber die "Quell-Datei" auf eine CD brennen werde, weiß ich nicht wie ich in der Funktion das Parameter "source" angeben soll!

Brauche also eine Bezeichnung dafür, wo der Buchstabe des Laufwerks normalerweise stehen würde!!

Hoffe, das war verständlich!

mfg, TheSaint

jonk

hmm, Du weißt also nicht welchen LW-Buchstaben das CDROM-LW haben wird? Da könnte Dir WMI weiterhelfen. Oder ne GUI. Welches Schweinderl hättens denn gern

TheSaint

Nein, den Buchstaben weiß ich eben nicht....

kannst du das n bisserl genauer beschreiben und evtl. die zeile für mich reinschreiben?^^

jonk

Code

; Erstellt von AutoIt Scriptomatic
$wbemFlagReturnImmediately=0x10
$wbemFlagForwardOnly=0x20
$colItems=""
$strComputer="localhost"
$Output=""
$Output&="Computer: " &$strComputer  & @CRLF
$Output&="==========================================" & @CRLF
$objWMIService=ObjGet("winmgmts:\" &$strComputer &"\root\CIMV2")
$colItems=$objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
   For $objItem In $colItems
      $Output&="Availability: " &$objItem.Availability & @CRLF
      $strCapabilities=$objItem.Capabilities(0)
      $Output&="Capabilities: " &$strCapabilities & @CRLF
      $strCapabilityDescriptions=$objItem.CapabilityDescriptions(0)
      $Output&="CapabilityDescriptions: " &$strCapabilityDescriptions & @CRLF
      $Output&="Caption: " &$objItem.Caption & @CRLF
      $Output&="CompressionMethod: " &$objItem.CompressionMethod & @CRLF
      $Output&="ConfigManagerErrorCode: " &$objItem.ConfigManagerErrorCode & @CRLF
      $Output&="ConfigManagerUserConfig: " &$objItem.ConfigManagerUserConfig & @CRLF
      $Output&="CreationClassName: " &$objItem.CreationClassName & @CRLF
      $Output&="DefaultBlockSize: " &$objItem.DefaultBlockSize & @CRLF
      $Output&="Description: " &$objItem.Description & @CRLF
      $Output&="DeviceID: " &$objItem.DeviceID & @CRLF
      $Output&="Drive: " &$objItem.Drive & @CRLF
      $Output&="DriveIntegrity: " &$objItem.DriveIntegrity & @CRLF
      $Output&="ErrorCleared: " &$objItem.ErrorCleared & @CRLF
      $Output&="ErrorDescription: " &$objItem.ErrorDescription & @CRLF
      $Output&="ErrorMethodology: " &$objItem.ErrorMethodology & @CRLF
      $Output&="FileSystemFlags: " &$objItem.FileSystemFlags & @CRLF
      $Output&="FileSystemFlagsEx: " &$objItem.FileSystemFlagsEx & @CRLF
      $Output&="Id: " &$objItem.Id & @CRLF
      $Output&="InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
      $Output&="LastErrorCode: " &$objItem.LastErrorCode & @CRLF
      $Output&="Manufacturer: " &$objItem.Manufacturer & @CRLF
      $Output&="MaxBlockSize: " &$objItem.MaxBlockSize & @CRLF
      $Output&="MaximumComponentLength: " &$objItem.MaximumComponentLength & @CRLF
      $Output&="MaxMediaSize: " &$objItem.MaxMediaSize & @CRLF
      $Output&="MediaLoaded: " &$objItem.MediaLoaded & @CRLF
      $Output&="MediaType: " &$objItem.MediaType & @CRLF
      $Output&="MfrAssignedRevisionLevel: " &$objItem.MfrAssignedRevisionLevel & @CRLF
      $Output&="MinBlockSize: " &$objItem.MinBlockSize & @CRLF
      $Output&="Name: " &$objItem.Name & @CRLF
      $Output&="NeedsCleaning: " &$objItem.NeedsCleaning & @CRLF
      $Output&="NumberOfMediaSupported: " &$objItem.NumberOfMediaSupported & @CRLF
      $Output&="PNPDeviceID: " &$objItem.PNPDeviceID & @CRLF
      $strPowerManagementCapabilities=$objItem.PowerManagementCapabilities(0)
      $Output&="PowerManagementCapabilities: " &$strPowerManagementCapabilities & @CRLF
      $Output&="PowerManagementSupported: " &$objItem.PowerManagementSupported & @CRLF
      $Output&="RevisionLevel: " &$objItem.RevisionLevel & @CRLF
      $Output&="SCSIBus: " &$objItem.SCSIBus & @CRLF
      $Output&="SCSILogicalUnit: " &$objItem.SCSILogicalUnit & @CRLF
      $Output&="SCSIPort: " &$objItem.SCSIPort & @CRLF
      $Output&="SCSITargetId: " &$objItem.SCSITargetId & @CRLF
      $Output&="Size: " &$objItem.Size & @CRLF
      $Output&="Status: " &$objItem.Status & @CRLF
      $Output&="StatusInfo: " &$objItem.StatusInfo & @CRLF
      $Output&="SystemCreationClassName: " &$objItem.SystemCreationClassName & @CRLF
      $Output&="SystemName: " &$objItem.SystemName & @CRLF
      $Output&="TransferRate: " &$objItem.TransferRate & @CRLF
      $Output&="VolumeName: " &$objItem.VolumeName & @CRLF
      $Output&="VolumeSerialNumber: " &$objItem.VolumeSerialNumber & @CRLF
      If Msgbox(1, "WMI-Ausgabe", $Output)=2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0, "WMI-Ausgabe","Keine WMI-Objekte gefunden für Klasse: " & "Win32_CDROMDrive")
Endif


Func WMIDateStringToDate($dtmDate)
  Return (StringMid($dtmDate, 5, 2) &"/" &StringMid($dtmDate, 7, 2) &"/" &StringLeft($dtmDate, 4) & " " &StringMid($dtmDate, 9, 2) &":" &StringMid($dtmDate, 11, 2) &":" &StringMid($dtmDate,13, 2))
EndFunc

Alles anzeigen

Da die WMI-Fibel in der Firma schlummert habe ich mal den Scriptomatic orakeln lassen...

TheSaint

???

Bin Anfänger, mein längsten Skripte sind ca. 20 Zeilen lang!!

geht das auch in deppen sprache!?^^

jonk

Na, wieso DeppenSprache. Wußte ja nicht das Du gerade erst anfängst

Code

$wbemFlagReturnImmediately=0x10
$wbemFlagForwardOnly=0x20
$colItems=""
$strComputer="localhost"
$objWMIService=ObjGet("winmgmts:\" &$strComputer &"\root\CIMV2")
$colItems=$objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
   For $objItem In $colItems
	  $DriveLetter = $objItem.Drive
	  If FileExists($DriveLetter & "\Icon.ico") Then
		FileCopy($DriveLetter & "\Icon.ico","d:",1)
	  EndIf
   Next
Else
   Msgbox(0, "WMI-Ausgabe","Keine WMI-Objekte gefunden für Klasse: " & "Win32_CDROMDrive")
Endif

Alles anzeigen

Also ich prüfe in dem Skript auf CDROM-Laufwerke und prüfe dann auf jedem Laufwerk ob es die gewünschte Quelldatei gibt. Wenn es die Datei gibt wird sie kopiert.

Tam0r

Hi Einfach in Source

Code

@scriptdir

einfügen
bzw würde so hinschreiben,

Code

FileCopy ( @scriptdir & "\Die QUELDATEI.exe","Ziel")

Wie du dir sicherlich denken kannst, bedeutet das makro @scriptdir der pfad des scrips das du geschrieben hast.Einfach alles in ein Verzeichnis werfen und gut ist

Gruss Tam0r

wolkenloser

Hier mal ein weg für "deppen"
(bitte nicht so eng sehen)

Code

;1. CDROM ermitteln
dim $a_bis_z
FindCD()
MsgBox(0,"",$a_bis_z)


Func FindCD()


	For $i = 65 To 90 ;A-Z
		$a_bis_z = Chr($i) & ':\'
		$cdr = DriveGetType($a_bis_z)
		If $cdr = 'CDROM' Then
			ExitLoop
		EndIf	
	Next
Return $a_bis_z
EndFunc

Alles anzeigen

Wenn Du jetzt noch für den gefundenen Buchstaben abfragst ob die Datei vorhaden ist, kannst Du sie in dein Ziel kopiern.

wolkenloser

Die Variannte mit @Scriptdir hatte ich gar nicht gesehen.
Sehr elegant gelößt!

TheSaint

Super, hat funktioniert, mit Tam0r`s Methode. Danke!

wolkenloser: Auch danke für deine Anstrengung, das is mir aber doch nur zu hoch^^

mfg, TheSaint

TheSaint

Aber bei meiner nächsten Installation gibt's wieder ein Problem (tja, man lernt halt nie aus

Wollte eine Microsoft Office-Unattended machen, doch bei der Key-Eingabe bin ich gescheitert, weil das erste Kästchen offenbar keine ControlID hat!!

Hier:

[Blockierte Grafik: http://img454.imageshack.us/img454/3153/namenlos17jl.png]

Die andere Kästchen habe aber eine, wie z.b. hier:

[Blockierte Grafik: http://img70.imageshack.us/img70/3096/namenlos22vc.png]

Habt ihr da auch was?^^

**peethebee**

Hallo!

Hat das erste CVontrool evtl. die ID 1, wenn das zweite 2 hat?
Ansonsten kann man es mit dem Befehl Send un Tab-Drücken machen.

peethebee

TheSaint

Nein, das witzige ist:

Der Bindestrich zwischen dem 1. und 2. Kästchen hat Nr. 1.
Das 2. Kästchen Nr. 2
Nächster Bindestrich hat demnach Nr. 3 usw ...

Werd's mal mit TAB probieren!

Ja, mit TAB komm ich ins entsprechende Fenster, aber wie schreib ich dann da was rein?

Bei ControlSetText muss man ja die ControlID eingeben!!

**peethebee**

So z.B:

Code

Send("***1234895684623561846176")

Erklärung siehe auch Hilfe. Weiterspringen tut der Installer meines Wissens selbst...

peethebee

p.s. statt *** steht {TAB, 2} - Code-Highlighting zerstückelt es sonst.

TheSaint

Hat funktioniert, danke dir!

**peethebee**

Hallo!

Bitte sehr.
Wenn dich das Thema weiter interessiert, sei dir auch die kommende Ausgabe des PC Magazins empfohlen - dort ist eine ganze Menge Programme mit AutoIt automatisert und dirket installier- und erweiterbar.

peethebee

**Gun-Food**

Wo ichs gerade sehe, hab zwar schon auf der englischen Seite geschaut, aber ist "Active Window Info" ein extra Tool, oder finde ich das irgentwo in SciTe?

ScriptKiddy

Hi,

des hat nichts mit Scite zu tun.
Ist ein Tool von AutoIt, und zumindest ab Version 3 automatisch mit installiert. Schau mal unter Programme AutoIt, ...

Gruß Markus

**GtaSpider**

hä?`es hat doch nen ClassNameNN! das kann man genau so verwänden wie controlid! also controlsen("FENSTER","","EDIT1")