vbs ip paste

ip = Inputbox("Enter IP to block","Input Required")
Set objShell = CreateObject("WScript.Shell")
WScript.Sleep(1000)
objShell.AppActivate("COM1 - PuTTY")
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "Access-List 101 Deny IP Any Host "
WshShell.SendKeys ip
WshShell.SendKeys "{ENTER}"