Bonjour,
Je développe un petit HTA et voila j'aimerais récupérer la variable de mon computer NAME et le mettre par défaut dans un formulaire.
J'ai réussis à faire une fonction qui permettais la récupération de ma variable et l'afficher :
Fonction vb :
Code :
- Sub Window_OnLoad
- Dim intWidth,intHeight,strIPInfo,arrIPInfo
- intWidth = 800
- intHeight = 600
- Me.ResizeTo intWidth, intHeight
- Me.MoveTo ((Screen.Width / 2) - (intWidth / 2)),((Screen.Height / 2) - (intHeight / 2))
- span_computername.innerHTML = GetComputerName()
- If InStr(strIPInfo, ";" ) > 0 Then
- arrIPInfo = Split(strIPInfo, ";" )
- If UBound(arrIPInfo) >= 3 Then
- span_ipaddress.InnerHTML = arrIPInfo(0)
- span_subnetmask.InnerHTML = arrIPInfo(1)
- span_defaultgateway.InnerHTML = arrIPInfo(2)
- span_primarydns.InnerHTML = arrIPInfo(3)
- If UBound(arrIPInfo) = 4 Then
- span_secondarydns.InnerHTML = arrIPInfo(4)
- End If
- End If
- End If
- End Sub
|
Code :
- <tr><td>
- Le Nom de l'ordinateur est :
- </td>
- <td>
- <span id="span_computername"></span>
- </td>
- </tr>
|
jusque là tout va bien il m'affiche bien le computername.
J'ai ensuite voulu crée un formulaire où je voulais qu'il m'affiche par défaut mon computer name en récupérant le span id et bien sur j'aimerais qu'il soit modifiable
cependant ça ne l'affiche pas...
voici le form :
Code :
- <form>TARGET:<br>
- <input type="text" value=<span id="span_computername"></span>
- </form>
|
merci à vous pour vos éventuelles retours
Message édité par shusters95 le 10-10-2018 à 10:10:52
---------------
http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0
