vbsだが

Option Explicit

WScript.Echo DatePart("ww", "2010/1/1" , vbSunday , vbFirstFourDays)