Le script ci-dessus va récupérer vos processus et les intégrer dans un fichier powerpoint, vous pouvez modifier les informations en gras :
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add
objPresentation.ApplyTemplate("C:\Program Files\Microsoft Office\Templates\Presentation Designs\Globe.pot - nom du template pour créer le ppt")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * From Win32_Process")
For Each objProcess in colProcesses
Set objSlide = objPresentation.Slides.Add(1,2)
Set objShapes = objSlide.Shapes
Set objTitle = objShapes.Item("Rectangle 2")
objTitle.TextFrame.TextRange.Text = objProcess.Name
strText = "Working set size: " & objProcess.WorkingSetSize & vbCrLf
strText = strText & "Priority: " & objProcess.Priority & vbCrLf
strText = strText & "Thread count: " & objProcess.ThreadCount & vbCrLf
Set objTitle = objShapes.Item("Rectangle 3")
objTitle.TextFrame.TextRange.Text = strText
Next
objPresentation.SaveAs("C:\Documents and Settings\All Users\Desktop\demo.ppt - Chemin de destination")
objPresentation.Close
objPPT.Quit
 Proposer un script
|
Notre avis :
Votre avis :
Réactions :
0
Votants :
2
Visites :
12110
|
