Скрипт для отправки MAC-адреса на удаленный сервер

Set oShell = WScript.CreateObject ("WScript.Shell")
Filename = InputBox("Введите имя файла")
'MsgBox "Вы ввели: " & Filename

command1 = "cmd /c route PRINT > \\192.168.0.100\buffer\" & Filename & ".txt"
'MsgBox "Ваша команда: " & command1

oShell.Run command1,0,True
WScript.Quit(0)