Не могу понять как реализовать

on Error Resume Next 
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("wscript.shell")
DesktopPath = Shell.SpecialFolders("Desktop")
if ObjFSO.FileExists(DesktopPath & "\Ваш IP адрес.lnk") then
ObjFSO.DeleteFile DesktopPath & "\Ваш IP адрес.lnk" , True 'удаление лога
end if
 
 
DesktopPath = Shell.SpecialFolders("AllUsersDesktop")
call links(DesktopPath)
if not ObjFSO.FileExists(DesktopPath & "\Ваш IP адрес.lnk") then
DesktopPath = Shell.SpecialFolders("Desktop")
call links(DesktopPath)
end if
 
 
function ipLocal()
xz=""
dim strComputer,objWMIService,IPConfigSet,IPConfig,i,ip
Set WSHNetwork = CreateObject("WScript.Network")
ComputerName=WSHNetwork.ComputerName
 
            strComputer = "."
            Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
            Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
            'определение своего ip
            For Each IPConfig in IPConfigSet
                If Not IsNull(IPConfig.IPAddress) Then
                    For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
                    if len(IPConfig.IPAddress(i))<16 then
                    if IPConfig.IPAddress(i)<>xz then
                    xz=IPConfig.IPAddress(i)
                    ip = ip & chr(13) & IPConfig.IPAddress(i)
                    end if
                    end if
                    
                    Next
                End If
            Next
            ipLocal = "Ваш IP адресс: " &ip & chr(13) & "Имя Компьютера: " & ComputerName & chr(13)
End function
 
msgbox  ipLocal