Bagikan melalui

Membuat Halaman Server Aktif untuk WMI

  • Artikel

Microsoft Active Server Pages (ASP) dapat membuat halaman web dinamis dengan menyertakan skrip sisi server dan sisi klien. Halaman ASP bisa jauh lebih cepat daripada halaman HTML klien karena sebagian besar pekerjaan dilakukan di server. Anda juga dapat menggunakan halaman ASP untuk menampilkan informasi tentang komputer jarak jauh ke komputer lain yang tidak menginstal Instrumentasi Manajemen Windows (WMI).

Prosedur berikut menjelaskan cara menggunakan WMI dengan ASP.

Untuk menggunakan WMI dengan ASP

  1. Tulis halaman ASP (.asp) yang menggunakan WMI, dan letakkan di direktori yang dapat diakses oleh server web Anda.

    Skrip ASP untuk WMI dapat dikembangkan dengan beberapa bahasa pembuatan skrip, termasuk VBScript. Anda dapat membuat bagian skrip WMI dari halaman ASP persis saat Anda membuat skrip lain yang menggunakan WMI, dengan satu batasan penting: Anda tidak dapat menggunakan metode WMI asinkron dalam halaman ASP. Perhatikan juga bahwa setiap panggilan ke GetObject atau CreateObject harus berada dalam kode sisi server. Untuk informasi selengkapnya, lihat API Pembuatan Skrip untuk WMI.

  2. Menyiapkan konfigurasi autentikasi untuk Internet Information Services (IIS). Untuk informasi selengkapnya, lihat Mengonfigurasi IIS 5 dan Yang Lebih Baru untuk WMI ASP Scripting.

  3. Nonaktifkan akses anonim, dan aktifkan Autentikasi Terintegrasi Windows untuk file ASP. Anda dapat mengonfigurasi pengaturan ini untuk halaman ASP Anda dengan menggunakan snap-in IIS yang terletak di folder Alat AdministratifPanel Kontrol.

Contoh Halaman WMI ASP

Contoh berikut menggunakan Instrumentasi Manajemen Windows (WMI) dalam Halaman Server Aktif (ASP) untuk menampilkan alamat IP dan pengaturan gateway IP default untuk server tempat skrip ini dijalankan.

<%@ 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>