WMI 任务：文件和文件夹

  • 项目

文件和文件夹的 WMI 任务通过 WMI 更改文件或文件夹属性，其中包括创建共享或重命名文件。 如果要复制文件或读写文件，最简单的方法是使用 Windows 脚本宿主 FileSystemObject 而不是 WMI。 有关其他示例，请参阅 TechNet ScriptCenter 的文件和文件夹部分。

CIM_DataFile 是 WMI 中实现的少数 CIM 类之一。 避免枚举或查询计算机上的所有 CIM_DataFile 实例，因为数据量可能会影响性能或导致计算机停止响应。

本主题所示的脚本示例仅从本地计算机获取数据。 有关如何使用脚本从远程计算机获取数据的详细信息，请参阅连接到远程计算机上的 WMI。

以下过程介绍了如何运行脚本。

运行脚本

  1. 复制代码并将其保存在扩展名为 .vbs 的文件中，例如 filename.vbs。 确保文本编辑器不会向该文件添加 .txt 扩展名。
  2. 打开命令提示符窗口并导航到保存该文件的目录。
  3. 在命令提示符下键入 cscript filename.vbs。
  4. 如果无法访问事件日志，请进行检查以查看是否正从提升的命令提示符运行。 某些事件日志（例如安全事件日志）可能受用户访问控制 (UAC) 的保护。

注意

默认情况下，cscript 会在命令提示符窗口中显示脚本的输出。 由于 WMI 脚本可以生成大量输出，因此可能需要将输出重定向到文件。 在命令提示符下键入 cscript filename.vbs > outfile.txt 以将 filename.vbs 脚本的输出重定向到 outfile.txt。

下表列出了可用于从本地计算机获取各种类型的数据的脚本示例。

如何实现... WMI 类或方法
...重命名文件而不会收到错误消息？ 使用 CIM_DataFile 类。 确保在调用 Rename 方法时传递整个路径名，例如，传递“C:\Scripts\Test.txt”而非“Text.txt”。 对于 PowerShell，使用 CIM_DataFile 可能效率不高。 因此，只需使用 Rename-Item cmdlet 即可。
VB 
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")
Next
PowerShell 
rename-item c:\scripts\toggle_service.vbs toggle_service.old
...确定用户是否在其计算机上存储了 .MP3 文件？

使用 CIM_DataFile 类并使用以下 WQLWHERE 子句来选择文件：Where Extension = "MP3"。

VB 
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'")
For Each objFile in colFiles
    Wscript.Echo "File Name: " & objFile.Name & "." & objFile.Extension
    Wscript.Echo "Path: " & objFile.Path
Next
PowerShell 
Get-WmiObject -Class CIM_DataFile -namespace "root\cimv2" -Filter "Extension = 'mp3'" | `
   format-list Name, Extension, Path
...在计算机上创建共享文件夹？

使用 Win32_Share 类和 Create 方法。

VB 
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create("C:\Finance", "FinanceShare", FILE_SHARE, MAXIMUM_CONNECTIONS, "Public share for the Finance group.")

PowerShell 
$FILE_SHARE = 0 $MAXIMUM_CONNECTIONS = 25 
$NewDir = new-item C:\Finance -type directory
$Shares= [WMICLASS]"Win32_Share"
[void]$Shares.Create("C:\Finance","FinanceShare", $FILE_SHARE, $MAXIMUM_CONNECTIONS, "Public share for the Finance group.")
...复制文件夹？

使用 Win32_Directory 类和 Copy 方法。 对于 PowerShell，只需使用 Copy-Item cmdlet。

VB 
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") 
Next
PowerShell 
Copy-Item C:\Scripts -Destination D:\Archive -Recurse
...移动文件夹？

使用 Win32_Directory 类和 Rename 方法。 对于 PowerShell，只需使用 Move-Item cmdlet。

VB 
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") 
Next
PowerShell 
move-item -path C:\Scripts -destination C:\Admins\Documents\Archive\PowerShell

脚本和应用程序的 WMI 任务

WMI C++ 应用程序示例

TechNet ScriptCenter

`