script wmi et variable locale (&H10&)
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:
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
