محاضرة WSH العملية: المحاضرة الأولى: الحصول على تكوين سمات الشبكة للجهاز
الكاتب：Eve Cole
وقت التحديث：2009-05-30 19:53:51
للحصول على النص الأصلي، يرجى الذهاب إلى WSH (WHITE’s Little Home) (http://wwwasp.yeah.net)
في الواقع، إنها مجرد قراءة السجل، ولكن إذا كان بإمكانك الحصول على تكوين IP والمعلومات الأخرى الخاصة بالجهاز، فسيكون من السهل تكوين IIS في المستقبل. يقرأ البرنامج النصي التالي كافة عناوين IP المتوفرة للجهاز وقناع الشبكة الفرعية، ولكنه يحذف البوابة والمعلومات الأخرى:
شفرة:
-------------------------------------------------- ----------------------------------
الخيار الصريح Dim WSHShell Dim sNic، sMan Dim Gateway Dim IPAddress Dim SubnetMask Dim i Dim
تعيين sTcpipRegKey Dim bIsDHCP WSHShell = CreateObject("WScript.Shell") sNic = WSHShell.RegRead
("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards1ServiceName") إذا كان sTcpipRegKey
<> "Microsoft" وErr.Number = 0 ثم sTcpipRegKey = "HKLMSYSTEMCurrentControlSetServices" & sNic
& "ParametersTcpip" bIsDHCP = WSHShell.RegRead(sTcpipRegKey & "EnableDHCP") إذا كان bIsDHCP إذن
البوابة = WSHShell.RegRead(sTcpipRegKey & "DhcpDefaultGateway") IPAddress = WSHShell.RegRead
(sTcpipRegKey & "DhcpIPAddress") SubnetMask = WSHShell.RegRead(sTcpipRegKey & "DhcpSubnetMask")
MsgBox ("البوابة الافتراضية: " & البوابة(0) & Chr(10) & Chr(13) & "IPAddress: " & IPAddress & Chr(10) &
Chr(13) & "SubnetMask:" & SubnetMask) بوابة أخرى = WSHShell.RegRead(sTcpipRegKey)
& "DefaultGateway") IPAddress = WSHShell.RegRead(sTcpipRegKey & "IPAddress") SubnetMask =
WSHShell.RegRead(sTcpipRegKey & "SubnetMask") لـ i=0 إلى Ubound(IPAddress)-1 MsgBox
("البوابة الافتراضية: " & Gateway(0) & Chr(10) & Chr(13) & "IPAddress: " & IPAddress(i) & Chr(10) & Chr(13)
& "SubnetMask:" & SubnetMask(i)) Next End If End If
-------------------------------------------------- ----------------------------------
ملاحظة: يتم حفظ تكوين شبكة الجهاز في السجل، ضمن عنصر بطاقة الشبكة، لذا يجب عليك أولاً معرفة اسم بطاقة الشبكة. ثم احصل على بيانات التسجيل، وعنوان IP وقناع الشبكة الفرعية كلها في شكل مصفوفة (في الواقع، يحفظ السجل البيانات الثنائية، ويساعدنا VBSCRIPT في تحويلها). تعد قراءة السجل في WSH أمرًا بسيطًا للغاية، يرجى مراجعة الإجراء أعلاه للحصول على التفاصيل.
