Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim args, oWinNT, oDomain, objExec, objShell Set objShell = WScript.CreateObject("WScript.Shell") Set args=Wscript.Arguments domain="domjemelle" Wscript.echo "Liste des machines du domaine " & domain set oWinNT=GetObject("WinNT://" & domain) for each oDomain in oWinNT if lcase(oDomain.class)="computer" then Set objExec = objShell.Exec("Ping -n 1 -l 1 " & oDomain.name) Do While Not objExec.stdout.AtEndOfStream if InStr(objExec.stdOut.ReadLine,"TTL=")<>0 Then Wscript.echo oDomain.name Exit Do end if Loop end if next function mdp() as string 'Initialise les variables Dim maj,min,chi,nb_carac 'Entrez du nombre de caracteres pour le mot de passe nb_carac=InputBox("Entrez le nombre de caractere pour le mot de passe"," ") 'boucle pour le nombre de caracteres For i = 1 To nb_carac 'remet les variables à zero maj = "" min = "" chi = "" 'initialise le nombre aleatoire Randomize 'définit le type 1->maj 2->min 3->chiffre type_car = Int(3 * Rnd + 1) 'switch sur le type Select Case type_car 'les limites sont fixés par la table de caracteres ANSI Case 1 'Majuscule Randomize maj = Int((90 - 65 + 1) * Rnd + 65) code = code & Chr(maj) Case 2 'Minuscule Randomize min = Int((122 - 97 + 1) * Rnd + 97) code = code & Chr(min) Case 3 'Chiffre Randomize chi = Int((57 - 48 + 1) * Rnd + 48) code = code & Chr(chi) End Select Next MsgBox code end function