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....

Frage Entwicklung VB for Applications

Mitglied: halunke

halunke (Level 1) - Jetzt verbinden

05.05.2011, aktualisiert 12:21 Uhr, 3178 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
MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 9 StundenMikroTik RouterOS4 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 9 StundenSicherheit

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Administrator.de Feedback

Entwicklertagebuch: Die Startseite wurde überarbeitet

Information von admtech vor 12 StundenAdministrator.de Feedback9 Kommentare

Hallo Administrator User, mit dem Release 5.7 haben wir unsere Startseite überarbeitet und die Beiträge und Fragen voneinander getrennt. ...

Vmware

VMware Desktopprodukte sind verwundbar

Information von Penny.Cilin vor 17 StundenVmware

Die VMware-Anwendungen zum Umgang mit virtuellen Maschinen Fusion, Horizon Client und Workstation sowie die Plattform NSX sind verwundbar. Davon ...

Heiß diskutierte Inhalte
Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail
Frage von ahstaxVisual Studio24 Kommentare

Hallo, ich möchte gerne ein vb.net-Tool schreiben, das am Ende eine Outlook-E-Mail erzeugt. Grundsätzlich ist mir klar, wie das ...

Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server16 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows Netzwerk
Netzwerk Neustrukturierung
Frage von IT-DreamerWindows Netzwerk16 Kommentare

Hallo verehrte Community und Admins, bei uns im Haus steht eine Neustrukturierung an. Dafür benötige ich von euch ein ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...