For anyone who wants to update the Component Lead using the REST API with Excel VBA see below (the first sub is in a standard module the rest are in a class module):
Sub JIRA_UpdateComponentLead()
Dim myJIRA As New clsJIRA
Dim componentID As String
'Note you will need the component ID
MsgBox "You will need the component ID. " & vbCrLf & "e.g. use http://yourJIRA:80/rest/api/2/project/yourPROJECT/components", vbExclamation
With myJIRA
.URL = InputBox("Enter Jira URL e.g. yourJIRA:80", "JIRA URL")
.Protocol = InputBox("Enter protocol i.e. https:// or http://", Protocol, "http://")
.UserName = InputBox("Enter JIRA Username for " & myURL, "Username")
.Password = InputBox("Enter JIRA Password for " & myURL, "Password")
.Project = InputBox("Enter JIRA Project Name for " & myURL, "Project")
.Login
componentID = InputBox("Enter JIRA ComponentID to change ")
.RenameComponentLead componentID, InputBox("New Component Lead Login Name")
.Logout
End With
End Sub
Private oJiraAuth As MSXML2.ServerXMLHTTP60
Private oJiraService As MSXML2.ServerXMLHTTP60
Private sJIRAUserID As String
Private sJIRAPass As String
Private sURL As String
Private sCookie As String
Private sOutput As String
Private sStatus As String
Private sProtocol As String
Private sProject As String
Public Property Let Protocol(ByVal vNewValue As String)
sProtocol = vNewValue
'Default to HTTPs
If sProtocol = "" Then
sProtocol = "https://"
End If
End Property
Public Property Let UserName(ByVal vNewValue As String)
sJIRAUserID = vNewValue
End Property
Public Property Let Password(ByVal vNewValue As String)
sJIRAPass = vNewValue
End Property
Public Property Let URL(ByVal vNewValue As String)
sURL = vNewValue
End Property
Public Property Let Project(ByVal vNewValue As String)
sURL = vNewValue
End Property
Public Function Login() As Boolean
Login = False
Set oJiraAuth = New MSXML2.ServerXMLHTTP60
With oJiraAuth
.Open "POST", sProtocol & sURL & "/rest/auth/1/session", False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.send " {""username"" : """ & sJIRAUserID & """, ""password"" : """ & sJIRAPass & """}"
sOutput = .responseText
sCookie = "JSESSIONID=" & Mid(sOutput, 42, 32) & "; Path=/Jira"
End With
Set oJiraService = New MSXML2.ServerXMLHTTP60
With oJiraService
.Open "GET", sProtocol & sURL & "/rest/api/2/search?jql=project=" & sProject, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.setRequestHeader "Authorization", "Basic " & EncodeBase64(sJIRAUserID & ":" & sJIRAPass)
.setRequestHeader "Set-Cookie", sCookie
.send
sOutput = .responseText
sStatus = .Status & " | " & .statusText
End With
'sOutput should contain all data in JSON format
'next, you must use a JSON parser to get the desired format
End Function
Private Function EncodeBase64(srcTxt As String) As String
Dim arrData() As Byte
arrData = StrConv(srcTxt, vbFromUnicode)
Dim objXML As MSXML2.DOMDocument60
Dim objNode As MSXML2.IXMLDOMElement
Set objXML = New MSXML2.DOMDocument60
Set objNode = objXML.createElement("b64")
objNode.DataType = "bin.base64"
objNode.nodeTypedValue = arrData
EncodeBase64 = objNode.Text
Set objNode = Nothing
Set objXML = Nothing
End Function
Public Function RenameComponentLead(sJIRAComponentID As String, sNewUser As String) As Boolean
Dim sData As String
Dim sAux As String
sData = " { ""fields"" :
{ ""leadUserName"" : """ & sNewUser & """ }
} "
sData = " { ""leadUserName"" : """ & sNewUser & """ }"
With oJiraService
.Open "PUT", "http://" & sURL & "/rest/api/2/component/" & sJIRAComponentID, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.setRequestHeader "Set-Cookie", sCookie
.send sData
sOutput = .responseText
sStatus = .Status & " | " & .statusText
End With
MsgBox sStatus, vbInformation, "Status"
End Function
Public Function FindComponentID(sJIRAComponentName As String) As String
End Function
Public Function Logout()
Set oJiraService = Nothing
Set oJiraAuth = Nothing
End Function
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.