HippyCraig
06-09-2015, 12:15 PM
I am using VBP to modify a bunch of scripts, I am trying to find a specific step and make some modifications to it, especially using encrypted passwords. Below is what I have but I am not sure about the password property making sure that the password is correct and that the encryption flag is set correctly in the BLD file.
Dim objApp, objStep, iNewIndex
Set objApp = CreateObject("VisBuildSvr.Application")
objApp.Project.Load "%PROCFILES_FULLPATH%"
'Set Find Step
For Each objStep in objApp.Project.Steps(vbldStepMain)
If objStep.Name = "Map Drive to Shared Output" and objStep.Action = "Map Drive" Then
objStep.Checked = True
objStep.Property("Password") = "SOME_ENCRYPTED_PASSWORD"
objStep.Property("Username") = "DOMAIN\USER"
objStep.Property("buildfailsteps") = CBool(0)
Exit For
End If
iNewIndex = iNewIndex + 1
Next
Dim objApp, objStep, iNewIndex
Set objApp = CreateObject("VisBuildSvr.Application")
objApp.Project.Load "%PROCFILES_FULLPATH%"
'Set Find Step
For Each objStep in objApp.Project.Steps(vbldStepMain)
If objStep.Name = "Map Drive to Shared Output" and objStep.Action = "Map Drive" Then
objStep.Checked = True
objStep.Property("Password") = "SOME_ENCRYPTED_PASSWORD"
objStep.Property("Username") = "DOMAIN\USER"
objStep.Property("buildfailsteps") = CBool(0)
Exit For
End If
iNewIndex = iNewIndex + 1
Next