AccueilCodesTutorielsForumsEmploiLivresConnexion

  • ASP / ASP.NET CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 10 12 01:16:15
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RÉCUPERER LE NOM DE RESEAU D'UNE MACHINE


Information sur la source

Catégorie :Réseau & Internet Classé sous : dns, réseau, network, ping, nom Niveau : Débutant Date de création : 29/11/2001 Vu : 11 187
Auteur : Pioupiou Site perso
Ecrire un message privé
Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

Description

Rien de bien compliquer.
il suffit de recuperer le resultat d'un ping dans un fichier.

 

Source

  • Const ForReading = 1, ForWriting = 2, ForAppending = 3
  • Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  • Dim Shl, fso, FichierTxt
  • Set Shl = server.CreateObject("wscript.shell")
  • Shl.run "%comspec% /c nbtstat -a " & Request.ServerVariables("REMOTE_ADDR") & "> e:\inetpub\wwwroot\musique\testnbtstatforum.txt", 0, True
  • Set Shl = Nothing
  • Set fso = CreateObject("scripting.filesystemobject")
  • Set FichierTxt = fso.opentextfile("e:\inetpub\wwwroot\musique\testnbtstatforum.txt")
  • For i = 1 To 13'ca depend du serveur.13 correspondt a la ligne qui contient le nom de la machine dans le ping(essayer par vous meme)
  • FichierTxt.readline
  • Next
  • i = 1
  • ligne = FichierTxt.readline
  • Do While Right(Left(ligne, i), 1) = " "
  • i = i + 1
  • Loop
  • t = 1
  • Do While Left(Right(ligne, t), 1) <> "<"
  • t = t + 1
  • Loop
  • t = t + 1
  • Do While Left(Right(ligne, t), 1) = " "
  • t = t + 1
  • Loop
  • data=Left(Right(ligne, Len(ligne) - i + 1), Len(Right(ligne, Len(ligne) - i + 1)) - t + 1) 
Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim Shl, fso, FichierTxt
        Set Shl = server.CreateObject("wscript.shell")
        Shl.run "%comspec% /c nbtstat -a " & Request.ServerVariables("REMOTE_ADDR") & "> e:\inetpub\wwwroot\musique\testnbtstatforum.txt", 0, True
        Set Shl = Nothing
        Set fso = CreateObject("scripting.filesystemobject")
        Set FichierTxt = fso.opentextfile("e:\inetpub\wwwroot\musique\testnbtstatforum.txt")
        
        For i = 1 To 13'ca depend du serveur.13 correspondt a la ligne qui contient le nom de la machine dans le ping(essayer par vous meme)
        FichierTxt.readline
        Next
        i = 1
        
ligne = FichierTxt.readline
Do While Right(Left(ligne, i), 1) = " "
i = i + 1
Loop

t = 1
Do While Left(Right(ligne, t), 1) <> "<"
t = t + 1
Loop

t = t + 1
Do While Left(Right(ligne, t), 1) = " "
t = t + 1
Loop
data=Left(Right(ligne, Len(ligne) - i + 1), Len(Right(ligne, Len(ligne) - i + 1)) - t + 1)

Conclusion

si jamais vous ne comprenez pas ou que je ne suispas claire contactez moi

 

Commentaires et avis

signaler à un administrateur
Commentaire de ikram311 le 22/11/2005 16:53:05

superbe

signaler à un administrateur
Commentaire de mr_kadjaj le 13/09/2006 11:17:34

Bonjour
je vous félicite pour ce beau projet,ça ressemble à un projet que j'ai actuellement,c'est d'avoir des informations d'une machine par réseau (soft et hard)et j'ai besoin de votre aide.
Merci

signaler à un administrateur
Commentaire de szwr le 27/06/2007 11:48:32

Ha l'utilisation du shell, la dernière chose à laquelle on pense et pourtant si utile ;)
un bon script donc avec un bémol sur la gestion de la chaîne issue du fichier.
J'ai donc fais ces petites fonctions qui devrait faciliter l'utilisation de ton script (les variables eti1 et eti2 peuvent peut-être bouger)
'à intégrer en remplacement de la ligne 8 et suivantes
8.  'Pour l'adresse physique
9.  dataMac = MAC("e:\inetpub\wwwroot\musique\testnbtstatforum.txt")
10. 'Pour le nom de la machine
11. datamachine = MACHINE("e:\inetpub\wwwroot\musique\testnbtstatforum.txt")

Function MAC(sFile)
    Dim eti1, eti2
    eti1 = "MAC Address = "
    eti2 = vbCrLf
    MAC = Extract(sFile, eti1, eti2)
End Function

Function MACHINE(sFile)
    Dim eti1, eti2
    T = ReadAllFile(sFile)
    eti1 = "---------------------------------------------" & Chr(13) & vbCrLf & "    "
    eti2 = "    <"
    MACHINE = Extract(sFile, eti1, eti2)
End Function

Function Extract(sFile, sEti1, sEti2)
    Dim T, deb, fin
    T = ReadAllFile(sFile)
    deb = InStr(1, T, sEti1) + Len(sEti1)
    fin = InStr(deb, T, sEti2)
    Extract = Mid(T, deb, fin - (deb + 1))
End Function

Function ReadAllFile(strFile)
    Dim fso, stm, f
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(strFile)
    Set stm = f.OpenAsTextStream()
    ReadAllFile = stm.ReadAll
    stm.Close
    Set stm = Nothing
    Set fso = Nothing
End Function

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Lire un lecteur réseau [ par Chris ] Salut!Je cherche à lire le contenu d'un lecteur réseau ouvert sur mon serveur.Je fais la même manip que si je voulais afficher le contenu d'un disque Probleme de DNS avec IIs [ par Manu ] bonjour, j'ai un probleme d'administration sous win 2000 server ! (j'heberge plusieurs site avec des nom d'entes d'hotes) c'est un reseau intranet pou BD locale et réseau [ par guilloo ] Salut, j'ai une appli sous VB6 qui me met à jour des Bases de Données Access, mais maintenant je doit faire la même appli en réseau via Internet, je v access 97 en réseau [ par sky1860 ] J'aimerais savoir quelle est la meilleure solution pour mettre en réseau une base access97. Est ce qu'il faut mieux mettre les tables en réseau sur un access 97 en réseau [ par sky1860 ] J'aimerais savoir quelle est la meilleure solution pour mettre en réseau une base access97. Est ce qu'il faut mieux mettre les tables en réseau sur un MapPath et chemin réseau [ par niluje ] Est-il possible d'utiliser la fonction MapPath avec comme paramètre un chemin réseau ?sinon (car fort probable) y'a-t-il un contournement possible pou ASP et accès à un partage réseau [ par guidal ] Je souhaite, par une page ASP, accéder à un partage réseau et afficher (par exemple) les répertoires et/ou les fichiers.J'ai essayé d'y accéder par un Erreur réseau ou erreur disque [ par edupin ] J'ai déjà posté la question mais je n'arrive pas à trouver la soluce donc je retente ma chance, ça devient GRAVE!! :-(J'ai développé un forum en ASP q Suppression fichiers réseau [ par pandaman ] Bonjour,je développe actuellement un produit asp.net,mais je suis bloqué par un probleme de sécurité, en effet une des pages sert à supprimer des fich routage IP [ par flolepro ] Routage IPSoit sur une machine d?adresse IP 192.134.119.100. Quelle est l?adresse du réseau et l?adresse de la machine ? Soit la table de routage de c


Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,250 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.