Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Brauche kleine Hilfestellung bei VBS Script

Frage Entwicklung VB for Applications

Mitglied: Bimmer1993

Bimmer1993 (Level 1) - Jetzt verbinden

25.10.2013 um 12:33 Uhr, 1538 Aufrufe, 4 Kommentare

Hallo liebe Community,

bin FISI Azubi und wir müssen eine kleine Verwaltungssoftware schreiben, die unter anderem eine kleine Diensteverwaltung beherbergt.

Beim Script, welches mir ausgeben soll, welche Dienste gerade gestartet sind, bekomme ich als Ausgabe eine Liste, die allerdings ohne Scrollbar nicht einsehbar ist, da sie über den Bildschirmrand hinausragt, da die Liste einfach zu lang ist ...

Hier der Code:

Dim objWMIService, objService, colListOfServices, Computer

Computer = "."
Set objWMIService = GetObject("winmgmts:" &_
"{impersonationLevel=impersonate}!\\" & Computer &_
"\root\cimv2")

Set colListOfServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE State=""Running""")

For Each objService in colListOfServices
Ausgabe = Ausgabe & vbcrlf & objService.Status & vbTab & objService.DisplayName
Next
WScript.Echo Ausgabe

Gibt eine Möglichkeit die Ausgabe schöner zu gestalten?

Danke, Leon
Mitglied: bastla
25.10.2013 um 15:22 Uhr
Hallo Bimmer1993 und willkommen im Forum!

Wozu soll diese Liste denn dienen?

"Schöner" wird's so zwar nicht, aber um alle Ausgaben lesen zu können, brauchst Du eigentlich nur Dein Script über "cscript" zu starten. Du könntest die Ausgabe auch in eine Text- bzw CSV-Datei schreiben und mit dem Editor / mit Excel öffnen ...

... ansonsten wäre Dein Stichwort "HTA".

Grüße
bastla
Bitte warten ..
Mitglied: manuel-r
25.10.2013 um 16:34 Uhr
Ich "missbrauche" für sowas immer den IE indem ich den ohne Leisten über das Script öffne und dann die entsprechenden Infos ausgebe. HTA wie von Bastla schon erwähnt ist natürlich auch eine Idee und mehr oder weniger notwendig wenn anhand der Ausgaben wieder Eingaben vorgenommen werden sollen.
Bitte warten ..
Mitglied: colinardo
25.10.2013 um 17:53 Uhr
Hallo Leon,
da habe ich hier schon mal eine mögliche Lösung gepostet.

Grüße Uwe
Bitte warten ..
Mitglied: Bimmer1993
26.10.2013 um 14:31 Uhr
Ja, danke euch, der andere Thread ist von einem Mitschüler sehe ich gerade :D

Gibt schon zu denken wenn Schüler ihre Aufgaben und Fragen stellen, sollte dies nicht eine Aufgabe von Lehrkräften sein...
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

Batch & Shell
Brauche Hilfe mit einem Batch Script( or condition) (21)

Frage von fireskyer zum Thema Batch & Shell ...

Server-Hardware
Welchen Serverschrank brauche ich? - Hier ein kleine Entscheidungshilfe (9)

Anleitung von serverschrank24 zum Thema Server-Hardware ...

Heiß diskutierte Inhalte
Windows 7
gelöst BOOTMGR is missing (auch nach bootrec -RebuildBcd) (21)

Frage von Mipronimo zum Thema Windows 7 ...

Router & Routing
Tipps für Router (ca. 100 clients, VPN) (20)

Frage von oel-auge zum Thema Router & Routing ...

Windows Userverwaltung
Windows Freigabe: Zugriff auf alle Ordner trotz Sicherheitseinstellungen (18)

Frage von Pandreas zum Thema Windows Userverwaltung ...

Exchange Server
gelöst MS Exchange 2016 - Basicconfig Fragen (16)

Frage von maddig zum Thema Exchange Server ...