小弟想编写个组件可以通过ASP调用,控制本机的NT服务进程,但碰到权限问题,希望知道的能指点一下,谢谢
以下代码在VB环境下通过,在ASP环境下报无权限~
----------------------------------------------------------------------
    Dim List  As String
    
    Dim strComputer As String
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
    Set colStoppedServices = objWMIService.ExecQuery _
    ("SELECT DisplayName,State FROM Win32_Service")
    
    For Each objService In colStoppedServices
        List = List & objService.Name & ":" & objService.State & "|"
    Next
    
    List = Left(List, Len(List) - 1)
    
    GetNtServiceList = List
    
    Set colStoppedServices = Nothing
    Set objWMIService = Nothing