VBScript写入文件错误

我编写了一个脚本，它的基本功能是创建一个.txt文件，然后向其中写入一些文本。但无论何时我运行它，我都会得到

脚本：F\Known.vbs
第17行
字符：1
错误：权限被拒绝
代码：800A0046
来源：Microsoft VBScript运行时错误

我的代码是这样的

选项显式
Dim objFSO、objFSOText、objFolder、r、objFile
Dim strDirectory，strFile
暗长方体网络
做
随机化
r=int（rnd*91372183）+1
strDirectory=“C:\Users\”和CreateObject（“Wscript.Network”）。用户名和“\Desktop”
strFile=“\”&r&“.txt”
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objFile=objFSO.CreateTextFile（strDirectory&strFile）
常数只读=1
设置objFile=objFSO.GetFile（strDirectory&strFile）
objFile.Attributes=objFile.Attributes XOR ReadOnly
写入常数=2
设置objNetwork=CreateObject（“Wscript.Network”）
设置objFile=objFSO.OpenTextFile（strDirectory&strFile，用于写入）
objFile.写入“F672F7FD12D6WF6DF26DF6F26DF6F6QF67WQF6DFW6F16FW76DF61F62FD”
objFile.WriteBlankLines（1）
循环

---

我研究了其他类似性质的问题，试图添加读写属性等，但没有一个有效。

您必须以管理权限运行脚本。 为此，以管理员身份打开命令提示符，导航到脚本所在的目录，然后运行以下命令

>cscript {Your script name}

---

您无法使用第二次打开“strDirectory&strFile”文件

Set objFile = objFSO.OpenTextFile(strDirectory & strFile, ForWriting)

在第17行之后，您在第11行用

Set objFile = objFSO.CreateTextFile(strDirectory & strFile)

证据：

>> Set f = oFS.CreateTextFile("x")
>> Set f = oFS.OpenTextFile("x", 2)
>>
Error Number:       70
Error Description:  Erlaubnis verweigert.
>>

脚本的其他部分一团糟（随机化和循环中的常量、未使用的变量、滚动自己版本的标准方法的错误尝试），因此在编写下一行代码之前，您应该阅读文档和计划