Question

我有一个VB6应用程序应该能够检查网络中其他PC上是否运行相同（或某个其他）应用程序。这样做的目的是确保应用程序不在网络中的任何PC上运行，以便进行数据库压缩。如果在网络中的某处检测到应用程序，我可以使用我的vb6应用程序停止它。？

知道如何用vb6实现这个目标吗？

提前致谢，德克

Answer 1

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_Process")

For Each objItem in colItems
    msgbox objItem.ProcessID & " " & objItem.CommandLine
    If objItem.name = "Calculator.exe" then objItem.terminate
Next

上面\\.\中的点是计算机名称。 .表示本地计算机，但您可以在其中放置另一台计算机的名称。要查看可用的属性/方法，请在命令提示符中键入

wmic process get /?

和

 wmic process call /?

VB6，检查应用程序是否在网络上运行

1 个答案: