前端之家

  1. 首页
  2. 问答

如何使用UNC路径进行WMI事件监视

• 问答

我正在尝试使用WMI使用vbs脚本监视文件夹中的更改，但是它将是网络驱动器。有几个用户将要执行此脚本，并且某些用户的映射驱动器号可能会有所不同。因此，我想使用不会改变的UNC。

我尝试将strDrive和strFolder更改为UNC和文件夹的每种组合。该脚本可以执行，但是除非我使用驱动器号，否则无法识别任何事件。

' VBScript source code
'WMIFileEvents.vbs
intInterval = "2"
strDrive = "f:" 'or \\mypath\
strFolder = "\\vbs\\"
strComputer = "." 


Set objWMIService = GetObject( "winmgmts:" & _ 
    "{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\cimv2" )
strQuery =  _
    "Select * From __InstanceOperationEvent" _
    & " Within " & intInterval _
    & " Where Targetinstance Isa 'CIM_DataFile'" _
    & " And TargetInstance.Drive='" & strDrive & "'" _
    & " And TargetInstance.Path='" & strFolder & "'"
Set colEvents = objWMIService. ExecNotificationQuery (strQuery) 
WScript.Echo "Monitoring events...[Ctl-C] to end"

Do 

    Set objEvent = colEvents.NextEvent()
    Set objTargetInst = objEvent.TargetInstance

    Select Case objEvent.Path_.Class 
        Case "__InstanceCreationEvent" 
            WScript.Echo "Created: " & objTargetInst.Name 
        Case "__InstanceDeletionEvent" 
            WScript.Echo "Deleted: " & objTargetInst.Name 
        Case "__InstanceModificationEvent" 
            WScript.Echo "Modified: " & objTargetInst.Name
    End Select 
Loop

我很乐意修改此脚本以使其与UNC一起使用，或者很高兴从UNC返回驱动器号（我也不知道该怎么做）。我愿意在VBS之外使用VBA或Shell，如果这样可以更容易解决的话。

zcczXS 回答：如何使用UNC路径进行WMI事件监视

这是我的解决方案。我发现Wscript.Network对象具有EnumNetworkDrives属性，该属性是所有当前使用的驱动器号的列表。然后，我循环浏览字母以发现当前未使用的字母，然后手动将UNC映射到它。即使他们已经连接了驱动器，我也只需将其映射并最后删除。

这假设用户并不是每个可能的驱动器号，对于我来说都是安全的。一种替代方法是将驱动器号映射回UNC，以识别当前使用的驱动器是否具有我所需的路径。

与笨拙的循环相比，我希望有一种更好的方法来查看列表中是否有项目，我愿意接受建议，但是它对我有用，而且写起来不需要很长时间。

'Establish all letters of the English Alphabet (assuming these can all become drive mappings)
Set driveLetters = CreateObject("System.Collections.ArrayList")

driveletters.add "A:"
driveletters.add "B:"
driveletters.add "C:"
driveletters.add "D:"
driveletters.add "E:"
driveletters.add "F:"
driveletters.add "G:"
driveletters.add "H:"
driveletters.add "I:"
driveletters.add "J:"
driveletters.add "K:"
driveletters.add "L:"
driveletters.add "M:"
driveletters.add "N:"
driveletters.add "O:"
driveletters.add "P:"
driveletters.add "Q:"
driveletters.add "R:"
driveletters.add "S:"
driveletters.add "T:"
driveletters.add "U:"
driveletters.add "V:"
driveletters.add "W:"
driveletters.add "X:"
driveletters.add "Y:"
driveletters.add "Z:"


'Find the first available open drive mapping

Set oWSN = CreateObject("WScript.Network")
Set oDrives = oWSN.EnumNetworkDrives

For i = 0 to driveletters.Count - 1 step 1
    in_list = False
    For j = 0 to oDrives.Count - 1 Step 2
        If oDrives.Item(j) = driveletters.Item(i) Then
            in_list = True
        End If
    Next

    If in_list = False Then
        strDrive = driveletters.Item(i)
        Exit For
    End If
Next

oWSN.MapNetworkDrive strDrive,"\\unc\path"

'Monitoring code

oWSN.RemoveNetworkDrive strDrive,True
vbscript
本文链接：https://www.f2er.com/3144167.html

大家都在问