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

VB-Script zur Wiedergabe von Dateiinformationen

Mitglied: sven1986

sven1986 (Level 1) - Jetzt verbinden

08.03.2007, aktualisiert 09.03.2007, 5337 Aufrufe, 11 Kommentare

Hallo,

ich habe ein kleines Problemchen

Erstmal zur Ausgangssituation:

Ich habe eine Textdatei wo einfach nur T001 bis T0050 drinsteht.
Mit Hilfe diese Informationen soll er jeweils auf einem Server nach einer bestimmten Datei suchen:

z. B. dir \\T001\Programme\Beispiel.exe --> es ändert sich nur die Serverbezeichnung. Der Rest bleibt gleich.

Jetzt soll jeweils geschaut werden ob die Beispiel.exe vorhanden ist, wenn ja soll nur ausgegeben werden, wir groß diese ist und wann sie erstellt wurde. Ist diese nicht vorhanden ein kurzes Kommentar.
Dieses Ergebniss soll dann in eine seperate Textdatei geschrieben werden.

Ungefähre Form:

T001 - Datei vorhanden - 500kb groß - Am ..... erstellt
T002 - Datei nicht vorhanden -
T003 - Datei vorhanden - 488 kb groß - Am ..... erstellt
.
.
.

Diese soll in VBscript umgesetzt werden da ich da jedoch keinerlei Erfahrung mit habe würde ich gerne wissen ob mir jemand dabei Helfen kann
Über Hilfe wäre ich sehr dankbar

Mit freundlichen Grüßen,

Sven
Mitglied: Biber
08.03.2007 um 20:43 Uhr
Moin sven1986,

willkommen im Forum.
Da verstehe ich aber gleich ziemlich vieles nicht...
Diese soll in VBscript umgesetzt werden da ich da jedoch keinerlei Erfahrung mit hab...
Wieso dann diese Vorgabe? Wieso kein Oneliner vom CMD-Prompt?
jeweils auf einem Server nach einer bestimmten Datei suchen...
Suchen oder in genau einem bestimmten Verzeichnis ("Programme") nachprüfen?
T001 - Datei vorhanden - 500kb groß - Am ..... erstellt
T002 - Datei nicht vorhanden -
Da fehlen aber ein paar Fälle.
Außer Datei vorhanden oder nicht vorhanden gibt es noch:
- Rechner nicht gefunden (falsch in der Liste oder auch einfach: nicht online)
- Verzeichnis nicht gefunden
- Zugriff verweigert
.....
Ich habe eine Textdatei wo einfach nur T001 bis T0050 drinsteht.
Wozu? [ich unterstelle, Du meintest T001 ...T050, also fortlaufende Nummern.
Dazu brauchst Du nur eine Zählschleife, keine Datei.
... in eine seperate Textdatei ...

Wozu? zu Übungszwecken? Oder willst Du die maschinell/per Skript weiterverarbeiten?
Wenn ja - wieso diese redundanten Lyrikformulierungen?
Datei vorhanden - 500kb groß - Am ..... erstellt
--->Infogehalt: Dateigröße, Erstellungsdatum

Gruss Biber
Bitte warten ..
Mitglied: bastla
08.03.2007 um 21:21 Uhr
Hallo sven1986!

Und noch eine Detailfrage von mir - Erstellungsdatum oder Datum der letzten Änderung?

@Biber

T001 bis T0050
Halte ich für denkbar (ist ja über Schleife auch einfacher so).

Wieso kein Oneliner vom CMD-Prompt?
Wegen der Formatierung der Ausgabe (kb)?
Wer (natürlich außer Dir) hat schon "DelayedExpansion" defaultmäßig eingeschaltet?

zu Übungszwecken?
Ich nehme an, ja.

Grüße
bastla
Bitte warten ..
Mitglied: sven1986
08.03.2007 um 21:37 Uhr
moin,

Die Vorgabe ist von meinem Ausbilder :-P Mache eine Ausbildung zum Fachinformatiker für Systemintegration.

Also die Server sind online, Rechte usw sind auch gesetzt, das ist alles nicht das Problem.

Es wird immer das selber Verzeichniss benutzt, es ändert sich vorne nur die Serveradresse.
Die kb sind nur obligatorisch und nur als Beispiel angedacht

Von mir aus kann man das auch mit einer Zählerschleife machen, muss nur irgendwie klappen =)

Habe das nur absolut nicht hinbekommen mit vbscript.

Danke schonma für die Meldungen
Bitte warten ..
Mitglied: Biber
08.03.2007 um 21:38 Uhr
@bastla

Erstellungsdatum oder Datum der letzten Änderung?
Hmmmm .... müssen wir diese Frage bei einer Beispiel.exe-Datei ausführlich diskutieren?

Wer (natürlich außer Dir) hat schon "DelayedExpansion" defaultmäßig eingeschaltet?
Jede/r, dachte ich immer.... *kopfkratz*

Grüße
Biber
[Edit]
Die Vorgabe ist von meinem Ausbilder :-P
Mache eine Ausbildung zum Fachinformatiker für Systemintegration.
Hmmmm II... das sollten wir aber nicht ganz unterlaufen durch Posten einer Fertiglösung.
Hast Du denn schon einen Versuch/einen Ansatz, @sven1986? Magst Du ihn posten?
[/Edit]
Bitte warten ..
Mitglied: bastla
08.03.2007 um 21:56 Uhr
@sven1986
Habe das nur absolut nicht hinbekommen mit vbscript.
Dann schlage ich vor, Du postest einmal, was Du bisher hast ...
@Biber
Hmmmm .... müssen wir diese Frage bei einer Beispiel.exe-Datei ausführlich diskutieren?
Also Du gönnst einem ja wirklich gar keinen Spaß ...

Grüße
bastla

[Edit] @Biber - hatte Dein Edit übersehen [/Edit]
Bitte warten ..
Mitglied: sven1986
09.03.2007 um 07:26 Uhr
Wie gesagt kenne mich mit vbscript noch wirklich garnich aus.
Das einzige was ich bissher habe ist folgendes:

Dim fso, fsoFile, Pfad, file, Text
Set fso = CreateObject("Scripting.FileSystemObject")
Set Response = CreateObject("WScript.Shell")

Response.Write(DateiInfo("\\In101008\c$\abfrage.bat"))
'Schaun ob Datei überhaupt vorhanden ist
Pfad = fso.exec("\\TS001\c$\abfrage.bat")
If fso.FileExists(Pfad) Then
Function DateiInfo(ByVal DateiName)
Set file = fso.GetFile(DateiName)
Text1 = "Pfad: " & file.Path
Text2 = Text & file.Name & " in " & file.ParentFolder
Text3 = Text & "Erstellt: " & file.DateCreated
Text4 = Text & "Dateigrösse " & file.size & " Bytes"
DateiInfo = Text
End Function
wscript.echo test1 & Text2 & text3 & text4
Else
wscript.echo("Datei ist nicht vorhanden.")
End if
Bitte warten ..
Mitglied: sven1986
09.03.2007 um 07:26 Uhr
Wie gesagt kenne mich mit vbscript noch wirklich garnich aus.
Das einzige was ich bissher habe ist folgendes:

Dim fso, fsoFile, Pfad, file, Text
Set fso = CreateObject("Scripting.FileSystemObject")
Set Response = CreateObject("WScript.Shell")

Response.Write(DateiInfo("\\In101008\c$\abfrage.bat"))
'Schaun ob Datei überhaupt vorhanden ist
Pfad = fso.exec("\\TS001\c$\abfrage.bat")
If fso.FileExists(Pfad) Then
Function DateiInfo(ByVal DateiName)
Set file = fso.GetFile(DateiName)
Text1 = "Pfad: " & file.Path
Text2 = Text & file.Name & " in " & file.ParentFolder
Text3 = Text & "Erstellt: " & file.DateCreated
Text4 = Text & "Dateigrösse " & file.size & " Bytes"
DateiInfo = Text
End Function
wscript.echo test1 & Text2 & text3 & text4
Else
wscript.echo("Datei ist nicht vorhanden.")
End if
Bitte warten ..
Mitglied: sven1986
09.03.2007 um 07:26 Uhr
sry für Doublepost dachte er hatte es nicht übernommen.

Für Hilfe wäre ich echt dankbar.
Bitte warten ..
Mitglied: bastla
09.03.2007 um 08:30 Uhr
Hallo sven1986!

Auf Basis Deines Entwurfes könntest Du es etwa so machen:
01.
Const Dateipfad = "c$\abfrage.bat" 
02.
Const Server = "TS00" 
03.
 
04.
Dim fso, i, Pfad 
05.
Set fso = CreateObject("Scripting.FileSystemObject") 
06.
 
07.
'Mit Schleife 
08.
For i = 1 To 50 
09.
	'Vollständiger Pfad: 
10.
	Pfad = "\\" & Server & CStr(i) & "\" & Dateipfad 
11.
	 
12.
	'Schaun ob Datei überhaupt vorhanden ist 
13.
	If fso.FileExists(Pfad) Then 
14.
		WScript.Echo DateiInfo(Pfad) 
15.
	Else 
16.
		WScript.Echo "Pfad: " & Pfad & " - Datei ist nicht vorhanden." 
17.
	End If 
18.
Next 
19.
WScript.Quit(0) 
20.
 
21.
Function DateiInfo(ByVal Datei) 
22.
Dim File, Text 
23.
Set File = fso.GetFile(Datei) 
24.
Text = "Pfad: " & File.Path  
25.
Text = Text & " - " & File.Name & " in " & File.ParentFolder 
26.
Text = Text & " - Erstellt: " & File.DateCreated 
27.
Text = Text & " - Dateigrösse: " & File.Size & " Bytes" 
28.
DateiInfo = Text 
29.
End Function
Falls die Servernamen alle gleich lang sein sollen (also nicht "TS0010", sondern "TS010"), könntest Du so vorgehen:
01.
	If i < 10 Then 
02.
		Pfad = "\\" & Server & CStr(i) & "\" & Dateipfad 
03.
	Else 
04.
		Pfad = "\\" & Left(Server, 3) & CStr(i) & "\" & Dateipfad 
05.
	End If
oder, besser, den Server nur mit "TS" vorgeben und dann:
01.
Pfad = "\\" & Server & Right("00" & CStr(i), 3) & "\" & Dateipfad
Damit wird die Nummer immer 3-stellig.

Zu überlegen wäre noch, ein "On Error Resume Next" an den Anfang zu stellen.

Grüße
bastla
Bitte warten ..
Mitglied: sven1986
09.03.2007 um 08:55 Uhr
Moin,

schonmal vielen Dank, dat klappt super. Jetzt muss ich nurnoch schaun wie ich das Ergebniss in eine Textdatei bekomme

Gruß
Bitte warten ..
Mitglied: bastla
09.03.2007 um 09:14 Uhr
Hallo sven1986!

Einfach über die Konsole:
01.
cscript //nologo D:\FileCheck.vbs > D:\Ergebnis.txt
Annahme hier ist, dass das Script als "D:\FileCheck.vbs" gespeichert wurde.

Versuch es aber trotzdem auch noch direkt aus dem Script heraus (Stichwort "OpenTextFile").

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VB-Script in VB-Script starten und Parameter übergeben

gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell

Probleme bei der Ausführung eines VB-Scriptes

Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Windows Server

Drucker entfernen in VB-Script

gelöst Frage von NilsvLehnWindows Server2 Kommentare

Hallo ich habe eine kleine Frage bzgl. unseres Anmeldeskriptes. Ich habe ein IT-netzwerk an einer Uni übernommen. Ich arbeite ...

Entwicklung

VB Script Drucker hinzufügen

Frage von Marcel1989Entwicklung3 Kommentare

Funktionsweise sollte definitiv sein das mit einem Script sich 2 verschiedene Betriebssysteme ein und denselben Drucker holen. Mein Script ...

Neue Wissensbeiträge
Windows Server

SBS 2011: Installation von KB4457144 schlägt beim Reboot fehl - Von Dienst gesperrte Schriftart ursächlich

Tipp von the-buccaneer vor 7 StundenWindows Server

Moinsen zusammen! Das hat mich einige graue Haare gekostet: Ein SBS 2011 weigerte sich schon im August, das monatl. ...

Windows Netzwerk
Browser-Lags und IPv6
Erfahrungsbericht von NixVerstehen vor 13 StundenWindows Netzwerk1 Kommentar

Hallo zusammen, wir betreiben als kleines Speditionsunternehmen ein überschaubares Windows-Netzwerk mit Win10-Clients sowie einem Server 2016 Essentials als "eierlegende ...

Humor (lol)

Erstaunlich, Windows mit extremer Laufzeit (Server) lol

Tipp von mathu vor 15 StundenHumor (lol)5 Kommentare

Was es so alles gibt. :-)

Windows Netzwerk

CGM Praxisarchiv funktioniert auf Clients nach Update auf 4.14 nicht mehr

Tipp von MOS6581 vor 1 TagWindows Netzwerk

Moin, ein Kunde setzt das CGM-Praxisarchiv ein. Mehrplatzinstallation mit SQL-Server. Nachdem letzte Woche auf die 4.14 aktualisiert wurde, funktionierte ...

Heiß diskutierte Inhalte
Hyper-V
Windows Serer 2016 Standard virtualisieren
gelöst Frage von fritte87Hyper-V33 Kommentare

Hallo zusammen, ich muss für eine kleine Firma ein entsprechendes neues kleines Konzept bauen. Ich habe einen Server Standard ...

LAN, WAN, Wireless
Kombiniere mehrere 4G Router zu einem Netzwerk - Anwendung kleine LAN (10-20 Leute)
Frage von HulkTheHeroLAN, WAN, Wireless24 Kommentare

Guten Mittag liebes Administrator - Fourm, ich hoffe ich habe das richtige Thema ausgewählt - ansonsten bitte gerne verschieben ...

Windows Server
Fileserver von 2012 R2 auf 2012R2
gelöst Frage von ThabeusWindows Server23 Kommentare

Moin moin, leider war in der Vergangenheit der Fokus des Betriebs nicht auf Langfristigkeit ausgelegt. Daher stehe ich jetzt ...

Router & Routing
Größere Zahl VPN-Verbindungen mit Fritz-Box einrichten
Frage von miscmikeRouter & Routing15 Kommentare

Hallo Zusammen, ich supporte verschiedene Kunden mit bestehenden LAN-LAN-Kopplungen via FritzBox (7490, FritzOS 7.01) . Anwendungen sind z.B. Kaspersky-KSC ...