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
GELÖST

VBS: lokale Dienste !

Frage Entwicklung VB for Applications

Mitglied: Yannosch

Yannosch (Level 2) - Jetzt verbinden

04.11.2013 um 16:23 Uhr, 1272 Aufrufe, 4 Kommentare

Guten Tag liebe Community !

Ich Möchte alle laufenden Dienste in eine Datei schreiben und alle gestoppten/beendeten Dienste in eine andere Datei.
Folgendes habe ich Programmiert und es läuft auch Fehlerfrei ... nur irgendwie steht in beiden txt-Dateien das selbe drin ... o.Ä. ..


01.
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
02.
Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where State = 'Running'") 
03.
   For Each objItem in colListOfServices 
04.
	If objItem.Name <> "" Then 
05.
		allServices = allServices & objItem.Name & vbnewline 
06.
	End If 
07.
  Next 
08.
Set fso = CreateObject("Scripting.FileSystemObject") 
09.
Set meineDatei = fso.CreateTextFile("c:\Running_Services.txt") 
10.
meineDatei.writeline ("Bitte das Notepad schließen, damit das Script weiterläuft!" & vbnewline & allServices) 
11.
Set objShell = CreateObject("WScript.Shell") 
12.
objShell.Run "notepad " & "c:\Running_Services.txt", 1, true 
13.
meineDatei.Close
und das selbe nochmal ... nur mit einer anderen Datei und mit allen "Gestoppten/Beendeten" Diensten die in die Datei geschrieben werden sollen.

01.
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
02.
Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where State = 'Stopped'") 
03.
  For Each objItem in colListOfServices 
04.
	If objItem.Name <> "" Then 
05.
		allServices = allServices & objItem.Name & vbnewline 
06.
	End If 
07.
  Next 
08.
Set fso = CreateObject("Scripting.FileSystemObject") 
09.
Set meineDatei2 = fso.CreateTextFile("c:\Not_Running_Services.txt") 
10.
meineDatei2.writeline ("Bitte das Notepad schließen, damit das Script weiterläuft!" & vbnewline & allServices) 
11.
Set objShell = CreateObject("WScript.Shell") 
12.
objShell.Run "notepad " & "c:\Not_Running_Services.txt", 1, true 
13.
meineDatei2.Close
Was ist den daran falsch ? ... Liegt es an der WMI-Abfrage? .. ~ Where State = 'Stopped' ? ... keine Ahnung woran das liegen kann...

Liebe Grüße von
Y@nnosch!
Mitglied: Snowman25
04.11.2013 um 16:39 Uhr
Hey Yannosch,

Bei mir funktionieren beide Skripte. Führst du es auch als Administrator aus?
Du solltest jedoch eine Zugriff Verweigert!-Meldung aus Zeile 9 bekommen, wenn du es als normaler User ausführst.

Gruß,
Snowman25
Bitte warten ..
Mitglied: colinardo
04.11.2013, aktualisiert um 19:10 Uhr
Hallo Yannosch,
wenn der Code zusammen in einer VBS-Datei steht und du die Funktionen darin mehrfach aufrufst solltest du die Variable allServices vor dem Befüllen vor der FOR-EACH-Schleife mit
allServices = ""
leeren.

Grüße Uwe
Bitte warten ..
Mitglied: Yannosch
05.11.2013 um 11:17 Uhr
Hey Uwe! - Vielen Dank , hätte ich auch selbst drauf kommen können :x
weil er schreibt jedes mal immer mehr und mehr rein ... ist mir auch anfangs nicht aufgefallen ... aber danke nochmal

Thread ist gelöst ! -

Liebe Grüße von
Y@nnosch!!
Bitte warten ..
Mitglied: Snowman25
05.11.2013 um 11:20 Uhr
Zitat von Yannosch:
Thread ist gelöst ! -
Dann mach bitte auch ein Häckchen dran
Wie kann ich einen Beitrag auf "gelöst" oder "erledigt" setzen?
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Sticky Notes - Autostart unterbinden

(1)

Tipp von Pedant zum Thema Windows 10 ...

Ähnliche Inhalte
Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Schulung & Training
gelöst Suche Firewall die eventuell noch Dienste hat (20)

Frage von Azubine zum Thema Schulung & Training ...

Windows 10
Vbs getobject auf per Task gestartete Anwendung (4)

Frage von schauan zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Tipps für Router (ca. 100 clients, VPN) (18)

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

TK-Netze & Geräte
gelöst Convert von TAPI auf CAPI gesucht (13)

Frage von StefanKittel zum Thema TK-Netze & Geräte ...