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

Abfragescript vor Programmstart....

Mitglied: halunke

halunke (Level 1) - Jetzt verbinden

05.05.2011, aktualisiert 12:21 Uhr, 3193 Aufrufe, 3 Kommentare

Hallo @ all,

also ich bin kein Coder das schonmal vorweg.....

als ich drehe hier durch da sitze ich schon zwei Wochen an diesem Script und es geht auch zur Hälfte aber halt nur zur Hälfte.
Ich hoffe das Ihr mir weiterhelfen könnt.

Das Script sol folgendes machen:

1. einen Warnhinweis ausgeben wenn ich das will. -> das geht
2. den Ordner Temp\pvv und Unterordner abfragen ob noch dateien Vorhanden sind ausser Dateien mit der Endung (*log und *.tmp) die sollten Ignoriert werden
Wenn Nein das Programm pvv.exe Starten. -> das geht
Wenn Ja sollen die Dateien mit Pfadangabe (auch wieder ohne .log und *.temp) aufgelistet werden die Vorhanden sind.
Eine Messagebox mit OK oder Abrechen bei Abrechen soll die pvv.exe starten
Bei OK soll die pvv.exe Starten.

Ich hoffe da kann mir jemand weiter helfen?


01.
Dim fso 
02.
	Set fso = CreateObject("Scripting.FileSystemObject") 
03.
	If fso.FileExists("\\192.168.1.10\Wartungsmeldung\hinweis.txt") then 
04.
	sInfoText = "\\192.168.1.10\Share\Wartungsmeldung\hinweis.txt" 
05.
	sTitel = "Hinweis !!!" 
06.
	iSek = 120 'Anzeigedauer in Sekunden 
07.
	Set WshShell = WScript.CreateObject("WScript.Shell") 
08.
	Set fso = CreateObject("Scripting.FileSystemObject") 
09.
	sText = fso.OpenTextFile(sInfoText, 1).ReadAll 
10.
	WshShell.Popup sText, iSek, sTitel, vbInformation 
11.
	Else 
12.
	End if 
13.
    Set fso = nothing 
14.
	Set wshell = CreateObject("WScript.Shell") 
15.
	temp = wshell.ExpandEnvironmentStrings("%TEMP%") 
16.
	Set oFSO = CreateObject("Scripting.FileSystemObject") 
17.
	If Not oFSO.FolderExists(temp & "\pvv\") Then 
18.
	Set objFolder = oFSO.CreateFolder(temp & "\pvv\") 
19.
	End If  
20.
		Set objFSO = CreateObject("Scripting.FileSystemObject")  
21.
		objStartFolder = (temp & "\pvv\") 
22.
 		Set objFolder = objFSO.GetFolder(objStartFolder) 
23.
		Set colFiles = objFolder.Files  
24.
		ShowSubfolders objFSO.GetFolder(objStartFolder) 
25.
			For Each objFile in colFiles 
26.
	    		If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then 
27.
	    			a = MsgBox("Es sind noch Daten in einem Verzeichnis vorhanden. " ,vbOKCancel + vbExclamation, "ACHTUNG ! ")    
28.
				If a = vbCancel Then 
29.
					Wscript.Echo "Es sind Daten im folgendem Verzeichnis vorhanden\                                   " & objFolder.Path &"\"& objFile.Name  
30.
					Set ShellWSH = CreateObject("WScript.Shell") 
31.
					ShellWSH.Run (temp &"\pvv\"), 1, False 
32.
					WScript.Quit 
33.
				End If 
34.
				If a = vbOK Then 
35.
 
36.
				End If 
37.
			End If 
38.
		Next 
39.
 
40.
    Dim WshShell 
41.
	Dim Quelle 
42.
	Dim Ziel1,Ziel2 
43.
	Dim HOST_NAME,HOST_NAME_file 
44.
	Dim WD_DEF 
45.
	Set WSHShell = WScript.CreateObject("WScript.Shell") 
46.
	Set fs = CreateObject("Scripting.FileSystemObject") 
47.
	Set objNetwork = CreateObject("WScript.Network") 
48.
 
49.
 
50.
 
51.
	Argument = "\\192.168.1.10\share\pvv.exe" 
52.
 
53.
	WSHShell.Run Argument, 1, False 
54.
 
55.
	Set WSHShell = Nothing 
56.
	WScript.Quit(0) 
57.
 
58.
Sub ShowSubFolders(Folder) 
59.
    For Each Subfolder in Folder.SubFolders 
60.
        Set objFolder = objFSO.GetFolder(Subfolder.Path) 
61.
        Set colFiles = objFolder.Files 
62.
        For Each objFile in colFiles 
63.
        	If UCase(objFSO.GetExtensionName(objFile.name)) = "TXT" Then 
64.
	    		a = MsgBox("Es sind noch Daten in einem Verzeichnis vorhanden." ,vbOKCancel + vbExclamation, "ACHTUNG ! ")    
65.
			If a = vbCancel Then 
66.
				Wscript.Echo "Es sind Daten im folgendem Verzeichnis vorhanden\                                   " & objFolder.Path &"\"& objFile.Name  
67.
				Set ShellWSH = CreateObject("WScript.Shell") 
68.
				ShellWSH.Run (temp &"\pvv\"), 1, False 
69.
				WScript.Quit 
70.
			End If 
71.
			If a = vbOK Then 
72.
 
73.
			End If 
74.
		End If 
75.
        Next 
76.
        ShowSubFolders Subfolder 
77.
    Next 
78.
End Sub
Mitglied: TsukiSan
05.05.2011 um 15:34 Uhr
hallo halunke,

verstehe mich nicht falsch! Aber nach deiner Beschreibung liegt dein primäres Augenmerk auf dem Starten der pw.exe
Da reicht ein Zweiteiler in VBS:
01.
set wshshell=createobject("wscript.shell") 
02.
wshshell.run(pw.exe), 3, true
Jetzt mal Spass beiseite!
Zum Durchkämmen von Ordnern geht doch eventuell sowas:
01.
Ordner = "C:\Temp\ 
02.
 
03.
ListOrdner Ordner 
04.
 
05.
Sub ListOrdner(ordner) 
06.
	Set ordner = fs.getfolder(ordner) 
07.
	For Each file In ordner.files 
08.
		Pfadangabe =file.path 
09.
 
10.
	Next 
11.
 
12.
	For Each Unterordner In Ordner.subfolders 
13.
		Listordner unterordner 
14.
	next 
15.
End Sub
Und dann an entsprechender Stelle noch die Dateiendungen filtern. Z.Bsp.:
01.
If Not Right(Pfadangabe,3) = "log" and Not Right(Pfadangabe,3) = "tmp" then 
02.
      ' Anweisung etc. 
03.
End IF
Dann musst du nur noch entscheiden, ob bei deiner Ent-Oder-Weder-Abfrage was gestartet oder gestoppt werden soll.

Gruss
Tsuki
Bitte warten ..
Mitglied: halunke
06.05.2011 um 09:46 Uhr
Erstmal besten Dank für deine Infos. Eine frage hätte ich noch was bedeutet die ,3 -> (Pfadangabe,3) ?

mfg
halunke
Bitte warten ..
Mitglied: TsukiSan
06.05.2011 um 14:46 Uhr
Hi

was bedeutet die ,3 -> (Pfadangabe,3)
Es bedeutet die Abfrage der 3 Stellen (Buchstaben oder Zahlen) von rechts nach links gezählt.

Beispiel:
Deine Datei heißt Test.tmp , dann sind die letzten 3 Stellen rechts "tmp".
Somit kann man z.Bsp. die Dateiendungen rausfiltern.

teste einfach mal in VBS:
01.
temp = "Mein Name" 
02.
msgbox Right(temp,4)
Das gleiche geht übrigens auch mit links LEFT
01.
temp = "Mein Name" 
02.
msgbox Left(temp,4)
Gruss
Tsuki
Bitte warten ..
Ähnliche Inhalte
Visual Studio

Tastaturabfrage während Programmstart

gelöst Frage von MartinSVisual Studio2 Kommentare

Guten Tag, ich möchte während des Programmstarts meine Tastatur abfragen, ob eine bestimmte Taste gedrückt ist. Diese soll die ...

Windows Installation

CMD-Batch Programmstart Befehle

Frage von timsen96Windows Installation1 Kommentar

Schönen guten Tag zusammen, ich möchte gerne über eine cmd oder batch datei ein Programm oder Installation öffnen und ...

VB for Applications

Vbscript erstellen das auf ein programmstart reagiert

Frage von Heisenberg81VB for Applications2 Kommentare

Hallo, ich bin noch sehr unerfahren wass das vbscripten angeht und würde gerne wissen, ob es möglich ist, ein ...

Basic

Fehlermeldung - Es wurde kein Standarddrucker gewählt - bei jedem Programmstart

Frage von imebroBasic4 Kommentare

Hallo, wir nutzen auf einem Terminalserver (Server 2008) ein individuell für uns programmiertes Programm auf unserer Arbeitsstelle. Der damalige ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 StundeHumor (lol)

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 14 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 14 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 17 StundenMicrosoft3 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 Server40 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 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...