fso对象的高级应用

枚举文件夹属性
描述
演示脚本使用 FileSystemObject 来枚举文件夹属性。此脚本必须运行在本
地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")
If objFolder.Attributes AND 2 Then
    Wscript.Echo "Hidden folder."
End If   
If objFolder.Attributes AND 4 Then
    Wscript.Echo "System folder."
End If   
If objFolder.Attributes AND 16 Then
    Wscript.Echo "Folder."
End If
If objFolder.Attributes AND 32 Then
    Wscript.Echo "Archive bit set."
End If
If objFolder.Attributes AND 2048 Then
    Wscript.Echo "Compressed folder."
End If
枚举特定的文件夹
描述
使用 Shell 对象返回到 My Pictures 文件夹的路径。
脚本代码
Const MY_PICTURES = &H27&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_PICTURES)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Name & ": " &
objFolderItem.Path
枚举一组特定的文件
描述
返回所有大于 1,000,000 字节的文件的列表。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where FileSize >
1000000")
For Each objFile in colFiles
    Wscript.Echo objFile.Name & " -- " & objFile.FileSize
Next
枚举计算机上的所有文件夹
描述
返回计算机所有文件夹的列表。这可能会花 15 分钟或更多的时间完成，这取决
于计算机上文件夹的数量。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFolders = objWMIService.ExecQuery("Select * from
Win32_Directory")
For Each objFolder in colFolders
    Wscript.Echo objFolder.Name
Next
枚举计算机上的所有文件
描述
枚举计算机上的所有文件。这基本上是一个演示脚本，如果实际运行，它可能会
花一个小时或更多的时间完成，这取决于计算机上的文件的数量。取决于文件的
数量和可用的内存，此脚本在完成前可能失败。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_Datafile")
For Each objFile in colFiles
    Wscript.Echo objFile.Name
Next
枚举管理工具
描述
使用 Shell 对象枚举安装在计算机上的所有 Administrative Tool。
脚本代码
Const ADMINISTRATIVE_TOOLS = &H2f&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objTools = objFolder.Items
For i = 0 to objTools.Count - 1
    Wscript.Echo objTools.Item(i)
Next
枚举文件夹的子文件夹
描述
使用查询的 WMI Associators 列出文件夹 C:\Scripts 的所有子文件夹。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colSubfolders = objWMIService.ExecQuery _
    ("Associators of {Win32_Directory.Name='c:\scripts'}
" _
        & "Where AssocClass = Win32_Subdirectory " _
            & "ResultRole = PartComponent")
For Each objFolder in colSubfolders
    Wscript.Echo objFolder.Name
Next
检索文件的摘要信息
描述
使用 Shell 的 Application 对象检索一个文件夹中所有文件的文件名。
脚本代码
Const FILE_NAME = 0
Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace ("C:\Scripts")
For Each strFileName in objFolder.Items
    Wscript.Echo "File name: " & objFolder.GetDetailsOf _
        (strFileName, FILE_NAME)
Next
检索文件的详细摘要信息
描述
使用 Shell 的 Application 对象检索文件夹中所有文件的详细摘要信息
（其中包括名称、大小、所有者和文件属性）。
脚本代码
Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace ("C:\Scripts")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim arrHeaders(13)
For i = 0 to 13
    arrHeaders(i) = objFolder.GetDetailsOf
(objFolder.Items, i)
Next
For Each strFileName in objFolder.Items
    For i = 0 to 13
        If i <> 9 then
            Wscript.echo arrHeaders(i) _
              & ": " & objFolder.GetDetailsOf (strFileName, i)
        End If
    Next
    Wscript.Echo
Next
使用 WMI 移动文件夹
描述
使用 WMI 将文件夹 C:\Scripts 移到
C:\Admins\Documents\Archive\VBScript。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where name =
'c:\\Scripts'")
For Each objFolder in colFolders
    errResults =
objFolder.Rename("C:\Admins\Documents\Archive\VBScript")
    Wscript.Echo errResults
Next
使用 WMI 复制文件夹
描述
使用 WMI 将文件夹 C:\Scripts 复制到 D:\Archive。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFolders = objWMIService.ExecQuery( _
    "Select * from Win32_Directory where Name =
'c:\\Scripts'")
For Each objFolder in colFolders
    errResults = objFolder.Copy("D:\Archive")
    Wscript.Echo errResults
Next
使用 Shell 对象移动文件夹
描述
使用 Shell 对象将文件夹 C:\Scripts 移到 D:\Archives。在移动文件夹
时显示复制文件进展。
脚本代码
Const FOF_CREATEPROGRESSDLG = &H0&
TargetFolder = "D:\Archive"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(TargetFolder)
objFolder.MoveHere "C:\Scripts", FOF_CREATEPROGRESSDLG
使用 Shell 对象复制文件夹
描述
使用 Shell 对象将文件夹 C:\Scripts 复制到 D:\Archives。当文件夹正
在复制时显示复制文件进展对话框。
脚本代码
Const FOF_CREATEPROGRESSDLG = &H0&
ParentFolder = "D:\Archive"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ParentFolder)
objFolder.CopyHere "C:\Scripts", FOF_CREATEPROGRESSDLG
删除文件夹
描述
演示脚本使用 FileSystemObject 删除文件夹。此脚本必须运行在本地计算
机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\FSO")
检索文件夹属性
描述
列出文件夹 C:\Scripts 的属性。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFolders = objWMIService. _
    ExecQuery("Select * from Win32_Directory where name =
'c:\\Scripts'")
For Each objFolder in colFolders
    Wscript.Echo "Archive: " & objFolder.Archive
    Wscript.Echo "Caption: " & objFolder.Caption
    Wscript.Echo "Compressed: " & objFolder.Compressed
    Wscript.Echo "Compression method: " &
objFolder.CompressionMethod
    Wscript.Echo "Creation date: " &
objFolder.CreationDate
    Wscript.Echo "Encrypted: " & objFolder.Encrypted
    Wscript.Echo "Encryption method: " &
objFolder.EncryptionMethod
    Wscript.Echo "Hidden: " & objFolder.Hidden
    Wscript.Echo "In use count: " & objFolder.InUseCount
    Wscript.Echo "Last accessed: " &
objFolder.LastAccessed
    Wscript.Echo "Last modified: " &
objFolder.LastModified
    Wscript.Echo "Name: " & objFolder.Name
    Wscript.Echo "Path: " & objFolder.Path
    Wscript.Echo "Readable: " & objFolder.Readable
    Wscript.Echo "System: " & objFolder.System
    Wscript.Echo "Writeable: " & objFolder.Writeable
Next
删除文件夹中的所有文件
描述
演示脚本删除文件夹中的所有文件。此脚本必须运行在本地计算机中。
脚本代码
Const DeleteReadOnly = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\*.txt"), DeleteReadOnly
删除网络共享
描述
停止共享名为 FinanceShare 的共享文件夹。这不会从本地硬盘驱动器中删除
文件夹，而只是使其不能通过网络进行使用。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colShares = objWMIService.ExecQuery _
    ("Select * from Win32_Share Where Name =
'FinanceShare'")
For Each objShare in colShares
    objShare.Delete
Next
删除已发布文件夹
描述
从 Active Directory 中删除名为 FinanceShare 的已发布文件夹。这不
会删除共享本身，而只是从 Active Directory 删除它。
脚本代码
Set objContainer = GetObject(" LDAP://CN=FinanceShare , " _
    & "OU=Finance, DC=fabrikam, DC=com")
objContainer.DeleteObject (0)
检索文件属性
描述
列出文件 C:\Scripts\Adsi.vbs 的属性。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_Datafile Where name =
'c:\\Scripts\\Adsi.vbs'")
For Each objFile in colFiles
    Wscript.Echo "Access mask: " & objFile.AccessMask
    Wscript.Echo "Archive: " & objFile.Archive
    Wscript.Echo "Compressed: " & objFile.Compressed
    Wscript.Echo "Compression method: " &
objFile.CompressionMethod
    Wscript.Echo "Creation date: " & objFile.CreationDate
    Wscript.Echo "Computer system name: " & objFile.CSName
    Wscript.Echo "Drive: " & objFile.Drive
    Wscript.Echo "8.3 file name: " &
objFile.EightDotThreeFileName
    Wscript.Echo "Encrypted: " & objFile.Encrypted
    Wscript.Echo "Encryption method: " &
objFile.EncryptionMethod
    Wscript.Echo "Extension: " & objFile.Extension
    Wscript.Echo "File name: " & objFile.FileName
    Wscript.Echo "File size: " & objFile.FileSize
    Wscript.Echo "File type: " & objFile.FileType
    Wscript.Echo "File system name: " & objFile.FSName
    Wscript.Echo "Hidden: " & objFile.Hidden
    Wscript.Echo "Last accessed: " & objFile.LastAccessed
    Wscript.Echo "Last modified: " & objFile.LastModified
    Wscript.Echo "Manufacturer: " & objFile.Manufacturer
    Wscript.Echo "Name: " & objFile.Name
    Wscript.Echo "Path: " & objFile.Path
    Wscript.Echo "Readable: " & objFile.Readable
    Wscript.Echo "System: " & objFile.System
    Wscript.Echo "Version: " & objFile.Version
    Wscript.Echo "Writeable: " & objFile.Writeable
Next
删除文件夹
描述
删除文件夹 C:\Scripts。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where Name =
'c:\\Scripts'")
For Each objFolder in colFolders
    errResults = objFolder.Delete
    Wscript.Echo errResults
Next
删除文件
描述
演示脚本使用 FileSystemObject 删除文件。此脚本必须运行在本地计算机
上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\ScriptLog.txt")
将数据写入文本文件
描述
演示脚本检索安装在计算机上的所有服务的状态，然后将服务名称和状态保存到
一个文本文件。
脚本代码
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("C:\Scripts\Service_Status.txt", ForAppending, True)
Set colServices = GetObject("winmgmts:").ExecQuery _
    ("SELECT * FROM Win32_Service")
For Each objService in colServices
    objTextFile.WriteLine(objService.DisplayName & vbTab
& objService.State)
Next
objTextFile.Close
搜索已发布文件夹
描述
搜索 Active Directory 以查找任何具有关键字 finance 的共享文件夹。
脚本代码
On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = "Select Name, unCName, ManagedBy
from "
    & "'LDAP://DC=Reskit,DC=com'" _
        & " where objectClass='volume' and Keywords =
'finance*'"
objCommand.Properties("Timeout") = 30
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    Wscript.Echo "Share Name: " &
objRecordSet.Fields("Name").Value
    Wscript.Echo "UNC Name: " &
objRecordSet.Fields("uNCName").Value
    Wscript.Echo "Managed By: " &
objRecordSet.Fields("ManagedBy").Value
    objRecordSet.MoveNext
Loop
使用递归枚举子文件夹
描述
演示脚本使用 FileSystemObject 以递归方式列出一个文件夹中的所有字文
件夹（以及它们的子文件夹）。
脚本代码
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder("C:\Scripts")
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Wscript.Echo Subfolder.Path
        ShowSubFolders Subfolder
    Next
End Sub
异步枚举文件
描述
使用异步查询枚举计算机上的所有文件。这主要是一个演示脚本；如果实际运行，
它可能要花一个小时或更多的时间才能得以完成，这取决于计算机上文件的数
目。
脚本代码
Const POPUP_DURATION = 120
Const OK_BUTTON = 0
Set objWSHShell = Wscript.CreateObject("Wscript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set objSink =
WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
objWMIService.ExecQueryAsync objSink, "Select * from
CIM_DataFile"
objPopup = objWshShell.Popup("Starting event retrieval",
_
    POPUP_DURATION, "Event Retrieval", OK_BUTTON)
Sub SINK_OnObjectReady(objEvent, objAsyncContext)
    Wscript.Echo objEvent.Name
End Sub
移动一组文件
描述
演示脚本使用 FileSystemObject 将文件夹中的所有文件都移到一个新的位
置。此脚本必须运行在本地计算机中。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\FSO\*.txt" , "D:\Archive\"
移动文件夹
描述
演示脚本使用 FileSystermObject 将文件夹从一个位置移动到另一个位置。
此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder "C:\Scripts" , "[url=file://helpdesk/management]\\helpdesk\management

[/url]"
移动文件
描述
将所有的 Windows Media (.wma) 文件移到文件夹 C:\Media Archive
中。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where Extension
= 'wma'")
For Each objFile in colFiles
    strCopy = "C:\Media Archive\" & objFile.FileName _
        & "." & objFile.Extension
    objFile.Copy(strCopy)
    objFile.Delete
Next
压缩文件夹
描述
压缩文件夹 C:\Scripts。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where name =
'c:\\Scripts'")
For Each objFolder in colFolders
    errResults = objFolder.Compress
    Wscript.Echo errResults
Next
修改文件属性
描述
演示脚本查看一个文件是否为只读文件，如果不是，就将其标记为只读。此脚本
必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\FSO\TestScript.vbs")
If objFile.Attributes = objFile.Attributes AND 1 Then
    objFile.Attributes = objFile.Attributes XOR 1
End If
更改文件扩展名
描述
将 C:\Scripts 文件夹中的所有 .log 文件的文件扩展名更改为 .txt。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='c:\Scripts'}
Where " _
        & "ResultClass = CIM_DataFile")
For Each objFile In FileList
    If objFile.Extension = "log" Then
        strNewName = objFile.Drive & objFile.Path & _
            objFile.FileName & "." & "txt"
        errResult = objFile.Rename(strNewName)
        Wscript.Echo errResult
    End If
Next
更改文件夹属性
描述
演示脚本使用 FileSystemObject 检查文件夹是否隐藏，如果没有隐藏，就
隐藏它。此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")
If objFolder.Attributes = objFolder.Attributes AND 2 Then
    objFolder.Attributes = objFolder.Attributes XOR 2
End If

修改网络共享
描述
访问名为 FinanceShare 的共享文件夹，将同时连接的最大数目更改为 50，
并且提供新的共享描述。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colShares = objWMIService.ExecQuery _
    ("Select * from Win32_Share Where Name =
'FinanceShare'")
For Each objShare in colShares
    errReturn = objShare.SetShareInfo(50, _
        "Public share for HR administrators and the Finance
Group.")
Next
Wscript.Echo errReturn
使用文件夹对话框的浏览
描述
使用 Shell 对象显示文件夹对话框的浏览。在选中文件夹之后，此脚本会报告
该文件夹是否是只读的。
脚本代码
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Select a folder:", NO_OPTIONS,
"C:\Scripts")
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
objPath = Replace(objPath, "\", "\\")
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where name = '" & objPath
& "'")
For Each objFile in colFiles
    Wscript.Echo "Readable: " & objFile.Readable
Next
按照日期枚举文件夹
描述
列出计算机上在 3/1/2002 之后创建的文件夹。此脚本需要 Windows XP 或
Windows .NT Server。
脚本代码
Const LOCAL_TIME = True
Set dtmTargetDate =
CreateObject("WbemScripting.SWbemDateTime")
Set dtmConvertedDate =
CreateObject("WbemScripting.SWbemDateTime")
dtmTargetDate.SetVarDate "3/1/2002", LOCAL_TIME
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory Where " _
        & "CreationDate > '" & dtmTargetDate & "'")
For each objFolder in colFolders
    dtmConvertedDate.Value = objFolder.CreationDate
    Wscript.Echo objFolder.Name & VbTab & _
        dtmConvertedDate.GetVarDate(LOCAL_TIME)
Next
在读取文件之前检查文件大小
描述
演示脚本在尝试读取文本文件之前使用 FileSystemObject 确保其为非空。
此脚本必须运行在本地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\Windows\Netlogon.log")
If objFile.Size > 0 Then
    Set objReadFile =
objFSO.OpenTextFile("C:\Windows\Netlogon.log", 1)
    strContents = objReadFile.ReadAll
    Wscript.Echo strContents
    objReadFile.Close
Else
    Wscript.Echo "The file is empty."
End If
重命名文件夹
描述
演示脚本使用 FileSystemObject 重命名一个文件夹。此脚本必须运行在本
地计算机上。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder "C:\FSO\Samples" , "C:\FSO\Scripts"
在 Queries 中使用 Wildcards
描述
返回所有名称以符号 (~) 开头的文件的列表。此脚本只运行在 Windows XP
或 Windows .NET Server 下。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile where FileName Like '%~%'")
For Each objFile in colFiles
    Wscript.Echo objFile.Name
Next
在 Folder Query 中使用 Wildcards
描述
返回所有路径以 C:\S 开头的文件夹的列表。此脚本只运行在 Windows XP 或
Windows Server 2003 下。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where Name Like
'%c:\\S%'")
For Each objFolder in colFolders
    Wscript.Echo "Name: " & objFolder.Name
Next
重命名文件
描述
将文件 C:\Scripts\Toggle_Service.vbs 重命名为
C:\Scripts\Toggle_Service.old。
脚本代码
strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from Cim_Datafile where Name = " _
        & "'c:\\scripts\\toggle_service.vbs'")
For Each objFile in colFiles
    errResult =
objFile.Rename("c:\scripts\toggle_service.old")
    Wscript.Echo errResult
Next

重命名文件夹
描述
将文件夹 C:\Scripts重命名为 C:\Repository。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where name =
'c:\\Scripts'")
For Each objFolder in colFolders
    errResults = objFolder.Rename("C:\Script Repository")
    Wscript.Echo errResults
Next

重命名文件
描述
演示脚本使用 FileSystemObject 冲命名一个文件。此脚本必须运行在本地
计算机上 。
脚本代码
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\FSO\ScriptLog.txt" ,
"C:\FSO\BackupLog.txt"

隐藏窗口运行批处理程序:

------------------------------------------------------------
CreateObject("WScript.Shell").Run "cmd /c 批处理名.bat",0

------------------------------------------------------------

将水平线中代码拷贝到记事本中，保存为"runbat.vbs"或者其它的名字（扩展名必须是.vbs），保存到批

处理文件同一文件夹中(也可在批处理名前面加上路径,如C:\ABC.bat,这样不放在同一文件夹中也可以执

行)，然后点击运行生成的脚本runbat.vbs，即可隐藏运行指定的批处理程序。这个vbs脚本也可以在其它

环境中直接调用。