以下是一个简单的VBScript代码示例，用于生成一篇随机的500字左右的文章。这段代码会将生成的内容保存到一个文本文件中。

```vbscript

' 创建一个包含一些常用词汇的数组

Dim words()

words = Array("天空", "大海", "阳光", "沙滩", "森林", "河流", "花朵", "树木", "鸟儿", "风声", _

"梦想", "希望", "未来", "成长", "学习", "努力", "奋斗", "成功", "失败", "坚持", _

"幸福", "快乐", "健康", "自由", "爱", "友谊", "家庭", "工作", "生活", "时间", "回忆")

' 定义文章长度（约500字）

Const ARTICLE_LENGTH = 500

' 初始化变量

Dim article, i, wordCount

' 随机生成文章

Randomize

wordCount = 0

i = 0

Do While wordCount < ARTICLE_LENGTH

' 随机选择一个单词

Dim randomWord

randomWord = words(Int(Rnd UBound(words)))

' 检查是否需要添加空格或标点符号

If i > 0 Then

Dim punctuation

punctuation = Array(".", ",", "!", "?", ";", ":")

If Rnd > 0.9 Then

article = article & punctuation(Int(Rnd UBound(punctuation))) & " "

Else

article = article & " "

End If

End If

' 添加单词

article = article & randomWord

wordCount = wordCount + Len(randomWord) - Len(Replace(randomWord, " ", "")) + 1

i = i + 1

Loop

' 将文章写入文件

Dim fso, file

Set fso = CreateObject("Scripting.FileSystemObject")

Set file = fso.CreateTextFile("article.txt", True)

file.WriteLine article

file.Close

' 清理对象

Set file = Nothing

Set fso = Nothing

MsgBox "文章已生成并保存到 article.txt 文件中。"

```

使用说明：

1. 将上述代码复制到一个 `.vbs` 文件中。

2. 双击运行该文件，它会在当前目录下生成一个名为 `article.txt` 的文件。

3. 打开 `article.txt` 文件，查看生成的文章内容。

注意事项：

- 这段代码是随机生成的，因此每次运行都会得到不同的文章。

- 文章的长度通过 `ARTICLE_LENGTH` 定义，可以根据需要调整。

- 如果需要更高质量的文章，可以考虑使用更复杂的算法或外部API来生成内容。