Can't figure out how to extract the last part of a sentence if there is nothing after it so I gotta add something to the end of it but still trying to figure out how...anyway save as a vbs file and play around with the script til it meets your needs as this isn't a universal script.
also I had to remove the strPass part as it was throwing errors due to what i mentioned above and watch for line wrap
Code:
Name = "Thank you for creating an acount with blablabla Your login name is blabla3421 and you password is 740c21d6"
' ---- adding symbols to password and login name, also stripping is from sentence ------
strip1 = (Replace(Name, "password", "password:"))
strip2 = (Replace(strip1, "login name", "login;"))
strip3 = (Replace(strip2, "is", ""))
msgBox strip3
' ----looking where to start output -----
Dim strUser
strUser = strip3
For i = 1 To Len(strUser)
strPos = InStr(1, ";", Mid(strUser, i, 1))
If strPos > 0 Then
' ---- looking where to stop output ------
strResult = Mid(strip3, i, InStr(i + 1, strip3, "and") - i)
End If
Next
' ---- stripping symbols from login -----
strName = (Replace(strResult, ";", ""))
msgBox strName
RAV1 = strName
RAV2 = strPass
iret = iim1.iimSet("-var_RAV1", RAV1)
iret = iim1.iimSet("-var_RAV2", RAV2)
WScript.Quit(0)
Last edited:
...I'm more of a visual learner so I took a pretty basic example script I found on
