[EXCEL/VBA] Masquer fenêtre DOS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [EXCEL/VBA] Masquer fenêtre DOS

SaW3r

Bonjour, je cherche désespérément comment masquer une fenêtre DOS pendant l'exécution de ma macro..

Code :

Function Get_DNS_Name(ligne)
'On créer un Shell qui va lancer la commande nslookup :
Set objShell = CreateObject("WScript.Shell" )
Set objExec = objShell.Exec("nslookup " & Cells(ligne, 2).Value)
'On garde seulement la partie qui nous intéresse, c'est à dire le nom d'hôte distant :
Cells(ligne, 3).Value = Split(Mid(objExec.StdOut.ReadAll, 65), ".xxx" )
'On nettoie tout :
Set objExec = Nothing
Set objShell = Nothing
End Function

La fenêtre s'ouvre et se referme immédiatement en exécutant bien la fonction mais j'ai environ 500 lignes et donc c'est assez désagréable comme effet de clignotement..

Merci de votre aide !

Publicité

SuppotDeSaTante

Aka dje69r

Directement comme ca, pas possible.
Avec un Run oui, avec Exec non.

De mémoire, mais je ne garantis pas :
Tu vas dans le menu Démarrer, Accessoires
Click droit sur "Invite de commandes"
Dans l'onglet Raccourci, tu dois pouvoir dire de lancer les fenetres DOS en mode caché/réduit etc.

---------------
Soyez malin, louez entre voisins !

SaW3r

Merci de ta réponse ! La solution que tu me propose fonctionne effectivement mais je devrais réaliser la manip sur chaque pc et ce script va beaucoup se balader..

Saurais tu comment transformer mon code mais avec un Run et donc avec la possibilité de cacher ma fenêtre ?

SuppotDeSaTante

Aka dje69r

Pourquoi passes tu par des trucs vieux comme le monde ?
Lancer une commande nslookup pour recuperer le nom de la machine...

J'ai regardé ton fichier Excel, de diou comme tu te fais chier la vie !
Regarde du coté de WMI !

Regarde sur ce post que j'ai créé, comme je recupere :
IP
Carte reseau
Driver et version
http://forum.hardware.fr/hfr/Progr [...] m#t2085505

Donc par exemple, si tu veux le nom de la machine distante, à la ligne 18 de mon code tu rajoutes :

Code :

Cells(ligne, 3).Value = IPConfig.DNSHostName(Min)

Les DNS en colonne 4 et 5 :

Code :

SrvDNS = IPConfig.DNSServerSearchOrder
Min = LBound(SrvDNS )
Max = UBound(SrvDNS )
CpteDNS = Max - Min + 1
If CpteDNS = 1 Then
Cells(Ligne, 4) = SrvDNS (Min)
Else
Cells(Ligne, 4) = SrvDNS (Min)
Cells(Ligne, 5) = SrvDNS (Min)
End If

Que sais-je encore... Le masque de sous reseau en colonne 6, la passerelle en colonne7, la macadresse en colonne8, savoir si le DHCP est activé ou pas en colonne9

Code :

Cells(Ligne, 6) = IPConfig.IPSubnet(Min)
Cells(Ligne, 7) = IPConfig.DefaultIPGateway(Min)
Cells(Ligne, 8) = IPConfig.MACAddress(Min)
Cells(Ligne, 9) = IPConfig.DHCPEnabled

Etc.

Regarde mon code que j'ai donné sur l'autre topic et adapte ce que je viens de te donner.

---------------
Soyez malin, louez entre voisins !

SuppotDeSaTante

Aka dje69r

Pourquoi sur chaque PC ??? De ce que j'ai vu de ton fichier Excel, tu devrais pouvoir le lancer de n'importe ou sur le reseau et recuperer les infos des ordis disants

---------------
Soyez malin, louez entre voisins !

SaW3r

D'accord merci je regarde tout ça et je te tien au courant !

Edit : La manip de réduire la fenêtre DOS en allant dans accessoire je voulais dire.. Je devrais faire cela sur chaque PC or le fichier va aller sur beaucoup de PC et oui il marche sur n'importe quel ordi du réseau ^^

Message édité par SaW3r le 28-06-2011 à 14:58:05

SuppotDeSaTante

Aka dje69r

Et comme je suis super sympa... :whistle:

Voila pour ton code :

Code :

Function Get_DNS_Name(ligne)
On Error Resume Next
 
StrComputer = Cells(ligne, 2).Value
UserName = "DOMAINE\Administrator"
Password = "MotDepasse"
 
'***** Récupération du nom de la machine
'Ordinateur distant
    Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator" )
    Set objWMIService = SWBemlocator.ConnectServer(StrComputer, "root\CIMV2", UserName, Password)
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE", , 48)
'Si ordinateur local, on doit utiliser une autre méthode n'incluant pas les users/mdp
    If Err.Number <> 0 Then
        Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & StrComputer).ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )
    End If
 
'On récupère en colonne3 le nom de la machine distante
    For Each IPConfig In IPConfigSet
        If IPConfig.IPAddress(Min) = StrComputer Then Cells(ligne, 3).Value = IPConfig.DNSHostName(Min)
    Next
 
End Function

Message édité par SuppotDeSaTante le 28-06-2011 à 15:03:43

---------------
Soyez malin, louez entre voisins !

SaW3r

Waaah merci ! Mais je ne comprends pas, dès que je lance ton code excel plante immédiatement.. :s

SuppotDeSaTante

Aka dje69r

Ah bah faut peut etre adapter hein...
Forcément, le domaine, l'administrateur du domaine, et le mot de passe de l'admin ne sont pas les memes... (ligne 5 et 6)

Ca plante où ?

---------------
Soyez malin, louez entre voisins !

SaW3r

Et bien je l'ai adapté juste comme ceci :

Code :

Sub Get_DNS_Name()
For ligne = 2 To 10
On Error Resume Next
StrComputer = Cells(ligne, 1).Value 'Les IPs sont ici enfaite
UserName = "addim.local\monlogin"
Password = "monpass"
'***** Récupération du nom de la machine
'Ordinateur distant
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator" )
Set objWMIService = SWBemlocator.ConnectServer(StrComputer, "root\CIMV2", UserName, Password)
Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE", , 48)
'Si ordinateur local, on doit utiliser une autre méthode n'incluant pas les users/mdp
If Err.Number <> 0 Then
Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & StrComputer).ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )
End If
For Each IPConfig In IPConfigSet
If IPConfig.IPAddress(Min) = StrComputer Then Cells(ligne, 3).Value = IPConfig.DNSHostName(Min)
Next
Next
End Sub

En pas à pas détaillé il plante pas mais il devient lent à ces 2 lignes :

Code :

Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE", , 48)

Code :

Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & StrComputer).ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )

Publicité

SuppotDeSaTante

Aka dje69r

Normal qu'il devienne lent, il se connecte a la machine pour recuperer toutes les propriétés et méthodes de la classe NetworkAdapterConfiguration...

D'ailleurs, un peu de lecture : http://msdn.microsoft.com/en-us/li [...] s.85).aspx

Message édité par SuppotDeSaTante le 28-06-2011 à 15:21:33

---------------
Soyez malin, louez entre voisins !

SaW3r

Oui mais je ne suis pas admin local ni du réseau.. C'est surement cela nan ?

SuppotDeSaTante

Aka dje69r

Ah bah je vois pas comment tu vas pouvoir recuperer les DNS de postes distants par exemple...

Meme si tu n'es pas admin, si en Cells(ligne, 1) c'est ton ip de ta machine locale, ca devrait te retourner le nom de ta machine à toi.

Executer un script sur le reseau sans avoir de droits admin... Mouai...

---------------
Soyez malin, louez entre voisins !

SaW3r

Bon enfaite ça fonctionne en local seulement mais des que je m'attaque à un poste distant c'est mort.. Via le nslookup c'est possible en tout cas.. C'est bien dommage ton script est bien plus rapide !

Je vais essayer de faire avec un Run..

EDIT :

J'arrive bien à lancer avec un Run en caché mais.. je n'arrive pas à récupérer le résultat.. Sauf dans un fichier texte..

Code :

Set oshell = CreateObject("WScript.Shell" )
oshell.Run "ping -n 1 -w 20 172.26.2.xxx > toto.txt", 0, True

Message édité par SaW3r le 28-06-2011 à 15:48:53

SuppotDeSaTante

Aka dje69r

Code :

Sub toto()
Set oshell = CreateObject("WScript.Shell" )
oshell.Run "cmd /c ping -n 1 -w 20 172.26.2.xxx>toto.txt", 0, True
Set objet_fso = CreateObject("Scripting.FileSystemObject" )
Set objTextFile = objet_fso.OpenTextFile("toto.txt", 1)
Do While objTextFile.AtEndOfStream <> True
strText = strText & objTextFile.ReadLine
Loop
End Sub

Pourquoi tu ping ?
Utilises plutot nbtstat - a 172.26.2.xxx comme ca tu as le domaine, le nom de la machine, l'ip et la mac adress d'un seul coup...

Message édité par SuppotDeSaTante le 28-06-2011 à 16:09:39

---------------
Soyez malin, louez entre voisins !

SaW3r

Lorsque je tente d'utiliser cette commande il me dit :

"Impossible d'accéder au pilote NetBT--NetBT peut ne pas être chargé"

Un programme à démarrer je suppose ?

J'ai avancé sur le Run.. Voila :

Code :

For lngRow = 2 To 10
Dim err As Long
Set oShell = CreateObject("WScript.Shell" )
err = oShell.Run("ping -n 1 -w 20 " & Cells(lngRow, 1).Value, 0, True)
If err = 1 Then 'répond pas
For i = 1 To 2
Cells(lngRow, i).Font.Color = RGB(255, 0, 0) 'rouge
Next
Else 'répond
For i = 1 To 2
Cells(lngRow, i).Font.Color = RGB(0, 255, 0) 'vert
Next
End If
Next

On ne voit plus rien..

Message cité 1 fois
Message édité par SaW3r le 28-06-2011 à 16:23:20

SuppotDeSaTante

Aka dje69r

SaW3r a écrit :

Lorsque je tente d'utiliser cette commande il me dit :

"Impossible d'accéder au pilote NetBT--NetBT peut ne pas être chargé"

Un programme à démarrer je suppose ?

Problème de droit

---------------
Soyez malin, louez entre voisins !

SaW3r

Effectivement maintenant que j'ai les droits sur la machine je peux réaliser cette commande mais elle ne répond que très rarement.. Voire jamais.. Donc inutile malheureusement..

Mais tant pis, mon problème est résolus, la fenêtre s'affiche désormais en arrière plan comme je le voulais. Je laisse le code ça pourrait en aider certains on sait jamais :

Code :

Function Get_DNS_Name(ligne, IP)
'On créer un script qui va inscrire le résultat de la commande nslookup dans un fichier texte :
Set oShell = CreateObject("WScript.Shell" )
oShell.Run "cmd /c nslookup " & IP & ">dns.txt", 0, True 'Plus d'infos ici : http://msdn.microsoft.com/en-us/li [...] s.85).aspx
Set oShell = Nothing 'On nettoie
'On ouvre et lit notre fichier texte créé précedemment :
Set FSO = CreateObject("Scripting.FileSystemObject" )
Set txtStr = FSO.OpenTextFile("dns.txt", 1)
'On ignore les 2 premières lignes :
txtStr.SkipLine
txtStr.SkipLine
'On garde simplement le nom de l'hôte :
dns = Split((Mid(txtStr.Read(100), 12)), ".xxxx" ) 'remplacer xxxx par votre domaine
'On l'écrit :
Cells(ligne, 3) = dns
'On ferme le fichier, on nettoie tout et on efface le fichier :
txtStr.Close
Set FSO = Nothing
Set txtStr = Nothing
Kill "dns.txt"
End Function

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[EXCEL/VBA] Masquer fenêtre DOS

Sujets relatifs
Envoi mail automatique via Excel	(Résolu) Version driver carte reseau [VBS/VBA/VB]
Excel et SQL requete avec deux condition?	[Résolu] Affectation de variable/Macro copier coller Excel
probleme excel vba somme	Liaison Excel et Powerpoint VBA
PING et NSLOOKUP dans excel ! (avancement 80%)	exporter données vers feuilles excel
VBA, creer et ecrire un fichier text (.txt) depuis un macro
Plus de sujets relatifs à : [EXCEL/VBA] Masquer fenêtre DOS

Page générée en 0.131 secondes