Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Datei kopieren und vorher Programm beenden (wenn aktiv)

Mitglied: svenac2010

svenac2010 (Level 1) - Jetzt verbinden

07.09.2010 um 11:59 Uhr, 3422 Aufrufe, 1 Kommentar

Hallo Habe folgendes Script:


Option Explicit

' Variablendeklaration
Dim objFSO, objShell
Dim strUser
Dim strPathQuelle, strPathZiel
Dim strFile, strFileQuelle, strFileziel

' Objekte erzeugen
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.shell")

' Jetzt die weiteren Aktionen starten…

strPathZiel = "C:\KB\"
strPathQuelle = "\\\"

strFile ="TEST.chm"

strFileQuelle = strPathQuelle & strFile
strFileziel = strPathZiel & strFile

If objFSO.FileExists(strFileQuelle) = True And objFSO.FileExists(strFileziel) _
= False Then
' kopiere die Datei wenn Sie auf dem Quelllaufwerk vorhanden ist aber nicht
' auf dem Ziellaufwerk
objFSO.Copyfile strFileQuelle, strFileziel, True
ElseIf objFSO.FileExists(strFileQuelle) = True And objFSO.FileExists( _
strFileziel) = True Then
' kopiere die Datei wenn die auf dem Quelllaufwerk aktueller ist als die
' auf dem Ziellaufwerk
Set strFileQuelle = objFSO.getfile(strFileQuelle)
Set strFileZiel = objFSO.getfile(strFileziel)
If strFileQuelle.DateCreated > strFileZiel.DateCreated Then
objFSO.Copyfile strFileQuelle, strFileziel, True
End If
ElseIf objFSO.FileExists(strFileQuelle) = False And objFSO.FileExists( _
strFileziel) = True Then
' lösche die Datei wenn Sie auf dem Quelllaufwerk nicht vorhanden ist aber
' auf dem Ziellaufwerk
objFSO.DeleteFile strFileziel
End If

Sobald ich dieses aber ausführe und das CHM ist geöffnet gibt erscheint eine FM Erlaubnis verweigert.

Habe mir gedacht, beende CHM wenn aktiv:

Set WshShell = WScript.CreateObject("WScript.Shell")
If WshShell.AppActivate("TEST") Then
WScript.Sleep 100
WshShell.SendKeys "%{F4}"
End If

Versuche ich aber das beenden Script in das vorherige zu integrieren ( an verschiedenen Stellen) bekomme ich aber nur ein Ausführungsfehler.

Wie kann ich beide Scripte zu einem Zusammen fassen.
Sprich prüfe ob CHM ausgeführt wird, wenn ja dann beende und setzte script fort, wenn CHM nicht aktiv, dann setzte Script fort
Mitglied: bastla
07.09.2010 um 22:44 Uhr
Hallo svenac2010!

Versuch es mit folgendem Code zum Schließen der "TEST.chm":
01.
Dim objWMIService, colItems 
02.
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")  
03.
Set colItems = objWMIService.ExecQuery( _ 
04.
    "SELECT * FROM Win32_Process WHERE CommandLine LIKE '%" & strFile & "'") 
05.
For Each objItem in colItems 
06.
    objItem.Terminate 
07.
Next
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Programme beenden Batch Dateien
gelöst Frage von anmelderBatch & Shell3 Kommentare

Manche Programme beenden Batch Dateien. test.bat Wimlib.net Download Wimapply wird ausgeführt und die Echo Zeile nicht mehr ausgeführt. Das ...

Batch & Shell
Programm beenden
gelöst Frage von garciamBatch & Shell4 Kommentare

Hallo zusammen Ich habe ein Problem, bei dem ich nicht weiterkomme Ich muss ein Programm zu einer bestimmten Zeit ...

Windows Netzwerk

NAS Dateien nach Programme kopieren geht nicht

Frage von MarabuntaWindows Netzwerk3 Kommentare

Hi, ich habe eine neue NAS, Dateien von der auf C:\Programme und vermutlich alle anderen geschützten Bereiche zu kopieren ...

Windows 7

Programme die IDLEn beenden.

Frage von killtecWindows 73 Kommentare

Hallo zusammen, ich suche nach einer Möglichkeite, mit der man ein bestimmtes Programm bei einer Bestimmten IDLE-Zeit beendet. Bsp. ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 10 StundenHumor (lol)2 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 22 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 23 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 1 TagMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server45 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware16 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...