ASP找到每个月星期六是几号

ASP找出每个月星期六是几号
ASP用的Vscript脚本语音写的，想请教高手我想找出一年中每个星期六是几号，并且用EXECL导出来，年份是随机的，麻烦了。谢谢
[解决办法]

<script type="text/vbscript">
Dim y, d, i, ex
    y = 2012
    d = CDate(CStr(y) & "-1-1")
    Set ex = CreateObject("Excel.Application")
    ex.workbooks.Open "d:\\1.xls"
    ex.Sheets("sheet1").Select
    i = 1
    Do While 1
        
        If Weekday(d) = vbSaturday Then
            ex.ActiveSheet.Cells(i, 1) = d
            i = i + 1
        End If
        d = d + 1
        If year(d) > y Then
            Exit Do
        End If
    Loop
    ex.workbooks("1.xls").save
    ex.quit
    Set ex = Nothing
    MsgBox "ok"
</script>