Bonjour,

J'ai ce bout de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
for i = 0 to 1
	Set objTextFile = objFSO.OpenTextFile("D:\ValideAgentOps\Output_" & strCollecteurAcs(i) & "_.log", ForReading)
	Do Until objTextFile.AtEndOfStream
		strNextLine = objTextFile.Readline
		On Error Resume Next 
		Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strNextLine & "\root\default:StdRegProv")
		if oReg Is Nothing Then
			strRegInfo = "Unable to connect"
		end if
		oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrValues
		For Each strValue In arrValues
    			if (right(strvalue,1)) = 1 then
				strRegInfo = "Primaire"
				REM (left(strValue,30))
			else
				strRegInfo = "Secondaire"
    			end if
		Next
	objValFile.Writeline("" & strNextLine & ":" & strRegInfo & "")
	Loop
next
Je voudrais avoir une attente, dans la section en rouge avant de continuer le VBScript. Je voudrais que la commande d'aller chercher une valeur dans la base de registre soit terminé avant de continuer la loop.

Merci de votre aide!