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, 1533 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 ..
Neuester Wissensbeitrag
Ä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 ...

VB for Applications
gelöst VBS Script kann Prgramm nicht starten (15)

Frage von C.Boerner zum Thema VB for Applications ...

Windows Server
Aufgabenplanung bringt bei VBS Script immer 0x41301 (14)

Frage von 116480 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (22)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...