# $language = "VBScript"
# $interface = "1.0"

' script version = 0.3


' set delay timer
g_nDelay = 1000

Sub Main
Dim host
host = crt.Dialog.Prompt("Enter IP address", "IP", "", False)
Dim user
user = "xxxx"
Dim passwd
passwd = "xxxx"

Dim interface
interface = crt.Dialog.Prompt("Enter interface", "Interface", "", False)
' Build a command-line string to pass to the Connect method.
'
cmd = "/SSH2 /L " & user & " /PASSWORD " & passwd & " /C 3DES /M MD5 " & host

crt.Session.Connect cmd

crt.Screen.WaitForString "Press any key to continue"
crt.screen.Send Chr(10)
crt.Screen.Send "conf t" & vbCr
crt.Screen.WaitForString "(config)#"
crt.Screen.Send "no aaa port-access mac-based " & interface & vbCr
crt.Screen.WaitForString "(config)#"
crt.Screen.Send "interface " & interface & vbCr
crt.Screen.WaitForString "(eth-"
crt.Screen.Send "disable" & vbCr
crt.Screen.WaitForString "(eth-"
crt.Sleep g_nDelay
crt.Screen.Send "enable" & vbCr
crt.Screen.WaitForString "(eth-"
crt.Screen.Send "exit" & vbCr
crt.Screen.WaitForString "(config)#"
crt.Screen.Send "aaa port-access mac-based " & interface & vbCr
crt.Screen.WaitForString "(config)#"
crt.Screen.Send "exit" & vbCr
crt.Screen.WaitForString "#"
crt.Screen.Send "sh port-access mac-based " & interface & vbCr
crt.Screen.WaitForString "#"
crt.Screen.Send "repeat" & vbCr
crt.Screen.WaitForString "1 0"
crt.Screen.Send Chr(10)
crt.Screen.Send "sh mac " & interface
End Sub

I know Visual Basic

and if you mean .bat file VBScript i may be able to help.