Opret Diagram i Excel ark

Hej eXperter.

Jeg sidder og bikser lidt med Excel, og har lavet nedenstående script.

Det sætter nogle værdier ind i et excel ark, og gemmer det.
Værdierne er henholdsvis fri plads på C-Drevet, og Fri RAM.

Jeg kunne godt tænke mig hvis den efterfølgende kunne lave et diagram over værdierne. Jeg kan selvfølgelig selv lave det manuelt bagefter, men det er ikke sjovt.

Nogen der ved hvordan man laver sådan en typisk Performance monitor graf i excel ved brug af VBS?

'Script-----------------
Dim WshShell, oFS, strComputer, Path, LogFile, oXL

Set WshShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FilesystemObject")

strComputer = "."
Path = oFS.GetParentFolderName(WScript.ScriptFullName)
LogFile = "PerformanceLog.xls"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set oXL = WScript.CreateObject("EXCEL.application")

If oFS.FileExists(Path & "\" & LogFile) Then
    oFS.DeleteFile(Path & "\" & LogFile)
End If

oXL.Visible = True
oXL.WorkBooks.Add()

oXL.Columns(1).ColumnWidth = 10
oXL.Columns(2).ColumnWidth = 10
oXL.Columns(3).ColumnWidth = 5
oXL.Columns(4).ColumnWidth = 5

oXL.Cells(2, 1).Value = "Dato"
oXL.Cells(2, 2).Value = "Tid"
oXL.Cells(2, 3).Value = "RAM"
oXL.Cells(2, 4).Value = "HDD"

For i = 1 to 10
    Wscript.Sleep(5000)
    oXL.Cells(i+2, 1).Value = Date
    oXL.Cells(i+2, 2).Value = Time

    Set colItems = objWMIService.ExecQuery _
        ("Select * From Win32_PerfRawData_PerfOS_Memory")
    For Each objItem in colItems
        intValue = objItem.AvailableMbytes
        oXL.Cells(i+2, 3).Value = intValue
    Next
    Set colItems = objWMIService.ExecQuery _
        ("Select * From Win32_PerfRawData_PerfDisk_LogicalDisk Where " & _
            "Name = 'C:'")
    For Each objItem in colItems
        intValue = objItem.FreeMegabytes
        oXL.Cells(i+2, 4).Value = intValue
    Next
Next

oXL.Activeworkbook.SaveAs(Path & "\" & LogFile)
oXL.Quit
'Script Slut------------------------------