Comment rendre la sortie sélectionnable dans HTA

J'essaye de faire un simple HTA pour exécuter des requêtes sur Active Directory et ensuite la sortie serait des options sélectionnables. La partie que je suis incapable de comprendre est de savoir comment faire la partie sélections.Comment rendre la sortie sélectionnable dans HTA

Sub User 
    set objExec = objshell.Exec(dsquery user -name "UserName") 
    set objStdOut = objExec.StdOut 
    strLine = objStdOut.ReadAll 
    Results.value = StrLine 
End Sub

Ce code sortira dans une zone de texte.

<textarea name="Results">

Ce que je voudrais ensuite être des options sélectionnables. Donc si par exemple j'ai plusieurs utilisateurs avec le nom 'Smith' alors je peux choisir celui que je veux et exécuter une autre requête avec cette information.

S'il y a une meilleure solution qu'une zone de texte, je suis ouvert aux sugestions. Je ne veux pas que ce soit une liste déroulante ou un bouton radio.

toute aide est appréciée

Source

2016-06-23 user3527088

Vouliez-vous dire quelque chose comme ça ??? ==> http://stackoverflow.com/questions/35198533/get-output-of-a-powershell-script-in-a-hta/35267951#35267951 – Hackoo

@Hackoo Fondamentalement ce que je cherche est ce dsquery user -name "smith *" renverra 2 utilisateurs Smith, John Smith, Mike Je veux pouvoir cliquer sur 1 et lui demander de sélectionner cet utilisateur pour lancer une autre commande – user3527088

Cet exemple de How Can I Dynamically Populate a List Box in an HTA ?

<html> 
<head> 
<title>Local Users</title> 
<HTA:APPLICATION 
    ID="objHTAHelpomatic" 
    APPLICATIONNAME="LocalUsers" 
    SCROLL="yes" 
    SINGLEINSTANCE="yes" 
    WINDOWSTATE="maximize" 
> 
</head> 
<SCRIPT Language="VBScript"> 
    Sub Window_Onload 
     Set objNetwork = CreateObject("Wscript.Network") 
     strComputer = objNetwork.ComputerName 
     Set colAccounts = GetObject("WinNT://" & strComputer & "") 
     colAccounts.Filter = Array("user") 
     For Each objUser In colAccounts 
      Set objOption = Document.createElement("OPTION") 
      objOption.Text = objUser.Name 
      objOption.Value = objUser.Name 
      LocalUsers.Add(objOption) 
     Next 
    End Sub 
'********************************************************************* 
Sub Execute() 
    Dim UserVar,ws 
    UserVar = LocalUsers.value 
    Command = "cmd /k Title Execution of NET USER for "& DblQuote(UserVar) &" & net user "& UserVar &"" 
    set ws = CreateObject("wscript.shell") 
    ws.run Command 
End Sub 
'********************************************************************* 
Function DblQuote(Str) 
    DblQuote = Chr(34) & Str & Chr(34) 
End Function 
'********************************************************************* 
</SCRIPT> 
<body> 
Command Net User<br><br> 
    <select name="LocalUsers"></select> 
    <input type="button" value="Execute Command Net User" onclick="Execute()"> 
</body> 
</html>

Source

2016-06-23 21:24:35 Hackoo

C'est le type de sélection que je veux. Maintenant, j'essaie de comprendre comment je peux référencer l'option sélectionnée pour exécuter une commande sur la seule sélection. – user3527088

@ user3527088 Vérifier ma dernière commande d'édition – Hackoo

Je pense que cela fonctionnera. Je vais l'essayer et vous le faire savoir. Merci pour l'aide – user3527088

Comment rendre la sortie sélectionnable dans HTA

Répondre

Questions connexes