Hi @zulfa_r,
kindly check the below snippet of code , this will create a random password with shuffling with different character types including special symbols. Hope it works.
Function GenerateRandomPassword(length)
Dim upperChars, lowerChars, numberChars, specialChars
Dim password, i, rndIndex
Dim requiredChars, tempArray(), shuffled
Dim strLen
' Characters to be used in the randomized password
upperChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
lowerChars = "abcdefghijklmnopqrstuvwxyz"
numberChars = "0123456789"
specialChars = "!@#$%^&*()_+-=[]{}|;':,./<>?"
Randomize
password = ""
' Ensure at least one character from each category
password = Mid(upperChars, Int(Len(upperChars) * Rnd + 1), 1)
password = password & Mid(lowerChars, Int(Len(lowerChars) * Rnd + 1), 1)
password = password & Mid(numberChars, Int(Len(numberChars) * Rnd + 1), 1)
password = password & Mid(specialChars, Int(Len(specialChars) * Rnd + 1), 1)
' Remaining characters to fulfill the desired length
requiredChars = upperChars & lowerChars & numberChars & specialChars
For i = 5 To length ' Start from 5 since we already added 4 characters
rndIndex = Int(Len(requiredChars) * Rnd + 1)
password = password & Mid(requiredChars, rndIndex, 1)
Next
' Shuffle the password to avoid predictable order
shuffled = ShuffleString(password)
GenerateRandomPassword = shuffled
End Function
Function ShuffleString(str)
Dim i, pos, temp, strLen
Dim tempArray()
strLen = Len(str)
ReDim tempArray(strLen - 1)
For i = 1 To strLen
tempArray(i - 1) = Mid(str, i, 1)
Next
For i = 0 To UBound(tempArray)
pos = Int((UBound(tempArray) + 1) * Rnd)
temp = tempArray(i)
tempArray(i) = tempArray(pos)
tempArray(pos) = temp
Next
ShuffleString = JoinArray(tempArray)
End Function
Function JoinArray(arr)
Dim result, i
result = ""
For i = LBound(arr) To UBound(arr)
result = result & arr(i)
Next
JoinArray = result
End Function
Dim length, password
length = 12
password = GenerateRandomPassword(length)
WScript.Echo password
Also check with PAD on this action 'Create Random Text', this will also give a designated result, Kindly check.
thanks,
If my solution resolved your query, kindly mark it as solution and give thumps up!
