Discussion :

[crunchattak]

Bonjour à tous,

Voila mon petit probleme (qui va être résolu en 2s 3 dixièmes)

J'ai un fichier vbs pour connaître les infos du pc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
on error resume next 
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _ 
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE") 
If Err.Number<>0 Then 
wscript.echo " - non accessible -" 
Else 
for each IPConfig in IPConfigSet 
wscript.echo " Configuration réseau de l'ordinateur " & computer & vbcrlf & vbcrlf & _ 
" Carte " & vbtab & vbtab & " : " & IPConfig.Description & vbcrlf & _ 
" adresse MAC " & vbtab & " : " & IPConfig.MACAddress & vbcrlf & _ 
" adresse IP " & vbtab & " : " & IPConfig.IPAddress(0) & vbcrlf & _ 
" DNSHostName " & vbtab & " : " & IPConfig.DNSHostName 
Next 
End If

Mais le probleme c'est que je ne connais pas une suel ligne de commande en vbs ni en rien d'autre à part dos...


Et je voudrais simplement rajouter un titre a cette fenetre...

Et j'ai cherché partout et je ne trouve pas....

Merci part avance...

Crunch...

[SfJ5Rpw8]

tu peu utiliser un message box à la place de l'echo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
on error resume next 
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _ 
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE") 
If Err.Number<>0 Then 
wscript.echo " - non accessible -" 
Else 
for each IPConfig in IPConfigSet 
MsgBox " Configuration réseau de l'ordinateur " & computer & vbcrlf & vbcrlf & _ 
" Carte " & vbtab & vbtab & " : " & IPConfig.Description & vbcrlf & _ 
" adresse MAC " & vbtab & " : " & IPConfig.MACAddress & vbcrlf & _ 
" adresse IP " & vbtab & " : " & IPConfig.IPAddress(0) & vbcrlf & _ 
" DNSHostName " & vbtab & " : " & IPConfig.DNSHostName _ 
,," Mon TITRE ............."
Next 
End If

[crunchattak]

Merci beaucoup!!!