Как для каждого компьютера создать отдельный лог сессий связи по Telnet с IP-адресом в имени?

Dim fso, my, F_name, f_text,s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f_txt = fso.OpenTextFile("C:\Users\Public\Documents\ip.txt", 1) 'путь к ip , 1 - разрешение на чтение
Do While f_txt.AtEndOfStream <> True
s = f_txt.ReadLine + vbLF     ' перебор ip
Set my = CreateObject("WScript.Shell")
my.Run "telnet.exe"
WScript.Sleep (100)
my.Sendkeys "set logfile C:\telnet.log"
WScript.Sleep (100)
my.Sendkeys "open " & s 'подключение по телнет + (s это ip)

Dim objWMI, objCollection, objItem, strTemp, i
On Error Resume Next
Set objWMI = GetObject("winmgmts:\\.\root\cimv2") 
If Err.Number = 0 Then
    Set objCollection = objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
    If Err.Number = 0 Then
        For Each objItem In objCollection
            For i = 0 To UBound(objItem.IPAddress)
                If objItem.IPAddress(i) <> "0.0.0.0" Then strTemp = strTemp & objItem.IPAddress(i) & ";"
            Next
        Next
        WScript.Echo strTemp
    Else
        WScript.Echo "Ошибка " & Err.Number & " при выполнении запроса." & vbNewLine & Err.Description
        Err.Clear
    End If
Else
    WScript.Echo "Ошибка " & Err.Number & " при подключении к WMI-пространству." & vbNewLine & Err.Description
    Err.Clear
End If
WScript.Quit 0