WMI + ASP 3.0

**spawn974** · 05/08/2013, 22h33

Bonjour à tous,

J'ai réussi à mettre au point en hta + vbscript la récupération d'informations liée à la machine concernée (WMI csproduct...).
à savoir Ip, Hostname, liste des imprimantes sur le poste, liste des partages etc.

Je souhaite faire la même chose en ASP j'ai bien dit ASP et non ASP .NET

Est ce possible ?

J'ai pu avancer en m'inspirant du Web
mais la je sèche pour le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
<%@ LANGUAGE="VBSCRIPT"%>
<HTML>
<HEAD>
<TITLE>Exemple WMI ASP 3.0 : recuperation  nom fournisseur PC</TITLE>
</HEAD>
 
<BODY> 
<% 
 
    WMI = "winmgmts:{impersonationLevel=impersonate}" 
 
    wqlQuery = "SELECT Vendor FROM Win32_ComputerSystemProduct" 
 
    set ResultVendor = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48) 
 
 
    Response.write ResultVendor
 
	' Class Win32_ComputerSystemProduct	
%>
</BODY>
</HTML>

Mais comment faire pour la suite ?

Avez-vous des pistes ?

Bien à vous

Spawn974

**spawn974** · 08/08/2013, 08h39

Bonjour à tous,

Voilà, pour démarrer j'ai réalisé ceci et cela fonctionne Yallaaaaaa !

1ere page HTML :

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
<FORM ACTION="Rslt.asp" METHOD="POST">
Computer name: <INPUT TYPE="TEXT" NAME="COMPUTERNAME"><BR>
<INPUT TYPE="SUBMIT">
</FORM>

2nd page ASP :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
<%
If Request("COMPUTERNAME") <> "" Then
 Set oSystem = GetObject("winmgmts:{impersonationLevel=" & _
  "impersonate}!//" & Request("COMPUTERNAME") & _ 
  "/root/cimv2:Win32_ComputerSystem=" & Chr(34) & _
 Request("COMPUTERNAME") & Chr(34))
 Response.Write "System information for " & _
 Request("COMPUTERNAME") & "<HR>"
 Response.Write "Name: " & oSystem.Caption & "<BR>"
 Response.Write "Owner: " & oSystem.PrimaryOwnerName & "<BR>"
 Response.Write "Domain: " & oSystem.Domain & "<BR>"
 Response.Write "Type: " & oSystem.SystemType & "<BR>"
 Response.Write "<HR>"
 Response.End
End If
%>

@+

Spawn

WMI + ASP 3.0

ASP

Discussions similaires

Partager

Partager