Yazılım Geliştirme Uzmanı & E-Ticaret Danışmanı
Asp , Excel , VBA , E-Ticaret , Mobil , Desktop, Web Uygulamaları
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com
PSC - NSLookup For Asp

PSC - NSLookup For Asp 8.4.2011 09:34:34

Türkticaret.NEt te iken yazmış olduğum Planet Source Code`da yayınlanan NSLOOKUP fonksiyonunu Asp içerisinden kullanmaya yarayan Fonksiyonum.
`##################################################
`NsLookup Fonksiyonumun Başlangıcı

Private Function NSlookup(strHost)
	Set oShell = Server.CreateObject("Wscript.Shell") `Shell Objecti yaratalım

	oShell.Run "%ComSpec% /c nslookup " & strHost & "> C:\" & strHost & ".txt", 0, True

	Set oFS = Server.CreateObject("Scripting.FileSystemObject")  `geçici txt belgesini açarak verileri kontrol edelim
	Set oTF = oFS.OpenTextFile("C:\" & strHost & ".txt")   `Okunan txt belgesini okuyalılm
	tempData = Null   `Verileri Null olarak ayarlıyalım
	Data = Null   `Veriler Null olarak ayarlansın
	i = 0 `Döngü için i=0 ile başlatıcaz
	Do While Not oTF.AtEndOfStream `Dosyanın Sonuna gelene Kadar devam edecek
		Data = Trim(oTF.Readline) `Sağından solundan boşluklarını alalım
			If i > 2 Then `2 kerede 2 ip numarası bize yeterli olacaktır.
				databoyut = len(data)
				data = mid(data,9,databoyut)
				IF data then
				tempData = tempData & Data & "
" `veriyi çıktı verecek şekilde ayarlıyalım. End IF End If `Koşulsonu i = (i + 1) `saglamaz ise i yi arttır `Dön `Kapat oFS.DeleteFile "C:\" & strHost & ".txt" `Sil Loop oTF.Close Set oFS = Nothing `Yok et NSlookup = tempData `Sonuc tempdata End Function `Fonksiyon biter . `################################################################

Private Function whoisResult(whoisURL, strMethod, strCheckString)  
     Dim objXMLHTTP                 
     Dim strWhoisResultString       
     Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP" )  
        objXMLHTTP.Open strMethod, whoisURL, False  
        objXMLHTTP.SEnd  
        strWhoisResultString = objXMLHTTP.ResponseText  
          
        If InStr(1,strWhoisResultString,strCheckString,vbTextCompare) Then  
             whoisResult = "Boşta"   
        ElseIf InStr(1, strWhoisResultString, "Error" , vbTextCompare) Then  
             whoisResult = "Hata!"   
        Else  
              whoisResult = "Dolu"   
        End If
             Set objXMLHTTP = Nothing
End Function  




Tags :