Advertisement
Guest User

Untitled

a guest
Jun 27th, 2019
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. IPROUTER = (Left(IP, 11)) & ((Right(IP, 3)) + 5)
  2.  
  3. '''VBA
  4. Dim ID As String
  5. Dim IP As String
  6. Dim IPROUTER As String
  7.  
  8. ID = Mid(olItem.Subject, 20, 9)
  9. IP = Right(olItem.Body, 14)
  10.  
  11. IPROUTER = (Left(IP, 11)) & ((Right(IP, 3)) + 5)
  12.  
  13. With objFile
  14. .WriteLine "START " & Chr(34) & ID & Chr(34) & " ping" & IP & " -t"
  15. '''
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement