2009-06-15 44 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

相關問題