Switch_Port_shut.vbs

Function SendCommands(header,csv)
STARTLOG csv

crt.Screen.Synchronous = 	false
crt.Screen.Synchronous =	True

stroutput = "Completed"
crt.Screen.Send ("term length 0"& vbCR )		
crt.Screen.Send ("sh run"& vbCR )  
crt.Screen.Send ("sh ver | inc FastEthernet interfaces"& vbCR )  
ports = crt.Screen.WaitForStrings("24 ", "48 ")
crt.Screen.Send ("config t"& vbCR ) 
'MsgBox ports
IF ports = 1 THEN
p = 24
END IF 
IF ports = 2 THEN
p = 47
END IF 

'MsgBox p
For n = 1 to p
'strport = csv(n)
'Select Case strport

'Case "1"

crt.Screen.Send ("do show int status | inc Fa0/"&n&" "&vbCR )
result = crt.Screen.WaitForStrings ("notconnect","connected","disabled",60)
crt.Screen.WaitForString("config")
'MsgBox result
IF result = 1 THEN
crt.Screen.Send ("int Fa0/"&n&vbCR )
crt.Screen.Send ("shut"& vbCR )
	END IF

	
'End Select 

Next

crt.Screen.Send ("end"& vbCR )  
crt.Screen.Send ("wr"& vbCR ) 
crt.Screen.Send ("exit"& vbCR ) 

login = crt.Screen.WaitForString("closed.")

''''''change above only

STOPLOG
SendCommands = stroutput
  
End Function