Accessing a variable from another script

Question

Is it possible to create a global variable in VB in the Job VBA code and to access it from VB in the scripts contained in that job? I want to dynamically create a value (a random email address) for use in one script where it is used for registration and then use it again in a second script for login.

Answer 1

I had a similar requirement and used a slightly different approach to solve it.
I had to produce some random char strings that would be client IDs to create test client records in my web app. I needed to reference these random client IDs in both a create script and a modify script.
I found that (and I guess this can come down to personal preference) it was easy to create a "utility function" that writes a file with however many random strings you want in csv format. If your target scripts don't have databanks, just play this sub in the VBA editor, and then throw the output file into the databank folder and databank the field of interest. For subsequent runs, just play the sub in the VBA editor for fresh data. Worst case, you have an existing databank, and you just need to paste this file into it in excel as a new column. Not a big deal. Here's an example of a function I have that I changed such that it would create a list of random email addresses to a csv file everytime you run the sub in VBA. Just drop this in your VBA workspace sharedmodule:
Private Sub CreateMemberEmailFile()
Dim intA As Integer
Dim sngA As Single
Dim strA As String
'Dim x As Integer
Dim str As String
Dim answer As Boolean
Dim fs As Scripting.FileSystemObject
Dim myfile As Scripting.TextStream
Set fs = New Scripting.FileSystemObject 'Create a new file system object
' put the file anywhere you want, doesnt matter
Set myfile = fs.OpenTextFile("c:\memberemailid.csv", ForWriting)
myfile.WriteLine "MemberEmailID"
' ok, this creates 50 random emails...feel free to change 50 to whatever you desire
For y = 1 To 50
str = ""
For x = 0 To 9
'sngA = Rnd
'Select Case (CInt(sngA * 200) Mod 3)
' Case 0
' intA = CInt(sngA * 48) + CInt(sngA * 10)
' intA = 48 + (intA Mod 10)
'Case 1
' intA = CInt(sngA * 65) + CInt(sngA * 26)
' intA = 65 + (intA Mod 26)
'Case 2
' intA = CInt(sngA * 97) + CInt(sngA * 26)
' intA = 97 + (intA Mod 26)
'End Select
'make intA a random number from 0-9
intA = RandNum(0, 9)
strA = CStr(intA)
str = str & strA
Next x
str = str & "@test.com"
myfile.WriteLine str 'write the message to identify a different line
Next y
myfile.Close 'Close the file
Set myfile = Nothing ' Release the variables
Set fsoData = Nothing ' Release the variables
End Sub