route.vbs

Const WshRunning = 0
Const WshFinished = 1
Const WshFailed = 2
dim WSLIP
WSLIP = ""

dim ret
ret = 1
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set objLog = objFSO.CreateTextFile("c:\rebootlog.txt")
Set ws = Wscript.CreateObject("Wscript.Shell")

do until ret = 0
	ret = ws.run ("route delete 224.0.0.0 ",0,true)
	objLog.WriteLine Now() & " run route delete return ret value: " & ret
	WScript.sleep 2000
Loop

ret=1

do until ret = 0
'ret = ws.run ("wsl -d Ubuntu-18.04 -u root /etc/init.wsl",0,true)
	ret = ws.run ("wsl -d Ubuntu-18.04 -u root ls",0,true)
	objLog.WriteLine Now() & " run /etc/init.wsl return ret value: " & ret
	WScript.sleep 2000
Loop

ret=1
cmd = "netsh interface ip show address ""vEthernet (WSL)"" |findstr ""IP"" "
do until ret = 0
    Set WshShell = CreateObject("WScript.Shell")

    Set WshShellExec = WshShell.Exec("%comspec% /c " & cmd)
    Do While WshShellExec.Status = WshRunning
        WScript.Sleep 100
    Loop

    Select Case WshShellExec.Status
        Case WshFinished
            WSLIP = WshShellExec.StdOut.ReadAll()
            ret = 0
        Case WshFailed
            ret = 1
            WSLIP = WshShellExec.StdErr.ReadAll()
    End Select
    objLog.WriteLine Now() & " before right: " & WSLIP
    WSLIP = Replace(WSLIP, vbCr, "")
    WSLIP = Replace(WSLIP, vbLf, "")
    WSLIP = Right(WSLIP,16)
    objLog.WriteLine Now() & " netsh get ip: " & WSLIP
    WScript.sleep 2000
Loop


ret=1
do until ret = 0
	ret = ws.run ("route -p add 224.0.0.0 mask 240.0.0.0 " & WSLIP,0,true)
    objLog.WriteLine Now() & " "" route -p add 224.0.0.0 mask 240.0.0.0 " & WSLIP & " "" " & "return: " &ret
	WScript.sleep 2000
Loop