2009-06-15 50 views

回答

3
' This works on my machine... ' 
Option Explicit 
Dim objWMIService, procs, proc, creationDate 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\.\root\cimv2") 

Set procs = objWMIService.ExecQuery ("Select * from Win32_Process where name='inetinfo.exe'") 

For Each proc In procs 
    creationDate = creationDate & vbCr & proc.CreationDate 
Next 
+0

似乎在我的机器上抛出“错误'80041003'”,除非我禁用IIS中执行上述脚本的ASP页的匿名访问。 – 2009-06-16 13:57:26

相关问题