Attendre la fin d'une commande WMI pour continuer
Bonjour,
J'ai ce bout de code :
Code:
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!