Vbscript 排除以某些名称开头或包含某些名称的文件夹名称

我发现这段代码排除了特定的文件夹名称，但我需要根据“以开头”的文件夹名称排除

（示例管理%）我如何以这种方式重新编写

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
    If objSubfolder.Name <> "All Users" And objSubfolder.Name <> "Default" _
        And objSubfolder.Name <> "Default User" And objSubfolder.Name       <> "Public" Then
    WScript.echo objSubfolder.Name
    End If
Next

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objFolder=objFSO.GetFolder（“C:\Users\”）
设置colSubfolders=objFolder.Subfolders
对于colSubfolders中的每个objSubfolder
如果objSubfolder.Name为“所有用户”且objSubfolder.Name为“默认值”_
和objSubfolder.Name“Default User”和objSubfolder.Name“Public”
WScript.echo objSubfolder.Name
如果结束
下一个

请检查这是否是您需要的

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
    If InStr(1,objSubfolder.Name, "admin") <= 0 Then
        WScript.echo objSubfolder.Name
    End If
Next

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objFolder=objFSO.GetFolder（“C:\Users\”）
设置colSubfolders=objFolder.Subfolders
对于colSubfolders中的每个objSubfolder
如果InStr（1，objSubfolder.Name，“admin”），欢迎使用堆栈溢出！我尽我所能地编辑了你的问题。但是，添加代码和描述的解释，以便更多了解该主题的人看到它。请在遇到的特定错误消息中进行编辑，以防识别特定问题。祝你好运
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
    If InStr(1,objSubfolder.Name, "admin",1) <= 0 Then
        WScript.echo objSubfolder.Name
    End If
Next