Udostępnij przez

Tworzenie aktywnych stron serwera dla usługi WMI

Strony Microsoft Active Server Pages (ASP) mogą tworzyć dynamiczne strony internetowe, włączając skrypty po stronie serwera i po stronie klienta. Strony ASP mogą być znacznie szybsze niż strony HTML klienta, ponieważ większość pracy jest wykonywana na serwerze. Można również użyć stron ASP do wyświetlania informacji o komputerach zdalnych na innych komputerach, na których nie zainstalowano instrumentacji zarządzania Windows (WMI).

Poniższa procedura opisuje sposób używania usługi WMI z platformą ASP.

Aby używać z ASP usługi WMI

  1. Napisz stronę ASP (.asp), która używa usługi WMI i umieść ją w katalogu dostępnym dla serwera internetowego.

    Skrypty ASP dla usługi WMI można opracowywać za pomocą kilku języków skryptów, w tym VBScript. Możesz skonstruować część skryptu usługi WMI strony ASP dokładnie tak, jak tworzysz inny skrypt, który używa usługi WMI, z jednym ważnym ograniczeniem: nie można używać asynchronicznych metod WMI na stronach ASP. Należy również pamiętać, że wszystkie wywołania GetObject lub CreateObject muszą znajdować się w kodzie po stronie serwera. Aby uzyskać więcej informacji, zobacz interfejs API skryptów dla usługi WMI.

  2. Skonfiguruj konfigurację uwierzytelniania dla usług Internet Information Services (IIS). Aby uzyskać więcej informacji, zobacz Configuring IIS 5 and Later for WMI ASP Scripting.

  3. Wyłącz dostęp anonimowy i włącz zintegrowane uwierzytelnianie systemu Windows dla pliku ASP. Te ustawienia dla strony ASP można skonfigurować przy użyciu przystawki IIS znajdującej się w folderze Narzędzia administracyjnePanelu sterowania.

Przykład strony ASP usługi WMI

W poniższym przykładzie użyto instrumentacji zarządzania Windows (WMI) na stronie serwera aktywnego (ASP), aby wyświetlić adres IP i domyślne ustawienia bramy IP dla serwera, z którego jest wykonywany ten skrypt.

<%@ LANGUAGE="VBSCRIPT"%>
<HTML>
<HEAD>
<TITLE>WMI ASP Example:
    Read Default Gateway and IP Address information </TITLE>
</HEAD>

<BODY>

<%
On Error Resume Next
set IPConfigSet = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!root\cimv2").ExecQuery" _
    & "("SELECT IPAddress, DefaultIPGateway "" _ 
    & " FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
%>

<%If Err <> 0 Then %>
    <%if err.number = -2147217405 then%>
        <p>Error 0x80041003: Access Denied: 
           Check permissions and file security for this ASP file.</p>
    <%else%>
        <p>Error description: <%=Err.description%> 
           error number <%=Err.number%></p>
    <%end if%>

<%end if %>

<%for each IPConfig in IPConfigSet%>

    <%if Not IsNull(IPConfig.IPAddress) then %>
        <%for i=LBound(IPConfig.IPAddress) 
            to UBound(IPConfig.IPAddress)%>
            <p>IP Address: <%=IPConfig.IPAddress(i)%></p>
        <%next%>
    <%end if%>
    

    <%if Not IsNull(IPConfig.DefaultIPGateway) then %>
        <%for i=LBound(IPConfig.DefaultIPGateway) 
            to UBound(IPConfig.DefaultIPGateway)%>
            <p>Default IP Gateway: 
                <%=IPConfig.DefaultIPGateway(i)%></p>
        <%next%>
    <%end if%>
<%next%>

<%If Err <> 0 Then %>
    <p>error description: <%=Err.description%> 
       error number <%=Err.number%></p>
<%end if %>

</BODY>
</HTML>

 

 

  • Last updated on