VBScript的ran方法