Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IPROUTER = (Left(IP, 11)) & ((Right(IP, 3)) + 5)
- '''VBA
- Dim ID As String
- Dim IP As String
- Dim IPROUTER As String
- ID = Mid(olItem.Subject, 20, 9)
- IP = Right(olItem.Body, 14)
- IPROUTER = (Left(IP, 11)) & ((Right(IP, 3)) + 5)
- With objFile
- .WriteLine "START " & Chr(34) & ID & Chr(34) & " ping" & IP & " -t"
- '''
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement