Thanks, Garth. I tried it and it worked. Here is the my script if anyone is interested.
ON ERROR RESUME NEXT
strServer= "."
strSiteCode="ABC"
strCollection = "ABC000FC"
Set locator = CreateObject( "WbemScripting.SWbemLocator" )
Set WbemServices1 = locator.ConnectServer( strServer,"root\SMS\site_" & strSiteCode )
strQryName = "Select ResourceID from SMS_FullCollectionMembership where CollectionID=" & "'" & strCollection & "'"
Set ListOfResources1 = WbemServices1.ExecQuery(strQryName)
For Each Resource1 in ListOfResources1
FOr Each oProp in Resource1.Properties_
GetResID = oProp.Value
Msgbox("The ResourceID is " & GetResID)
Set sResource = WbemServices1.Get("SMS_R_System='" & GetResID & "'")
sResource.Delete_
Next
Next