Question

我正在用vbscript编写脚本，但出现此错误：

800A000D格式不匹配：

这是代码：

Set objOU = GetObject("LDAP://OU=Usuarios,OU=xxx,DC=yyy,DC=uru,DC=zzz")

objOU.Filter = Array("group")

Dim ts, fso, parentFolder, folder, folderDirectory
    ts = CStr(Format(Now(),"#dd-mm-yyyy#")) 
    Set fso = CreateObject("Scripting.FileSystemObject")
    set parentFolder = fso.GetParentFolderName(WScript.ScriptFullName)
    folderDirectory = parentFolder & ts

Dim outputFileName
    outputFileName = ts & ".csv"

set outputFile = fso.CreateTextFile(outputFileName, TRUE)
For Each objGroup In objOU
  If InStr(1, objGroup.cn, "MIS_") = 1 Then
      For Each objMember In objGroup.Members
        outputFile.WriteLine objGroup.cn & ";" & objMember.sAMAccountName & ";" & objMember.displayname
      Next
  End If
Next

谢谢！

Answer 1

这是由函数Format引起的，VBScript不知道该函数。

您可以改用FormatDateTime，但格式有限：https://www.w3schools.com/asp/func_formatdatetime.asp

提示：请勿使用Now()，而要使用Date()以避免输出时间部分。

要获得所需的格式，您可以尝试使用FormatDateTime的定义格式之一，并使用.函数，以-交换Replace。

如果不合适，则必须创建自己的函数，然后将日期分割为单独的值

年：Year(Date())
月：Month(Date())
天：Day(Date())

并根据需要将它们连接起来。

800A000D格式不匹配（VBS）

1 个答案: