Скрипт «Информация для тех поддержки»

Кто работает инженером, специалистом, оператором, администратором технической поддержки, тот наверное не понаслышке знаком с таким простым вопросом, "подскажите имя Вашего компьютера?" и как пользователь входит в ступор со словами, а где его посмотреть? И Вы в сотый раз как заезженная пластинка подсказываете где это посмотреть.На это тратятся драгоценные минуты, до просрочки sla. Чтобы упростить себе жизнь, я написал через vbs такой вот скрипт. который двумя нажатиями мыши откроет информацию, о имени пк, мак адресе, айпишнике и ап тайме.

Function CustomFormatTime (time)
  'Используем встроенную функцию FormatDateTime с параметром 4
  CustomFormatTime = FormatDateTime (time, 0)
End Function

Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(".", "root\cimv2")
 
Set HostNameSet = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Set colItems = objWMIService.ExecQuery("Select * From Win32_OperatingSystem")
Dim objItem
For Each objItem in colItems
    OSBootTime = objItem.LastBootUpTime 'Сохраняем время работы ОС в переменную
Next
For Each objItem in HostNameSet
    Str = vbNullString
    Str = Str & "PC Name: " & objItem.DNSHostName & VbCrLf
    Str = Str & "Mac: " & objItem.MACAddress & VbCrLf
    'Изменяем порядок элементов в строке OSBootTime
    Str = Str & "UpTime: " & CustomFormatTime(CDate(Mid(OSBootTime, 7, 2) & "/" & Mid(OSBootTime, 5, 2) & "/" & Left(OSBootTime, 4) & " " & Mid (OSBootTime, 9, 2) & ":" & Mid(OSBootTime, 11, 2) & ":" & Mid(OSBootTime,13, 2))) & VbCrLf
    
    If NOT IsNULL(objItem.IPAddress)Then
        Str = Str & "IP: " & Join(objItem.IPAddress, ",")
    End If
    
    MsgBox Str
Next