用vbs确定可移动驱动器的连接时间_vbs教程-查字典教程网
用vbs确定可移动驱动器的连接时间
用vbs确定可移动驱动器的连接时间
发布时间:2016-12-28 来源:查字典编辑
摘要:问:您好,脚本专家!如何确定USB闪存驱动器的连接时间?--PS答:您好,PS。是的,我们承认:脚本专家确实懒惰。(尤其是在周五,这一天我们...

问:

您好,脚本专家!如何确定USB闪存驱动器的连接时间?

--PS

答:

您好,PS。是的,我们承认:脚本专家确实懒惰。(尤其是在周五,这一天我们必须编写周一专栏。)可能有一种方法能够专门监视何时插入USB闪存驱动器。但是,我们找不到这种方法,至少不能马上找到它。不可否认,或许我们可能感觉有点困难。但是,我们还是决定编写一个脚本,用来告诉您任何可移动驱动器与计算机连接(或断开连接)的时间。我们希望这样可以为您提供一些附加价值和灵活性。

嗨,我们并没有说我们确实已为您提供了附加价值和灵活性。我们只是希望自己能够做到。

实际上,这是一个容易编写的小脚本。另外,它还有一个优点,就是能够在任意版本的Windows上运行。(最初,我们曾经不加思索地想要使用Win32_VolumeChangeEvent类来完成这项任务,但是,该特定WMI类只能在WindowsServer2003上找到。)

该段代码如下所示:

复制代码 代码如下:

strComputer="."

SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")

SetcolEvents=objWMIService.ExecNotificationQuery_

("Select*From__InstanceOperationEventWithin10Where"_

&"TargetInstanceisa'Win32_LogicalDisk'")

DoWhileTrue

SetobjEvent=colEvents.NextEvent

IfobjEvent.TargetInstance.DriveType=2Then

SelectCaseobjEvent.Path_.Class

Case"__InstanceCreationEvent"

Wscript.Echo"Drive"&objEvent.TargetInstance.DeviceId&_

"hasbeenadded."

Case"__InstanceDeletionEvent"

Wscript.Echo"Drive"&objEvent.TargetInstance.DeviceId&_

"hasbeenremoved."

EndSelect

EndIf

Loop

是的,它确实类似于几天前我们向您展示的屏幕保护程序监视脚本。我们希望重复使用同一个脚本为您提供附加价值和灵活性。(尽管这主要是确保我们能够节省精力。)

此脚本首先连接到本地计算机上的WMI服务。然后,我们发出以下查询:

SetcolEvents=objWMIService.ExecNotificationQuery_

("Select*From__InstanceOperationEventWithin10Where"_

&"TargetInstanceISA'Win32_LogicalDisk'")

这个查询起什么作用呢?嗯,这里我们要使用ExecNotificationQuery方法来订阅一组特定的WMI事件。什么WMI事件?(伙计,您的问题太多了,不是吗?)在本例中,我们希望在每次更改Win32_LogicalDisk类的实例时我们都会得到通知。正如您马上就能看到的,这些更改将包括:为该类创建一个新实例(即,添加一个可移动驱动器)和删除该类的一个现有实例(即,取下一个可移动驱动器)。Within10只是意味着每10秒钟我们将检查一次,看看是否有任何Win32_LogicalDisk实例发生了变化。

是的,这也意味着,如果您插入了一个可移动驱动器,然后在6秒钟后将其取出,那么我们可能永远也不会知道这件事。如果这是个问题,那么将10改为一个更小的数值。也可以将10改为一个更大的数值。例如,将10改为60,就会每60秒钟进行一次检查,而不是每10秒钟。

明白了吗?我们甚至将附加价值和灵活性加入了代码自身中!

然后,我们建立一个不停运行的Do循环::

DoWhileTrue

接下来我们遇到了下面这行代码:

SetobjEvent=colEvents.NextEvent

正如我们在上一专栏中说过的,这行代码将使脚本“中断”,意思就是脚本将暂停在此行,直到Win32_LogicalDisk类发生变化为止。这种变化(可以是创建了新实例或者是删除/修改了一个现有实例)将使脚本执行Do循环中的其余代码行。

好问题:剩下那些行代码究竟要做什么?嗯,首先看一下生成事件的驱动器是否恰好为可移动驱动器(至少就WMI而言,DriveType为2):

IfobjEvent.TargetInstance.DriveType=2Then

如果DriveType不是2,那么我们只能再循环并等待下一个事件的发生。如果DriveType等于2,那么我们使用SelectCase块来确定发生的是哪种类型的事件。我们可通过确定事件的Class来执行此操作:

SelectCaseobjEvent.Path_.Class

为什么这样做?有两个原因:首先,我们并不关心现有实例所发生的任何变化。例如,我们并不关心驱动器C上的可用驱动器空间是否发生了变化。如果您看一下SelectCase代码,您就会注意到我们并不去费神检查__InstanceModificationEvent。为什么不呢?因为我们并不关心__InstanceModificationEvent(以某种方式修改现有实例时生成的事件的类型)。

其次,我们想要对__InstanceCreationEvent(它会告诉我们已经创建了一个新驱动器)和__InstanceDeletionEvent(它会告诉我们已经删除了一个现有驱动器)加以区别。通过确定事件类型,我们可以回显不同(并相应)的消息。例如,下面是用于确定是否创建了新驱动器的代码,如果是,则回显一条用于指示该结果的消息:

Case"__InstanceCreationEvent"

Wscript.Echo"Drive"&objEvent.TargetInstance.DeviceId&_

"hasbeenadded."

下面是用于通知我们是否删除了现有驱动器的代码:

Case"__InstanceDeletionEvent"

Wscript.Echo"Drive"&objEvent.TargetInstance.DeviceId&_

"hasbeenremoved."

回显相应的消息后,我们再循环并等待下一个事件的发生。默认情况下,该脚本将永远运行下去,或者至少在您终止该脚本进程之前会是这样。先发生哪种情况就先执行哪段代码。

正如我们说过的,这并不是您真正想要的,但是它确实能够达到这一目的。哦,不要忘了附加价值和灵活性。这应该足以弥补一个事实,那就是我们并没有真正回答您的问题。(我们希望我们已经解答了该问题的一个方面。不过这不是您的问题。)

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新vbs学习
    热门vbs学习
    脚本专栏子分类