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 |
Partager