Fråga : Plattformen som bygger samkvämet, knyter kontakt på

Att se som bygger en sjukvård, förband den sociala massmediaplattformen.  Var folket kan diskutera ämnen inom olikt vård-, betvingar.  Särdrag gillar:  avskildhet kontrollerar postar, användaren som den är kompetent att gruppera artiklar och, postar, följer på andra, inte looknågot liknande ett fora, är kompetent att samla ingångsdata sätter in från användaren, show/klassar video ---  Därifrån vi önskar att bygga från plattformen för it.

What rekommenderas att bygga på detta system:  Drupal Joomla, Liferay, WordPress, andra? övervägande för

Main:  Vi önskar inte att fråga för utvecklingspengar, så vi endera får DEN partnern eller bygger den oss själva.  Förmiddag som I söker för närvarande för DEN, blir partner med.  Och i mellantiden, jag önskade att få återkoppling på feasibilityen för att bygga detta samkväm knyter kontakt oss själva (vi har ingen kodifiera expertis), med motorerna, nämnt över vi inte finner i fall att som rätten DET partner.

The ut ur boxaslösningarna: Ning KickApps, SocialGo + mer.  Men den tänkande I-förmiddagen vi ska är ganska inskränkt på hur man skräddarsy den, när vi är övre och running.

So, I-förmiddagen som mycket är intresserad i dina kommentarer, och förslag.  Delen av laget är i USEN och delen i Sweden.

Thanks,
JP " klar "

Svar : Plattformen som bygger samkvämet, knyter kontakt på

Hi där,

Detta bör göra det. Jag har skapat en samling som kallas arrOUs som listar endast tvåna OUs som, du har att cirkla, och jag har ändrat delen som specificerar OUEN 03-DISABLED-USERS för att matcha ditt strukturerar.

Förmiddag som I antar att MWZ-FM.COM är det samma strömområdet att din dator är på?  Om inte, och du är på ett olikt område, då uncommenten som detta fodrar:

'strDNSDomain = ”DC=MWZ-FM, DC=COM”,

vid att ta bort apostrofen på bekläda och därefter den ska skriva peka specifikt till det område.

Hälsningar,

Råna.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

Dunkel objConnection, objCommand, objRootDSE  
Dunkel strDNSDomain, strFilter, strQuery, objRecordSet, strDN 
Dunkel strOUpath, objNewOU, objUser
Dunkel intFlag  
Const ADS_UF_ACCOUNTDISABLE = &H02  
'Använd ADO för att söka området för alla användare.  
Fastställd objConnection = CreateObject (”ADODB.Connection”)  
Fastställd objCommand = CreateObject (”ADODB.Command”)  
objConnection.Provider = ”ADsDSOOBject”,  
objConnection.Open ”aktivarkivfamiljeförsörjare”,  
Uppsättning objCommand.ActiveConnection = objConnection  
'Bestäm DNS-området från RootDSEen anmärker.  
Fastställd objRootDSE = GetObject (”LDAP: //RootDSE”)  
strDNSDomain = objRootDSE.Get (”DefaultNamingContext”)
'strDNSDomain = ”DC=MWZ-FM, DC=COM”,
strFilter = ”(& (objectCategory=person) (objectClass=user))”,  

'Varje stränger måste ha ett skugga komma
arrOUs = samling (_,
	”OU=11-USERS,”, _,
	”OU=12--EXCHANGEANVÄNDARE MIGRIERT,” _,
	)

För varje strOU i arrOUs
	strQuery = ”; ” & strFilter & ”; distinguishedName userAccountControl; subtree”,  
	objCommand.CommandText = strQuery  
	objCommand.Properties (”sida storleksanpassar”), = 100  
	objCommand.Properties (”frånslagningstid”) = 30  
	objCommand.Properties (”cachen resulterar”), = falskt  
	'Enumerate alla användare. Kontrollera om kontohandikappade personer.  
	Fastställd objRecordSet = objCommand.Execute
	Gör till objRecordSet.EOF  
		strDN = objRecordSet.Fields (”distinguishedName”)  
		intFlag = objRecordSet.Fields (”userAccountControl”)  
		Om (intFlag och ADS_UF_ACCOUNTDISABLE) <> 0 därefter 
			Fastställd objUser = GetObject (”LDAP: /” & strDN)
			Fastställd objNewOU = GetObject (”LDAP: //OU=03-DISABLED-USERS, OU=93-DISABLED-OBJECTS,” & strDNSDomain)
			objNewOU.MoveHere objUser.ADsPath som vbNullString
		Avsluta om  
		objRecordSet.MoveNext  
	Kretsa  
Därefter
'Rent övre
objConnection.Close  
”Gjorda” Wscript.Echo,
Wscript.quit
Andra lösningar  
 
programming4us programming4us