Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Feb 24, 2000



Application Security Testing: An Integral Part of DevOps

Query Objects for Initialization State

In a large app, or even a small one, you can use Property Let and Property Get to make sure necessary variables and subsystems are initialized. This code is from a large ADSI-based program in production:
Public Property Get ADSIInitialized() As Boolean
	If dso Is Nothing Then
		ADSIInitialized = False
		ADSIInitialized = True
	End If
End Property
Public Property Let ADSIInitialized(aValue As Boolean)
	If aValue = False Then ' Shut everything off
		Set cont = Nothing
		Set dso = Nothing
		' Make sure we aren't already initialized
		If dso Is Nothing Then 
		' Turn everything back on
			Set dso = GetObject("WinNT:")
			Set cont = dso.OpenDSObject("WinNT://" _
				& Server, "", "", ADS_SECURE_AUTHENTICATION)
		End If
	End If
End Property
Now it's trivial to verify this component has been initialized and initialize it if necessary:
If Not ADSIInitialized Then ADSIInitialized = True
Gregory Gadow
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date