Recherche:

Pour écrire la ligne dans n'importe-quel Case (du moment qu'il y en a au-moins un de valide), il va falloir soit copier la ligne à exécuter dans tous les Case, soit rajouter à chaque fois "found =...

/!\ Je n'ai pas d'AD sous la main pour vérifier que cette proposition est viable.
Si le script est exécuté de n'importe-où et doit inscrire les postes en fonction de leur nom :

Set objOU =...

Car dans le code, il y a un test si [Résultat de fonction] = WindowsXP then / else / finsi, et que la MsgBox est exécutée après cela.
La fonction elle-même en VBScript peut être déclarée...

C'est la boîte de Pandore pour trouver sur Internet Google l'information que je cherche pour toi : la taille limite d'une chaîne de caractères ou d'un objet en VBScript.
Puisque 20Mo semblent passer...

Est-ce que l'icône C:\icon.ico existe ?
Sinon, la ligne entière m'étonne :
vbcargs = " /win32icon:" & CHR(34) & icofile & CHR(34) & vbcArgs & CHR(34),
vbcargs prend la valeur ...

J'avouerais que la longueur de ce code me fait un-peu peur.
J'en suis à la partie de la requête à la base Oracle, mais pour le moment, c'est, disons, imbuvable.
En extraction les fonctions de...

En extrayant juste la partie sur l'inclusion d'icône, ça donne une erreur à la ligne du corps ici :

If objArgs(4) <> "" Then
icofile = objArgs(4)
End If
[...]
If icofile <> "" Then
...

Ouvre (en tant qu'administrateur) le SecPol.msc sur l'ordinateur cible, dans la fenêtre "Paramètres de sécurité locaux", "Stratégies locales > Attribution des droits utilisateur", vérifie qu'au-moins...

Pour la comparaison, effectivement.
Pour info, avec les différentes méthodes proposées dans la discussion :
- avec Left(Ligne, MachineLen)
127.0.0.1 : 127.0.0.11 ok --> nok
- avec Left(Ligne,...

Normal, normal !

Aniki a tout à fait trouvé d'où venait le soucis, que je n'avais pas prévu :

LigneLeft = Left(Ligne, MachineLen)
Si on regarde "10.208.24.111", et qu'on ne garde que la partie...

En VB ? :calim2:
Dans quel environnement ?
Et quel est ce formulaire à valider ?

Au pire...

'Attendre ici que la bonne fenêtre soit active
WScript.SendKey {TAB}
WScript.SendKey {SPACE}...

Il y avait en effet pas mal d'erreurs (3 ou 4), voici les principales que tu pourrais corriger :
- Il faut déclarer ficMachines et ficHistorique, donc commencer le script par Dim ficMachines,...

Hmm, la gestion de l'utilisateur dans la fonction IsMember me semble étrange...

Essai avec ceci ?

Function IsMember(sDomainUser, sGroup) 'IsMember("yy.com/user", "Grp1")
Dim...

Lorsque tu as cette erreur, c'est que l'option ".Close" n'est pas gérée par l'objet ciblé.
Remplace les lignes type objet.Close par set objet=Nothing.

Il ne serait pas en lecture-seule, par hasard ?

Essaie avec ça ?

set WshShell = WScript.CreateObject("WScript.Shell" )
LigneEnPlus = "adresse IP nom de machine"
HostFile = "c:\Windows\System32\drivers\etc\host"
command = "runas...

As-tu essayé une solution proposée dans un post ci-dessus ?
Je corrige les quelques erreurs qui pourraient traîner.

Ah, zut, ça se voit que j'ai encore oublié d'exécuter le code. :p

Je pensais que le .Close pouvait être appliqué sur tous les éléments de type objet. Ça aurait été pratique.

Concernant la...

Salut !

Aniki, je ne suis pas tout à fait d'accord avec l'algo ci dessus.
Je propose de faire l'inverse, comme tu l'avais préparé au début :
1-D'abord, une boucle sur les noms de machines...

Si tu lances le script en mode administrateur de l'ordinateur, il n'y a plus d'UAC effective, les modifications sur (dont les droits d'accès au) le dossier Program Files ne sont plus émulés.
...

La version la plus basique possible serait certainement :

Option Explicit
Const ForWriting = 2, ForReading = 1, ForAppending = 8

Dim objFSO, fic1, fic2, fic1_op, fic2_op, fic1_rl, fic2_rl,...

Essaie de remplacer la fonction IsMember par ceci ?

Function IsMember(sGroup)
Dim sAdsPath,oUser,oGroup,GrpExists
sAdsPath = res.UserDomain &"/"& res.UserName
Set oUser =...

NomUtilisateur = ProcessEnv("USERNAME")
Command = "%COMSPEC% /c Echo o| cacls "& objet &" /g " & qq(NomUtilisateur) & ":f administrateurs:f"
En modifiant les lignes NomUtilisateur = "everyone" ?
...