Click here to Skip to main content
15,904,497 members

S Douglas - Professional Profile



Summary

    Blog RSS
2
Author
3,549
Authority
5,057
Debator
12
Enquirer
661
Organiser
3,011
Participant
0
Editor
Just another hack, who manages to take care of issues that would otherwise go unsolved. Smile | :)

 

Reputation

Weekly Data. Recent events may not appear immediately. For information on Reputation please see the FAQ.

Privileges

Members need to achieve at least one of the given member levels in the given reputation categories in order to perform a given action. For example, to store personal files in your account area you will need to achieve Platinum level in either the Author or Authority category. The "If Owner" column means that owners of an item automatically have the privilege. The member types column lists member types who gain the privilege regardless of their reputation level.

ActionAuthorAuthorityDebatorEditorEnquirerOrganiserParticipantIf OwnerMember Types
Have no restrictions on voting frequencysilversilversilversilver
Bypass spam checks when posting contentsilversilversilversilversilversilvergoldSubEditor, Mentor, Protector, Editor
Store personal files in your account areaplatinumplatinumSubEditor, Editor
Have live hyperlinks in your profilebronzebronzebronzebronzebronzebronzesilverSubEditor, Protector, Editor
Have the ability to include a biography in your profilebronzebronzebronzebronzebronzebronzesilverSubEditor, Protector, Editor
Edit a Question in Q&AsilversilversilversilverYesSubEditor, Protector, Editor
Edit an Answer in Q&AsilversilversilversilverYesSubEditor, Protector, Editor
Delete a Question in Q&AYesSubEditor, Protector, Editor
Delete an Answer in Q&AYesSubEditor, Protector, Editor
Report an ArticlesilversilversilversilverSubEditor, Mentor, Protector, Editor
Approve/Disapprove a pending ArticlegoldgoldgoldgoldSubEditor, Mentor, Protector, Editor
Edit other members' articlesSubEditor, Protector, Editor
Create an article without requiring moderationplatinumSubEditor, Mentor, Protector, Editor
Approve/Disapprove a pending QuestionProtector
Approve/Disapprove a pending AnswerProtector
Report a forum messagesilversilverbronzeProtector, Editor
Approve/Disapprove a pending Forum MessageProtector
Have the ability to send direct emails to members in the forumsProtector
Create a new tagsilversilversilversilver
Modify a tagsilversilversilversilver

Actions with a green tick can be performed by this member.


 
GeneralAnother Script Pin
S Douglas23-Jan-09 19:00
professionalS Douglas23-Jan-09 19:00 
Okay, so here's another one of those one off scripts I've written. Its no longer used so might as well post it here on the off chance someone else needs it.

Option Explicit

'**************************************************************'
'*** Dist.List.V2 by Stephan Douglas						***'
'*** Contact stephan@sentinalsoftware.com 					***' 
'*** No warranties express or implied use at your own risk	***' 
'*** You are free to use as you see fit 					***'
'**************************************************************'
' Requirements as defined by Rhonda 03.02.2008
' 1. Get from Exchange Global Address list the Distribution Lists
' 	  specified in a config file. 
' 2. Output the results to an Excel spreadsheet
' 3. Values to obtain, Dist List Name, Members List and Manager 
'     there of.

'*** Excel Var ***'
Dim objExcel
Set objExcel = Nothing

'*** File System Constants ***'
Const ForReading = 1
Const ForWriting = 2
Const ForAppending =8

'***************************************************************************'
'*** Sub Main, all work starts from main *** SFD 05/08/2008
'***************************************************************************'
Call Main()

Sub Main()
Dim i, iCount

	'Create the excel spreadsheet
	If (objExcel is Nothing )Then
		Set objExcel = CreateObject("Excel.Application")
		iCount = objExcel.SheetsInNewWorkbook 
		
		If iCount > 1 Then 
			For i = 0 To iCount Step - 1 
				objExcel.Sheets(i).Delete 
			Next 
		End If 
		objExcel.SheetsInNewWorkbook = 1
		objExcel.Workbooks.Add
	End if
	
	'Start The reading process
	Call DeSerializeUser()
	
End Sub

'***************************************************************************'
'*** SerializeUser, Write Param to file *** SFD 05/08/2008
'***************************************************************************'
Function DeSerializeUser()
'On Error Resume Next
Dim objTextFile, objFSO
Dim sValue
	
	Set objFSO = CreateObject("Scripting.FileSystemObject")	
	
	Set objTextFile = objFSO.OpenTextFile(GetScriptName(".ini"), ForReading, True)	
	
	'*** Parse the ini file ***'
        Do While Not objTextFile.AtEndOfStream
            sValue = objTextFile.ReadLine()
            If Not InStr(sValue, "'") Then
				Call GetUsers(sValue)
            End If
        Loop

	objTextFile.Close
	
	Set objTextFile = Nothing
	Set objFSO = Nothing
	
'*** Error Handling ***'
If Err.Number <> 0 Then
	Msgbox "Error- DeSerialize User - " & Err.Number & " " & Err.Description
End If
End Function

'***************************************************************************'
'*** Return Script Name with user selected File Extension *** SFD 03/02/2008
'***************************************************************************'
Function GetScriptName(sExt)
On Error Resume Next
	
	GetScriptName = Replace(Wscript.ScriptName, ".vbs", sExt)

'*** Error Handling ***'
If Err.Number <> 0 Then
	Msgbox "Error- Get Script Name - " & Err.Number & " " & Err.Description
End If
End Function

'***************************************************************************'
'*** Read the Distribution List from AD and present it in Excel to user *** SFD 03/02/2008
'***************************************************************************'
Function GetUsers(sUser)
On Error Resume Next
Dim objGroup, iRow, strUser
Dim objUser, iCount

	Set objGroup = GetObject(sUser)
	
	With objExcel
		.SheetsInNewWorkbook = .SheetsInNewWorkbook + 1
		.Worksheets.Add
		.Visible = True
		.Worksheets.Item(1).Name = mid(objGroup.Name, instr(1,objGroup.Name,"=") + 1 ) 'set Worksheet name to that of the DL
		objUser = Filter(Split(objGroup.ManagedBy, ","), "CN=")	
		strUser = Replace(objUser(0), "CN=", "")
		.Cells(1,1) = "Manager"
		.Cells(2,2) = CStr(strUser)
		
		irow = 4
		.Cells(3,1) = "Members"
	 For Each strUser in objGroup.Member
	    Set objUser =  GetObject("LDAP://" & strUser)
		.Cells(iRow,2) = objUser.CN
		irow=irow + 1
	 Next
		.Columns(1).entirecolumn.autofit
	End With

	Set objGroup = Nothing  

'*** Error Handling ***'
If Err.Number <> 0 And Err.Number <> 451 Then
	Msgbox "Error- Get Users - " & Err.Number & " " & Err.Description
End If
End Function



Common sense is admitting there is cause and effect and that you can exert some control over what you understand.


GeneralWOOT - New Job Pin
S Douglas23-Jan-09 18:55
professionalS Douglas23-Jan-09 18:55 
Generalvbscript and errors Pin
S Douglas26-Jun-08 7:32
professionalS Douglas26-Jun-08 7:32 
GeneralPSDK Links Pin
S Douglas1-May-08 18:12
professionalS Douglas1-May-08 18:12 
JokeTo Funny! Pin
S Douglas16-Apr-08 18:41
professionalS Douglas16-Apr-08 18:41 
GeneralIIS, .NET and ASP.NET Rant [modified] Pin
S Douglas1-Sep-07 11:39
professionalS Douglas1-Sep-07 11:39 
GeneralSubversion Pin
S Douglas24-Aug-07 13:00
professionalS Douglas24-Aug-07 13:00 
GeneralC# Pin
S Douglas22-Jun-07 8:10
professionalS Douglas22-Jun-07 8:10 
GeneralJust the standard memory issues Pin
S Douglas12-Jun-07 5:38
professionalS Douglas12-Jun-07 5:38 
GeneralCommunity Forums Pin
S Douglas5-Mar-07 20:28
professionalS Douglas5-Mar-07 20:28 
GeneralFisher Price Pin
S Douglas3-Feb-07 23:55
professionalS Douglas3-Feb-07 23:55 
GeneralNo title, just some aimless rambling. [modified] Pin
S Douglas27-Jan-07 23:32
professionalS Douglas27-Jan-07 23:32 
GeneralRe: No title, just some aimless rambling. Pin
Paul Conrad23-Apr-07 5:57
professionalPaul Conrad23-Apr-07 5:57 
GeneralRe: No title, just some aimless rambling. Pin
S Douglas24-Apr-07 1:23
professionalS Douglas24-Apr-07 1:23 
GeneralRe: No title, just some aimless rambling. Pin
Paul Conrad24-Apr-07 3:08
professionalPaul Conrad24-Apr-07 3:08 
GeneralNewer Truck Pin
S Douglas25-Dec-06 21:25
professionalS Douglas25-Dec-06 21:25 
GeneralWhat's happening Pin
S Douglas20-Dec-06 0:03
professionalS Douglas20-Dec-06 0:03 
GeneralFirst Post Pin
S Douglas3-Dec-06 13:35
professionalS Douglas3-Dec-06 13:35 
GeneralVS2005 & C++ Pin
S Douglas26-Nov-06 15:05
professionalS Douglas26-Nov-06 15:05 
GeneralRemembrance Pin
S Douglas13-Nov-06 1:01
professionalS Douglas13-Nov-06 1:01 
GeneralMessage Board Icons [modified] Pin
S Douglas1-Sep-06 6:12
professionalS Douglas1-Sep-06 6:12 
GeneralSubject lines who needs subject lines? :) Pin
S Douglas6-Apr-06 7:52
professionalS Douglas6-Apr-06 7:52 
GeneralMountain Bike Pin
S Douglas27-Mar-06 14:21
professionalS Douglas27-Mar-06 14:21 
GeneralPainfull duties Pin
S Douglas11-Mar-06 6:04
professionalS Douglas11-Mar-06 6:04 
GeneralSpring Time Pin
S Douglas11-Mar-06 5:18
professionalS Douglas11-Mar-06 5:18 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.