Home

DreamHostAPI Dot Net Examples

The results are always in xml. However you also have the option of using a list of the results (which these examples do).

List Private Servers 

Dim ps As New DreamHostAPI.PrivateServer("YourUsername", "YourKey")
Dim results As String = String.Empty
Try
	results = ps.ListPS()	
	For Each value As DreamHostAPI.PSListElements In ps.PSList
		Console.WriteLine(value.AccountID)
		Console.WriteLine(value.PS)
		Console.WriteLine(value.Type)
		Console.WriteLine(value.Memory)
		Console.WriteLine(value.StartDate)
		Console.WriteLine("")
	Next

Catch err As Exception
	Console.WriteLine("Error Listing Private Servers...")
End Try

 

Private Servers Set Size (150MB) 

Dim ps As New DreamHostAPI.PrivateServer("YourUsername", "YourKey")
Dim results As Boolean
Try
	' result = size.SetSize("YourPrivateServer", SIZE)
	result = size.SetSize("YourPrivateServer", 150)
Catch err As Exception
	Console.WriteLine("Error Setting Private Server Size")
	Console.WriteLine(err.Message & System.Environment.NewLine & err.StackTrace)
End Try

 

List Domains Example 

Dim domain As New DreamHostAPI.Domains("YourUsername", "YourKey")

try
	domain.ListDomains()
	For Each value As DreamHostAPI.DomainElements In domain.DomainList
	 	Console.WriteLine(value.AccountID)
	 	Console.WriteLine(value.Domain)
	 	Console.WriteLine(value.Home)
	 	Console.WriteLine(value.Type)
	 	Console.WriteLine(value.UniqueIP)
	 	Console.WriteLine(value.HostingType)
	 	Console.WriteLine(value.User)
	 	Console.WriteLine(value.Path)
	 	Console.WriteLine(value.OutsideUrl)
	 	Console.WriteLine(value.WWW)
	 	Console.WriteLine(value.Php)
	 	Console.WriteLine(value.Security)
	 	Console.WriteLine(value.FastCgi)
	 	Console.WriteLine(value.XCache)
	 	Console.WriteLine(value.PhpFastCgiD)
	 	Console.WriteLine(value.Passenger)
		Console.WriteLine("")
	Next
Catch err As Exception
	Console.WriteLine("Error Loading Domains...")
	Console.WriteLine(err.Message & System.Environment.NewLine & err.StackTrace)
End Try

 

List Users Example 

Dim user As New DreamHostAPI.Users("YourUsername", "YourKey")

Try
	user.ListUsersNoPassword()
	For Each value As DreamHostAPI.UserElements In user.UserList
	 	Console.WriteLine(value.AccountID)
	 	Console.WriteLine(value.DiskUsedMb)
	 	Console.WriteLine(value.Gecos)
	 	Console.WriteLine(value.Home)
	 	Console.WriteLine(value.Password)
	 	Console.WriteLine(value.QuotaMb)
	 	Console.WriteLine(value.Shell)
	 	Console.WriteLine(value.Type)
	 	Console.WriteLine(value.Username)
		Console.WriteLine("")
	Next
Catch err As Exception
	Console.WriteLine("Error Listing Users")
	Console.WriteLine(err.Message & System.Environment.NewLine & err.StackTrace)
End Try

 

List DNS Records Example 

Dim dns As New DreamHostAPI.DNS("YourUsername", "YourKey")

Try
	dns.DNSListRecords()
	For Each value As DreamHostAPI.DNSElements In dns.DNSList
	 	Console.WriteLine(value.AccountID)
	 	Console.WriteLine(value.Zone)
	 	Console.WriteLine(value.Record)
	 	Console.WriteLine(value.Type)
	 	Console.WriteLine(value.Value)
	 	Console.WriteLine(value.Comment)
	 	Console.WriteLine(value.Editable)
		Console.WriteLine("")
	Next
Catch err As Exception
	Console.WriteLine("Error Listing DNS Records")
	Console.WriteLine(err.Message & System.Environment.NewLine & err.StackTrace)
End Try

 

Add/Remove DNS Records Example (Please know what you are doing if you use this) 

Dim dns As New DreamHostAPI.DNS("YourUsername", "YourKey")

Try
	'dns.AddRecord(ByVal record as String, ByVal type As String, ByVal value as String, & _ 
	'	ByVal comment As String) As Boolean
	dns.AddRecord("Record", "Type", "Value", "Your Comment")

	'RemoveRecord(ByVal record as String, ByVal type As String, ByVal value as String) As Boolean
	dns.RemoveRecord("Record", "Type", "Value")
Catch err As Exception
	Console.WriteLine("Error Adding/Removing DNS Records")
	Console.WriteLine(err.Message & System.Environment.NewLine & err.StackTrace)
End Try

 

List Announcement Lists Example 

Dim announce As New DreamHostAPI.Announcements("YourUsername", "YourKey")
Dim results As String
Try
	results = announce.ListLists()
	For Each value As DreamHostAPI.AnnouncementListElements In announce.AnnouncementsList
	 	Console.WriteLine(announce.AccountID)
	 	Console.WriteLine(announce.ListName)
	 	Console.WriteLine(announce.Domain)
	 	Console.WriteLine(announce.Name)
	 	Console.WriteLine(announce.StartDate)
	 	Console.WriteLine(announce.MaxBounces)
	 	Console.WriteLine(announce.NumSubscribers)
		Console.WriteLine("")
	Next
Catch err As Exception
	Console.WriteLine("Error Listing Announcement List Records")
	Console.WriteLine(err.Message & System.Environment.NewLine & err.StackTrace)
End Try