bonsoir à vous,

comment puis je utiliser les variables de type dossier spéciaux de windows à distance par wmi comme &H10& pour le bureau de l'utilisateur courrant?

mes scripts ne s'execute quen local avec ces variables.

(j'envoie mes sources complete à qui veu m'aider script HTA pour administrer des machines distante source recuperer ailleur et en cours d'adaptation)

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
24
Function Desktopalluser_HTML() 
    Dim objFolder, objShell, objFolderItem, colItems, objItem, stricone
		Dim strHTML
		Const DESKTOP = &H19&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(DESKTOP)
Set objFolderItem = objFolder.Self
Set colItems = objFolder.Items

	strHTML = "<table class=""Table"">" & _
	"<tr>" & _
	"<th>icone dans " & objFolderItem.Path & "</th>" & _
	"</tr>"
For Each objItem in colItems
Dim 	strdescription, strMACAddress, strIPAddress
      On Error Resume Next
	stricone = HTMLEncode(objItem.Name)
On Error GoTo 0
	strHTML = strHTML & "<tr><td>" & stricone & "</td>" & _
              	"</tr>"
Next
	  strHTML = strHTML & "</table>"
	  Desktopalluser_HTML=strHTML
End Function
Merci par avance pour votre aide tres precieuse