Cuestión : IIS 7 - volver a dirigir el HTTP a HTTPS

Hola, el

I quiere volver a dirigir a cada uno que mecanografíe equivocadamente el HTTP en vez de HTTPS, al sitio de HTTPS, cuando visitan nuestro webmail.

On nuestro sitio del defecto, yo ha hecho una reorientación en iisstart.htm, a nuestro webmail.domain.com/owa. He intentado ya con el HTTP vuelvo a dirigir, pero no trabaja o quizá su yo que él perjudique:). ¿el

Could cualquier persona me ayuda con la fabricación que de este HTTP vuelve a dirigir a HTTPS? class= del

Respuesta : IIS 7 - volver a dirigir el HTTP a HTTPS

Hola allí,

Esto debe hacer eso. He creado un arsenal llamado los arrOUs que enumera solamente los dos OUs que usted tiene círculo, y he modificado la pieza que especifica a OU 03-DISABLED-USERS para emparejar su estructura.

¿Estoy asumiendo que MWZ-FM.COM es el mismo dominio actual que su computadora está prendido?  Si no, y usted está en un diverso dominio, entonces uncomment esta línea:

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

quitando el apóstrofe en el frente, y entonces la escritura señalará específicamente a ese dominio.

Respetos,

Robo.
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:

objConnection dévil, objCommand, objRootDSE  
strDNSDomain dévil, strFilter, strQuery, objRecordSet, strDN 
strOUpath dévil, objNewOU, objUser
intFlag dévil  
Const ADS_UF_ACCOUNTDISABLE = &H02  
'Utilizar la DIFICULTAD para buscar el dominio para todos los usuarios.  
Fijar el objConnection = CreateObject (“ADODB.Connection”)  
Fijar el objCommand = CreateObject (“ADODB.Command”)  
objConnection.Provider = “ADsDSOOBject”  
objConnection.Open “abastecedor activo del directorio”  
Fijar objCommand.ActiveConnection = objConnection  
'Determinar el dominio del DNS del objeto de RootDSE.  
Fijar el objRootDSE = GetObject (“LDAP: //RootDSE”)  
strDNSDomain = objRootDSE.Get (“DefaultNamingContext”)
'strDNSDomain = “DC=MWZ-FM, DC=COM”
strFilter = “(y (objectCategory=person) (objectClass=user))”  

'Cada secuencia debe tener una coma que se arrastra
arrOUs = arsenal (_
	“OU=11-USERS,”, _
	“USUARIO MIGRIERT DE OU=12-EXCHANGE,” _
	)

Para cada strOU en arrOUs
	strQuery = “; ” y strFilter y “; distinguishedName, userAccountControl; sub-estructura”  
	objCommand.CommandText = strQuery  
	objCommand.Properties (“tamaño de página”) = 100  
	objCommand.Properties (“descanso”) = 30  
	objCommand.Properties (el “escondrijo resulta”) = falso  
	'Enumerar a todos los usuarios. Comprobar si la cuenta inhabilitó.  
	Fijar el objRecordSet = objCommand.Execute
	Hacer hasta objRecordSet.EOF  
		strDN = objRecordSet.Fields (“distinguishedName”)  
		intFlag = objRecordSet.Fields (“userAccountControl”)  
		Si (intFlag y ADS_UF_ACCOUNTDISABLE) <> 0 entonces 
			Fijar el objUser = GetObject (“LDAP: /” y strDN)
			Fijar el objNewOU = GetObject (“LDAP: //OU=03-DISABLED-USERS, OU=93-DISABLED-OBJECTS,” y strDNSDomain)
			objNewOU.MoveHere objUser.ADsPath, vbNullString
		Terminar si  
		objRecordSet.MoveNext  
	Lazo  
Después
'Limpiar
objConnection.Close  
Wscript.Echo “hechos”
Wscript.quit
Otras soluciones  
 
programming4us programming4us