Imports System.Collections.Generic
Public Sub DefineJsonServerCI()
Dim obj As New Rootobject With
.cilist = New List(Of Cilist) From
.className = "BMC_ComputerSystem",
.attributeMap = New Attributemap With
.HomeCell = "pncell_bppmwsserver",
.WriteSecurity = "[Full Access]",
.DATABASE_event_max_sev = "OK",
.PriorityWatchdog = "NO",
.maintenance_mode = "NO",
.HostName = "bppmwsserver",
.computed_priority = "PRIORITY_5",
.impacting_open_event_max_sev = "OK",
.USER_TRANSACTIONS_event_max_sev = "OK",
.ImpactCostPerSecOut = "0.000000e+000",
.APPLICATION_event_max_sev = "OK",
.SYSTEM_event_max_sev = "OK",
.Description = "Test CI",
.UsingOrganizationId = "-1",
.any_event_max_sev = "OK",
.Priority = "PRIORITY_5",
.Name = "bppmwsserver.calbro.com",
.mc_udid = "bppmwsserver_6",
.ReadSecurity = "[Full Access]",
.PrimaryCapability = "Server"
Dim json As String = JsonConvert.SerializeObject(obj, Formatting.Indented)
Console.WriteLine("----- JSON Content -----")
Console.WriteLine("----- JSON Content -----")
Public Property cilist As List(Of Cilist)
Public Property id As String
Public Property className As String
Public Property attributeMap As Attributemap
Public Class Attributemap
Public Property HomeCell As String
Public Property PNReadAcl As String
Public Property WriteSecurity As String
Public Property PNWriteAcl As String
Public Property DATABASE_event_max_sev As String
Public Property PriorityWatchdog As String
Public Property UsingOrganization As String
Public Property OwnerContact As String
Public Property Domain As String
Public Property status As String
Public Property maintenance_mode As String
Public Property schedule_status As String
Public Property HostName As String
Public Property manual_status As String
Public Property root_causes As String
Public Property computed_priority As String
Public Property DeviceID As String
Public Property impacting_open_event_max_sev As String
Public Property InstanceId As String
Public Property USER_TRANSACTIONS_event_max_sev As String
Public Property ImpactCostPerSecOut As String
Public Property APPLICATION_event_max_sev As String
Public Property SYSTEM_event_max_sev As String
Public Property Company As String
Public Property OwnerName As String
Public Property Description As String
Public Property sub_status As String
Public Property UsingOrganizationId As String
Public Property any_event_max_sev As String
Public Property Priority As String
Public Property Name As String
Public Property publish_env_id As String
Public Property mc_udid As String
Public Property ReadSecurity As String
Public Property PrimaryCapability As String