Вопрос : IIS 7 - перенаправьте HTTP к HTTPS

Hi,

I хочет перенаправить каждое которое ошибочный печатает HTTP на машинке вместо HTTPS, к месту HTTPS, когда они посещает наше webmail.

On наше место невыполнения обязательства, я делало перенаправлять в iisstart.htm, к нашему webmail.domain.com/owa. Я имею уже судимо с HTTP перенаправить, но он не работает или возможно сво я который оно вредит:).

Could любое помогает мне с делать этот HTTP перенаправить к HTTPS? class=

Ответ : IIS 7 - перенаправьте HTTP к HTTPS

Hi там,

Это должно сделать то. Я создавал вызванный блок arrOUs только перечисляет 2 OUs, котор вы имеете круг, и я дорабатывал часть которая определяет OU 03-DISABLED-USERS для того чтобы сопрягать вашу структуру.

Я если допустить, что MWZ-FM.COM буду таким же в настоящее время доменом что ваш компьютер дальше?  Если не, и вы находитесь на по-разному домене, после этого uncomment эта линия:, то

'strDNSDomain = «DC=MWZ-FM, DC=COM»

путем извлекать апостроф на фронте, и после этого сценарий укажет специфически к тому домену.

Отношения,

Rob.
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, objCommand, objRootDSE  
Тусклое strDNSDomain, strFilter, strQuery, objRecordSet, strDN 
Тусклое strOUpath, objNewOU, objUser
Тусклое intFlag  
Const ADS_UF_ACCOUNTDISABLE = &H02  
'Используйте СУЕТУ для того чтобы искать домен для всех потребителей.  
Установите objConnection = CreateObject («ADODB.Connection»)  
Установите objCommand = CreateObject («ADODB.Command»)  
objConnection.Provider = «ADsDSOOBject»  
objConnection.Open «активно провайдер директории»  
Установите objCommand.ActiveConnection = objConnection  
'Обусловьте домен DNS от предмета RootDSE.  
Установите objRootDSE = GetObject («LDAP: //RootDSE»)  
strDNSDomain = objRootDSE.Get («DefaultNamingContext»)
'strDNSDomain = «DC=MWZ-FM, DC=COM»
strFilter = «(& (objectCategory=person) (objectClass=user))»  

'Каждый шнур должен иметь отставая запятой
arrOUs = блок (_
	«OU=11-USERS,», _
	«ПОТРЕБИТЕЛЬ MIGRIERT OU=12-EXCHANGE,» _
	)

Для каждого strOU в arrOUs
	strQuery = «; » & strFilter & «; distinguishedName, userAccountControl; поддерево»  
	objCommand.CommandText = strQuery  
	objCommand.Properties («размер страницы») = 100  
	objCommand.Properties («перерыв») = 30  
	objCommand.Properties («тайник приводит к») = ложно  
	'Перечислите всех потребителей. Проверите если учет вывел из строя.  
	Установите objRecordSet = objCommand.Execute
	Не сделать до objRecordSet.EOF  
		strDN = objRecordSet.Fields («distinguishedName»)  
		intFlag = objRecordSet.Fields («userAccountControl»)  
		Если (intFlag и ADS_UF_ACCOUNTDISABLE) <> 0 после этого 
			Установите objUser = GetObject («LDAP: /» & strDN)
			Установите objNewOU = GetObject («LDAP: //OU=03-DISABLED-USERS, OU=93-DISABLED-OBJECTS,» & strDNSDomain)
			objNewOU.MoveHere objUser.ADsPath, vbNullString
		Закончитесь если  
		objRecordSet.MoveNext  
	Петля  
Затем
'Очистьте вверх
objConnection.Close  
«Сделанные» Wscript.Echo
Wscript.quit
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us