1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists("services.txt") Then
set f = fso.GetFile("services.txt")
f.delete
End If
strComputer = InputBox("Entrez le nom du serveur", "Nom du serveur", ".")
Set wbemServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set wbemObjectSet = wbemServices.ExecQuery("Select * from Win32_Service",,48)
Set f = fso.CreatetextFile("services.txt", ForAppending, True)
For Each wbemObject In wbemObjectSet
f.write wbemObject.Caption & " - " & wbemObject.StartMode & " - " & wbemObject.State & VBCrLf
Next
set wbemServices = nothing
set wbemObjectset = nothing
set fso = nothing
set f = nothing
msgbox "Done!" |
Partager