Create Root Level Requirements using OTA API

QCServerURL="http://Server:9082/qcbin/"
QCUserLogInName="UserName"
QCUserPwd="Pwd"
QCDomain="DomainName"
QCProject="ProjectName"

Set QCConnObj=createobject("TDApiole80.TDConnection")

ConnectToQCProj()
AddParentRequirement()
DisConnectProj()
systemutil.CloseDescendentProcesses

Public function AddParentRequirement()
Set MyReq = QCConnObj.ReqFactory.AddItem(Null)
MyReq.ParentId = 0
MyReq.Name = "Your Requirement"
MyReq.Post
End Function