VBS скрипт, выводит IP адрес и имя компьютера пользователю.

Небольшой скриптик, который выводит имя компьютеа, его IP адресс и телефон отдела поддержки(необходимо вписать свой в скрипте).

Код:

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) & "-----------------------"& chr(13) &"   Телефоны:"& chr(13) &"Тех.поддержка: введите свой номер"
End function

msgbox  ipLocal