سوال در مورد DNS Load Balancing

[INDENT]سلام
دو جور بالانسینگ میخوام

1- دو تا کارت شبکه سرور یکیش 100 و یکیش 1000 هستش
میخوام 70 درصد بار بره سمت 1000

2- مشخص کنم یک سری آدرسها (کسانی که بیشتر با فایل سرور کار دارن) از اون 1000 برن و بقیه از اون 100

ممنون میشم راهنمایی بفرمایید

سرور هم فعلا 2003[/INDENT]


[INDENT]ضمنا يك نكته ديگه رو هم عرض كنم
الان هر دو كارت شبكه سرور رو وصل كردم و هر دو آدرس رو توي دي ان اس تعريف كردم
ولي الان درخواستها همه داره ميره سمت ادرس قديمي مگر اينكه كش كلاينتها ريست بشه
چطوري براي همه رو ريست كنم ؟ بعد از ريست خود سيستم كش اونها هم ريست ميشه ؟
يا مثلا يك بچ فايل بذارم توش بنويسم ipconfig /flushdns بندازم تو استارت اپ ؟ يا سمت خود سرور ميشه حركتي زد ؟[/INDENT]

و در نهايت اينكه اگر يكي از اين كارت شبكه ها از مدار خارج شد و يك كلاينتي اون ادرس رو رو سيستمش كش كرده بود باز هم تو ديوار نخوره و بره سراغ اون يكي

[B]فکر کنم شما باید از قاعده Round robin استفاده کنی.
یعنی باید در تنظیمات منوی DNS این گزینه رو پیدا کنی و تیکش رو بزنی.البته الان آدرس دقیقش رو یادم نیست.[/B]

RR پیش فرض سرور هست
ولی اولا باانسینگ نداره
دوما کلاینتی که یک آدرسی روش کش شده دیگه به همون آدرس میفرسته
اما اگر دوتا درخواست کاملا جدید برای اسم اون سرور بیان dns به صورت RR یکی رو به این این کارت شبکه و دومی رو به اون یکی میفرسته

اول اینکه نمیتونی تو DNS درصد بدی که مثلا فلان درصد از یک ip استفاده کنن و فلان درصد از یک ip دیگه .
دوم اگه failover میخوای میتونی از یک اسکریپت (vbs.) زمان بندی شده استفاده کنی که دو تا ip سرور رو چک کنه و در صورت در دسترس بودن یا نبودن آنها رکورد اونا رو در dns حذف و یا اضافه کنه :
[CODE][LEFT]
call check

Function Reachable(strComputer)
' On Error Resume Next

Dim wmiQuery, objWMIService, objPing, objStatus

wmiQuery = "Select * From Win32_PingStatus Where Address = '" & strComputer & "'"

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)

For Each objStatus in objPing
If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
Reachable = False 'if computer is unreacable, return false
Else
Reachable = True 'if computer is reachable, return true
End If
Next
End Function

Sub Run(ByVal sFile)
Dim shell

Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub

sub check
If not Reachable("192.168.20.100") Then
run "dnscmd 127.0.0.1 /recorddelete test.com Alipour A 192.168.20.100"
else
run "dnscmd 127.0.0.1 /recordadd test.com Alipour A 192.168.20.100"
End If
end sub

If not Reachable("192.168.20.200") Then
run "dnscmd 127.0.0.1 /recorddelete test.com Alipour A 192.168.20.200"
else
run "dnscmd 127.0.0.1 /recordadd test.com Alipour A 192.168.20.200"
End If
end sub
[/LEFT]


[/CODE]
سوم اینکه میتونی تنظیمات DNS Client Cache رو روی کلاینت ها دستکاری کنی :
[URL="http://support.microsoft.com/kb/318803/en-us"]How to Disable Client-Side DNS Caching in Windows XP and Windows Server 2003[/URL]