Не выходя из режима конфигурирования, выполнять команды ping,show running-config и т.д.
Пример:
Пример:
Router(config)#do show running-config
On Error Resume Next
dim doc, page
Message1 = "Пожайлуста, введите старое имя компьютера"
Message2 = "Пожайлуста, введите новое имя компьютера"
Title1 = "Старое имя компьютера"
Title2 = "Новое имя компьютера"
UserD = "DOMAIN\ivanov"
Text = "The command to complete successfully."
Comp = InputBox(Message1, Title, Comp, 100, 100)
If Comp = "" or Comp = Comp Then
' Canceled by the user
CompNew = InputBox(Message2, Title2, Comp, 100, 100)
' Evaluate the user input.
End If
If CompNew = "" or CompNew = Comp Then ' Canceled by the user
Else
szRA = "%SystemRoot%\system32\cmd.exe /K NETDOM RENAMECOMPUTER "
szRA = szRA & Comp & " "
szRA = szRA & "/NewName:"
szRA = szRA & CompNew & " /UserD:" & UserD & " /PasswordD:* "
if MsgBox("Перезагрузить компьютер после переименования?",4) = 6 then
szRA = szRA & " /REBoot:120"
End If
'szRA = szRA & "/computer=" & Comp & ""
MsgBox "Full command = " & szRA
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run szRA, 1, false
WScript.Echo Text & result
End If
dmesg | grep "^[a][t|d][a|0-9]" - вывод информации о жестких дисках
df -h -
показывает список всех файловых систем по именам устройств, сообщает их размер, занятое и свободное пространство и точки монтирования.