Kata pengantar, penulis ingin mengembangkan sistem MIS beberapa waktu lalu. Karena MIS adalah perangkat lunak non-bebas, modul registrasi yang sesuai juga harus dikembangkan ketika menyelesaikan pengembangan sistem. jadi saat registrasi Untuk pemilihan kode fitur, saya memilih alamat MAC kartu jaringan yang unik. Tanpa basa-basi lagi, mari langsung ke intinya. Karena sistem ini adalah perangkat lunak komersial, kode berikut hanya berisi ide kode dan kode implementasi sederhana. Anda dapat dengan bebas bermain-main dengan kode tersebut, atau Anda dapat mendiskusikannya dengan saya.
'----------------------Ekstrak informasi tentang semua kartu jaringan-----------------------------------'
Fungsi Publik GetMacInfo()
Pada Kesalahan Resume Berikutnya
Redupkan fso, FileStr, AspSleepThread, CmdStr, SysDir, wshshell, CmdRe, MacFileContentFile, MacFileContent
Const MacFile = "TmpYesoulSoft001.LLP"
Setel fso = Server.CreateObject("Scripting.FileSystemObject")
SysDir = Berpisah(GlobalMod.GetSysDir, ","")(1)
Jika InStr(LCase(SysDir), "system32") = 0 Maka
GetMacInfo = "Sistem ini hanya dapat berjalan pada sistem 32-bit seperti Nt, Windows 2000, Windows.Net, Windows Xp, Windows 2003, dll. Sistem di bawah 32-bit tidak didukung!"
'www.downcodes.com
Fungsi Keluar
Kalau tidak
CmdStr = SysDir + "Cmd.exe /C " + SysDir + "Ipconfig.exe /Semua > " + Server.MapPath(MacFile)
Akhiri Jika
CmdRe = Kulit(CmdStr, vbHide)
Jika CmdRe <> 0 Lalu
Setel MacFileContentFile = fso.OpenTextFile(Server.MapPath(MacFile), 1, False, TristateUseDefault)
'GetMacInfo = MacFileContentFile.ReadAll()
'Respon. Siram
FileStr = MacFileContentFile.ReadAll()
MacFileContentFile.Tutup
Setel MacFileContentFile = Tidak Ada
Setel AspSleepThread = Server.CreateObject("YesoulSoft.SleepThread")
'Tentukan waktu thread hang, ini dia milidetik
AspSleepThread.Waktu Tidur = 500
AspSleepThread.BeginSleepThread
GetMacInfo = ExecuteOne(FileStr, "Alamat Fisik. . . . . . . . . : (.*)")
Setel AspSleepThread = Tidak Ada
Kalau tidak
GetMacInfo = "Sistem saat ini tidak dapat memperoleh informasi jaringan Anda. Silakan periksa hubungan pewarisan izin sebelum menjalankan sistem ini!"
Fungsi Keluar
Akhiri Jika
DelFile MacFile
Tetapkan fso = Tidak ada
Fungsi Akhir
'------------------Cocokkan hasilnya satu kali dalam string------------------'
Fungsi Publik ExecuteOne(inpStr, PatStr)
Redupkan oRe, oMatch, oMatches
Tetapkan oRe = RegExp Baru
oRe.Pattern = PatStr
masukStr = LCase(masukStr)
oRe.IgnoreCase = Benar
Setel oMatches = oRe.Execute(inpStr)
Setel oMatch = oMatches(0)
ExecuteOne = oMatch.SubMatches(0)
Fungsi Akhir
hanya dapat memperoleh alamat MAC dari kartu jaringan pertama. Sedangkan untuk DNS, gateway, dan informasi lainnya, Anda dapat menarik kesimpulan dari satu contoh.