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

上記のスクリプトを実行するASPページのIISで匿名アクセスを無効にしない限り、「エラー」80041003 'をスローするようです。 –

+0

あなたのASPアプリケーションが十分な特権を持っていないため、一時的に別のユーザーを偽装すると、次のような問題が発生する可能性があります。http://support.microsoft.com/kb/248187 –

+0

Cool ...私のために働きます! –

関連する問題