Fråga : IIS 7 - omdirigera HTTP till HTTPS

Hi

I önskar att omdirigera alla som skrivar felaktigt HTTP i stället för HTTPS, till HTTPS-platsen, när de besöker vår webmail.

On vår standardplats, mig har gjort en omdirigera i iisstart.htm, till vår webmail.domain.com/owa. Jag har redan försökt med HTTP omdirigerar, men den fungerar inte eller kanske dess mig som det förorättar:).

Could någon hjälper mig med danande denna HTTP att omdirigera till HTTPS? " klar "

Svar : IIS 7 - omdirigera HTTP till HTTPS

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