hta sélection du nom de domaine

Version imprimable

J'utilise un petit script qui permet de changer le nom d'un PC et l'ajoute à un domaine X

Selon le script strDomain = "domain.local"

Il y a probablement possibilité de faire en sorte qu'il y ait un choix pour strDomain (en l’occurrence 2 domaines)de sorte que dans l'interface du hta, avec un "checkBox" on puisse choisir un ou l'autre domaine...

Un petit indice pour m'aider a compléter

Merci

La partie de mon script

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub btn_FixIt_OnClick() 
    If txt_username.Value = "" Then 
        MsgBox "Entrer un nom d'utilisateur." 
        txt_username.Focus 
        Exit Sub 
    End If 
    If txt_password.value = "" Then 
        MsgBox "Entrer le mot de passe." 
        txt_password.Focus 
        Exit Sub 
    End If 
    strDomain = "DOMAIN.local" 
    strUser = Trim(txt_username.value) 
    strPassword = Trim(txt_password.value) 
    If StrUser = "" Then 
        Wscript.Quit 
    End If 
    If drp_Rename.Value <> "0" Then 
        For Each objComputer in colComputers 
            On Error Resume Next 
            intErrorCode = objComputer.Rename(drp_Rename.Value) 
            If intErrorCode <> 0 Then 
                MsgBox "Erreur lors du renommage du PC. Erreur # " & intErrorCode 
                MsgBox "Le domaine ne peut être contacté." 
            Else 
                On Error Resume Next 
                ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _ 
                strPassword,  "ta\" & strUser, NULL, _ 
                JOIN_DOMAIN + ACCT_CREATE) 
                Select Case ReturnValue 
                    Case 5 
                        MsgBox "Accès refusé" 
                        MsgBox "RetureValue: " & ReturnValue 
                    Case 2224 
                        MsgBox "Compte d'ordi déjà présent" 
                        MsgBox "RetureValue: " & ReturnValue 
                    Case 0 
                        MsgBox "Opération réusie" 
                        MsgBox "RetureValue: " & ReturnValue 
                    Case 2691 
                        MsgBox "Opération réussie" 
                        MsgBox "RetureValue: " & ReturnValue 
                    Case Else 
                        MsgBox "Opération ajout échouée: "& strDomain 
                        MsgBox "RetureValue: " & ReturnValue 
                End Select 
                On Error GoTo 0 
            End If 
            On Error GoTo 0 
            td_NEWPCRename.InnerText = "Le nouveau nom du PC est : " & drp_Rename.Value 
        Next 
    End If 
End Sub

Est ce que ca pourrait être une option?

Code:

1
2
<INPUT TYPE="radio" NAME="optDom" VALUE="Domaine1">Domaine1<BR>
<INPUT TYPE="radio" NAME="optDom" VALUE="Domaine2">Domaine2<BR>

Code:

1
2
if optDom(0).Checked  then  strDomain = "Domaine1"
if optDom(1).Checked  then strDomain = "Domaine2"

au lieu de strDomain = "DOMAIN.local".

merci

Salut
c'est bien une possibilité, mais il faut distinguer tes 2 boutons radio.

Code:

1
2
<INPUT TYPE="radio" NAME="optDom1" onclick="TestOption" VALUE="Domaine1">Domaine1<BR>
<INPUT TYPE="radio" NAME="optDom2" onclick="TestOption" VALUE="Domaine2">Domaine2<BR>

Code:

1
2
3
4
Sub TestOption()
if optDom1.Checked  then  strDomain = "Domaine1"
if optDom2.Checked  then strDomain = "Domaine2"
End Sub

Merci pour les infos...

J'ai utilisé

Code:

1
2
3
4
5
6
Domaine : <select size="1" name="Choix" onChange="Dor" background-color : White>
			<option value="">-Choix-</option>
			<option value="Dom1">Dom1</option>
			<option value="Dom2">Dom2</option>
			<option value="Dom3">Dom3</option>
			</select>

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Dor
		If Choix.value = "Dom1" Then
        strDomain = "Domaine1"   
        End If
        If Choix.value = "Dom2" Then
        strDomain = "Domaine2"   
        End If
        If Choix.value = "Dom3" Then
        strDomain = "Domaine3"
End If
End Sub

Mais j'arrive a un erreur de syntaxe...

ligne 150 qui est

Code:

Sub Dor

Une idée :P

MErci

Bon j'ai changé un peu et ça semble correct??? (je ne peux tester car je suis pas au bureau ...)

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
Sub btn_FixIt_OnClick() 
    If txt_username.Value = "" Then 
        MsgBox "Entrer un nom d'utilisateur." 
        txt_username.Focus 
        Exit Sub 
    End If 
    If txt_password.value = "" Then 
        MsgBox "Entrer le mot de passe." 
        txt_password.Focus 
        Exit Sub 
    End If 
 
		If Choix.value = "Dom1" Then
        strDomain = "Dom1"
          'MsgBox "D" & strDomain
        End If
        If Choix.value = "Dom2" Then
        strDomain = "Dom2" 
          'MsgBox "D" &  strDomain
        End If
        If Choix.value = "Dom3" Then
        strDomain = "Workgroup"  
         'MsgBox "D" & strDomain
      End If.......suite

Code:

1
2
3
4
5
6
Domaine : <select size="1" name="Choix" id="btn_FixIt" background-color : White>
			<option value="">-Choix-</option>
			<option value="Dom1">Dom1</option>
			<option value="Dom2">Dom2</option>
			<option value="Dom3">Workgroup</option>
			</select>

id="btn_FixIt" fait référence au bouton qui permet d'appliquer le changement

<button class="button" id="btn_FixIt" title="Fix the action items...">Change</button>