```vbscript
' 创建一个 VBScript 文件对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 指定要写入的文件路径
strFilePath = "output.vbs"
' 创建一个新的 VBScript 文件
Set objFile = objFSO.CreateTextFile(strFilePath, True)
' 写入 VBScript 代码
objFile.WriteLine "' 这是一个 VBScript 示例"
objFile.WriteLine "MsgBox ""Hello, world!"""
' 关闭文件对象
objFile.Close
' 提示用户文件已创建
MsgBox "VBScript 文件已创建:" & strFilePath