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

Scriptresultate in Fenster sammeln

Mitglied: RetroDude

RetroDude (Level 1) - Jetzt verbinden

18.08.2010 um 08:19 Uhr, 2525 Aufrufe, 6 Kommentare

Hallo

Ich möchte sämtliche Messageboxeinträge in einem Fenster gesammelt auflisten können. So dass man nach Ablaufen des Scripts eine kleine Übersicht hat was sich alles zugetragen hat. So wie ein Hauptfenster mit Logteil. Kennt jemand eine Möglichkeit, wie sich dies realisieren lässt?

Gruss
Mitglied: manuel-r
18.08.2010 um 08:22 Uhr
Wenn du nur am Ende eines Scripts die verschiedenen Ereignisse anzeigen willst, die aufgetreten sind, dann schreibst du die entsprechenden Meldungen einfach in eine Variable und gibst deren Inhalt am Ende des Script per MsgBox aus. Für ein durchlaufendes Log verwende ich immer eine Ausgabe in einem IE-Fenster. Da lässt sich das recht schön und mit allen bekannten HTML-Mitteln umsetzen. Ein anderer Weg ist mir bisher auch (noch) nicht bekannt.

Manuel
Bitte warten ..
Mitglied: 76109
18.08.2010 um 08:55 Uhr
Hallo RetroDude!

Eine farbige Textausgabe in ein Shell-Fenster mit einstellbarer Größe, würde z.B. so gehen (VB-Script):
01.
Option Explicit 
02.
 
03.
Const WindowWidth = 480 
04.
Const WindowHeight = 320 
05.
 
06.
Const BodyBG = "#FFFFFF" 
07.
 
08.
Const Black = "0" 
09.
Const Red = "#FF0000" 
10.
Const DarkBlue = "#00008B" 
11.
Const DarkGreen = "#006400" 
12.
Const Dar###ge = "#EE7600" 
13.
Const DarkMagenta = "#8B008B" 
14.
 
15.
Dim Fso, HtaFile, HtaPath 
16.
 
17.
'Main Beg 
18.
 
19.
    Call OpenHtaFile 
20.
     
21.
    Call WriteHtaFile("Text in Schwarz", Black) 
22.
    Call WriteHtaFile("Text in Rot", Red) 
23.
    Call WriteHtaFile("Text in Blau", DarkBlue) 
24.
    Call WriteHtaFile("Text in Grün", DarkGreen) 
25.
    Call WriteHtaFile("Text in Orange", Dar###ge) 
26.
    Call WriteHtaFile("Text in Margenta", DarkMagenta) 
27.
 
28.
    Call ShowHtaFile	 
29.
  
30.
    Wscript.Quit 
31.
 
32.
'Main End 
33.
 
34.
Private Sub OpenHtaFile() 
35.
    Set Fso = CreateObject("Scripting.FileSystemObject") 
36.
    HtaPath = Fso.GetParentFolderName(WScript.ScriptFullName) & "\Ausgabe.Hta" 
37.
    Set HtaFile = Fso.CreateTextFile(HtaPath) 
38.
 
39.
    With HtaFile 
40.
        .WriteLine "<html>" 
41.
        .WriteLine "<head>" 
42.
        .WriteLine "<title>Textausgabe</title>" 
43.
        .WriteLine "<SCRIPT Language='VBScript'>" 
44.
        .WriteLine "WindowLeft = (Screen.Width - " & WindowWidth & ") / 2" 
45.
        .WriteLine "WindowTop = (Screen.Height - " & WindowHeight & ") / 2" 
46.
        .WriteLine "window.resizeTo " & WindowWidth & ", " & WindowHeight 
47.
        .WriteLine "window.moveTo WindowLeft, WindowTop" 
48.
        .WriteLine "</SCRIPT>" 
49.
        .WriteLine "<style type='text/css'>" 
50.
        .WriteLine "body { font-family:Arial, Tahoma; font-size:14px; background-color:" & BodyBG & "; }" 
51.
        .WriteLine "</style></head>"  
52.
    End With 
53.
End Sub 
54.
 
55.
Private Sub WriteHtaFile(ByRef Text, ByRef Color) 
56.
    HtaFile.WriteLine "<font color='" & Color & "'>" & Text & "</font><br>" 
57.
End Sub 
58.
 
59.
Private Sub ShowHtaFile() 
60.
    Dim Shell 
61.
     
62.
    With HtaFile 
63.
        .WriteLine "</body>" 
64.
        .WriteLine "</html>" 
65.
        .Close 
66.
    End With 
67.
     
68.
    Set Shell = CreateObject("Wscript.Shell") 
69.
 
70.
    Shell.Run HtaPath, 1, True 
71.
 
72.
    Fso.DeleteFile HtaPath 
73.
End Sub
Gruß Dieter

[edit] Script geändert, sodass das Fenster auch mittig positioniert wird [/edit]
Bitte warten ..
Mitglied: RetroDude
18.08.2010 um 08:56 Uhr
Hi

Haste mir ein kleines Besipiel für die Ausgabe in ein IE Fenster?

Gruss
Bitte warten ..
Mitglied: RetroDude
18.08.2010 um 08:58 Uhr
Hallo Dieter

Danke, werds ausprobieren.

Gruss
Bitte warten ..
Mitglied: 76109
18.08.2010 um 10:04 Uhr
Hallo RetroDude!

Habe den Code insofern geändert, dass das Ausgabefenster in der Mitte positioniert wird

Gruß Dieter
Bitte warten ..
Mitglied: RetroDude
18.08.2010 um 10:09 Uhr
Habe noch das Problem, dass ich Rückgabewerte aus diversen Funktionen in dieses Fenster quetschen muss. Dies ist so nicht ohne weiteres möglich. Ich habe noch den Ansatz den VBS Code aus einem HTA auszuführen. So sollte diese Problematik entschärft werden könne. Muss mal ausprobieren.
Danke für deinen Input.

Gruss
Bitte warten ..
Ähnliche Inhalte
Windows Tools
Teamviewer Logs Zentral sammeln
gelöst Frage von zerkkkWindows Tools4 Kommentare

Moin, Ich würde gerne von ca. 10 Clients die eingehenden Teamviewer Verbindungen monatlich per Mail an mich senden. Die ...

Sonstige Systeme
Daten aus txt-Files sammeln
gelöst Frage von MegaGigaSonstige Systeme16 Kommentare

Moin :-) Erstmal: Ich habe kein gescheites Unterforum dafür gefunden, falls ihr ein besseres findet bin ich froh darum ...

Microsoft Office

Maximalwerte aus mehreren .txt Dateien Sammeln

gelöst Frage von RolforMicrosoft Office2 Kommentare

Hallo! Habe leider sehr wenig erfahrung mit Excel und Makros und hoffe ich suche hier an der richtigen Stelle ...

Microsoft

Log Dateien von verschieden Orten sammeln

gelöst Frage von ColliderMicrosoft6 Kommentare

Hallo , ich bin auf der Suche nach einen Programm mit folgenden Eigenschaften: - Log Dateien sammeln und Anzeigen ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 1 TagWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 1 TagSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 2 TagenDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 2 TagenSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
DSL, VDSL
Mindestgeschwindigkeiten DSL Telekom
Frage von justlukasDSL, VDSL13 Kommentare

Hallo zusammen, Seit diesem Jahr habe ich Verständnisprobleme mit dem Verhalten der Telekom. Wir haben seit einem Jahr VDSL ...

Switche und Hubs
LANCOM-Switch: Probleme (no link) mit SFP-Modulen?
Frage von THETOBSwitche und Hubs10 Kommentare

Hi zusammen, ich habe folgendes Problem: Und zwar habe ich an einem Standort drei Switche verbaut - LANCOM GS-2326P+, ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall10 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)8 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...