Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Hello,
Je ne suis pas s^r d'aoir ien compris ta question. si tu veux utiliser WSH dans VB, tu peux nous préciser de quelle fonction spécifique de l'objet tu as besoin? Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le script control qu'il te faudra utiliser: http://msdn.microsoft.com/downloads/list/webdev.asp?frame=t rue
Mais pour référencer WScript ou CScript, il me semble que tu peux dans le menu projet > références ajouter une référence à l'exe correspondant dans le %systemroot% peut- être sous sytem? (je n'ai pas vb sous la main pour tester.) Tu peux aussi créer tous les objets relatifs à WSH via CreateObject, en late-binding.
François Picalausa
-----Message d'origine----- Bonjour,
comment puis je intégrer du code whs et VB pour faire un fichier EXE???
Merci d'avance pour vos réponse! .
Hello,
Je ne suis pas s^r d'aoir ien compris ta question.
si tu veux utiliser WSH dans VB, tu peux nous préciser de
quelle fonction spécifique de l'objet tu as besoin?
Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le
script control qu'il te faudra utiliser:
http://msdn.microsoft.com/downloads/list/webdev.asp?frame=t
rue
Mais pour référencer WScript ou CScript, il me semble que
tu peux dans le menu projet > références ajouter une
référence à l'exe correspondant dans le %systemroot% peut-
être sous sytem? (je n'ai pas vb sous la main pour tester.)
Tu peux aussi créer tous les objets relatifs à WSH via
CreateObject, en late-binding.
François Picalausa
-----Message d'origine-----
Bonjour,
comment puis je intégrer du code whs et VB pour faire un
fichier EXE???
Je ne suis pas s^r d'aoir ien compris ta question. si tu veux utiliser WSH dans VB, tu peux nous préciser de quelle fonction spécifique de l'objet tu as besoin? Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le script control qu'il te faudra utiliser: http://msdn.microsoft.com/downloads/list/webdev.asp?frame=t rue
Mais pour référencer WScript ou CScript, il me semble que tu peux dans le menu projet > références ajouter une référence à l'exe correspondant dans le %systemroot% peut- être sous sytem? (je n'ai pas vb sous la main pour tester.) Tu peux aussi créer tous les objets relatifs à WSH via CreateObject, en late-binding.
François Picalausa
-----Message d'origine----- Bonjour,
comment puis je intégrer du code whs et VB pour faire un fichier EXE???
Merci d'avance pour vos réponse! .
foucher Valery
bonjour,
voici le code que je voudrais mettre.
strComputer = "." Set objWMIService = GetObject("winmgmts:"& strComputer & "rootcimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") n = 1 For Each objAdapter In colAdapters WScript.Echo "Network Adapter " & n If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) WScript.Echo " IP address: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.IPSubnet) Then For i = 0 To UBound(objAdapter.IPSubnet) WScript.Echo " Subnet: " & objAdapter.IPSubnet(i) Next End If If Not IsNull(objAdapter.DefaultIPGateway) Then For i = 0 To UBound(objAdapter.DefaultIPGateway) WScript.Echo " Default gateway: " & objAdapter.DefaultIPGateway(i) Next End If n = n + 1 Next
Merci d'avance.
-----Message d'origine----- Hello,
Je ne suis pas s^r d'aoir ien compris ta question. si tu veux utiliser WSH dans VB, tu peux nous préciser
de
quelle fonction spécifique de l'objet tu as besoin? Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le script control qu'il te faudra utiliser: http://msdn.microsoft.com/downloads/list/webdev.asp?
frame=t
rue
Mais pour référencer WScript ou CScript, il me semble
que
tu peux dans le menu projet > références ajouter une référence à l'exe correspondant dans le %systemroot%
peut-
être sous sytem? (je n'ai pas vb sous la main pour
tester.)
Tu peux aussi créer tous les objets relatifs à WSH via CreateObject, en late-binding.
François Picalausa
-----Message d'origine----- Bonjour,
comment puis je intégrer du code whs et VB pour faire
un
fichier EXE???
Merci d'avance pour vos réponse! .
.
bonjour,
voici le code que je voudrais mettre.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\"& strComputer
& "rootcimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE
IPEnabled = True")
n = 1
For Each objAdapter In colAdapters
WScript.Echo "Network Adapter " & n
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
WScript.Echo " IP address: " &
objAdapter.IPAddress(i)
Next
End If
If Not IsNull(objAdapter.IPSubnet) Then
For i = 0 To UBound(objAdapter.IPSubnet)
WScript.Echo " Subnet: " &
objAdapter.IPSubnet(i)
Next
End If
If Not IsNull(objAdapter.DefaultIPGateway) Then
For i = 0 To UBound(objAdapter.DefaultIPGateway)
WScript.Echo " Default gateway: " &
objAdapter.DefaultIPGateway(i)
Next
End If
n = n + 1
Next
Merci d'avance.
-----Message d'origine-----
Hello,
Je ne suis pas s^r d'aoir ien compris ta question.
si tu veux utiliser WSH dans VB, tu peux nous préciser
de
quelle fonction spécifique de l'objet tu as besoin?
Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le
script control qu'il te faudra utiliser:
http://msdn.microsoft.com/downloads/list/webdev.asp?
frame=t
rue
Mais pour référencer WScript ou CScript, il me semble
que
tu peux dans le menu projet > références ajouter une
référence à l'exe correspondant dans le %systemroot%
peut-
être sous sytem? (je n'ai pas vb sous la main pour
tester.)
Tu peux aussi créer tous les objets relatifs à WSH via
CreateObject, en late-binding.
François Picalausa
-----Message d'origine-----
Bonjour,
comment puis je intégrer du code whs et VB pour faire
strComputer = "." Set objWMIService = GetObject("winmgmts:"& strComputer & "rootcimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") n = 1 For Each objAdapter In colAdapters WScript.Echo "Network Adapter " & n If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) WScript.Echo " IP address: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.IPSubnet) Then For i = 0 To UBound(objAdapter.IPSubnet) WScript.Echo " Subnet: " & objAdapter.IPSubnet(i) Next End If If Not IsNull(objAdapter.DefaultIPGateway) Then For i = 0 To UBound(objAdapter.DefaultIPGateway) WScript.Echo " Default gateway: " & objAdapter.DefaultIPGateway(i) Next End If n = n + 1 Next
Merci d'avance.
-----Message d'origine----- Hello,
Je ne suis pas s^r d'aoir ien compris ta question. si tu veux utiliser WSH dans VB, tu peux nous préciser
de
quelle fonction spécifique de l'objet tu as besoin? Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le script control qu'il te faudra utiliser: http://msdn.microsoft.com/downloads/list/webdev.asp?
frame=t
rue
Mais pour référencer WScript ou CScript, il me semble
que
tu peux dans le menu projet > références ajouter une référence à l'exe correspondant dans le %systemroot%
peut-
être sous sytem? (je n'ai pas vb sous la main pour
tester.)
Tu peux aussi créer tous les objets relatifs à WSH via CreateObject, en late-binding.
François Picalausa
-----Message d'origine----- Bonjour,
comment puis je intégrer du code whs et VB pour faire
un
fichier EXE???
Merci d'avance pour vos réponse! .
.
Nicolas Diétrich
Salut,
Ce code utilise WMI, tu peux l'intégrer tel-quel (copier / coller), ça fonctionnera tout de suite...
Cdlt,
Nicolas Diétrich RightVision
-----Original Message----- bonjour,
voici le code que je voudrais mettre.
strComputer = "." Set objWMIService = GetObject("winmgmts:"& strComputer & "rootcimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration
WHERE
IPEnabled = True") n = 1 For Each objAdapter In colAdapters WScript.Echo "Network Adapter " & n If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) WScript.Echo " IP address: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.IPSubnet) Then For i = 0 To UBound(objAdapter.IPSubnet) WScript.Echo " Subnet: " & objAdapter.IPSubnet(i) Next End If If Not IsNull(objAdapter.DefaultIPGateway) Then For i = 0 To UBound(objAdapter.DefaultIPGateway) WScript.Echo " Default gateway: " & objAdapter.DefaultIPGateway(i) Next End If n = n + 1 Next
Merci d'avance.
-----Message d'origine----- Hello,
Je ne suis pas s^r d'aoir ien compris ta question. si tu veux utiliser WSH dans VB, tu peux nous préciser
de
quelle fonction spécifique de l'objet tu as besoin? Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le script control qu'il te faudra utiliser: http://msdn.microsoft.com/downloads/list/webdev.asp?
frame=t
rue
Mais pour référencer WScript ou CScript, il me semble
que
tu peux dans le menu projet > références ajouter une référence à l'exe correspondant dans le %systemroot%
peut-
être sous sytem? (je n'ai pas vb sous la main pour
tester.)
Tu peux aussi créer tous les objets relatifs à WSH via CreateObject, en late-binding.
François Picalausa
-----Message d'origine----- Bonjour,
comment puis je intégrer du code whs et VB pour faire
un
fichier EXE???
Merci d'avance pour vos réponse! .
.
.
Salut,
Ce code utilise WMI, tu peux l'intégrer tel-quel
(copier / coller), ça fonctionnera tout de suite...
Cdlt,
Nicolas Diétrich
RightVision
-----Original Message-----
bonjour,
voici le code que je voudrais mettre.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\"& strComputer
& "rootcimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration
WHERE
IPEnabled = True")
n = 1
For Each objAdapter In colAdapters
WScript.Echo "Network Adapter " & n
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
WScript.Echo " IP address: " &
objAdapter.IPAddress(i)
Next
End If
If Not IsNull(objAdapter.IPSubnet) Then
For i = 0 To UBound(objAdapter.IPSubnet)
WScript.Echo " Subnet: " &
objAdapter.IPSubnet(i)
Next
End If
If Not IsNull(objAdapter.DefaultIPGateway) Then
For i = 0 To UBound(objAdapter.DefaultIPGateway)
WScript.Echo " Default gateway: " &
objAdapter.DefaultIPGateway(i)
Next
End If
n = n + 1
Next
Merci d'avance.
-----Message d'origine-----
Hello,
Je ne suis pas s^r d'aoir ien compris ta question.
si tu veux utiliser WSH dans VB, tu peux nous préciser
de
quelle fonction spécifique de l'objet tu as besoin?
Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le
script control qu'il te faudra utiliser:
http://msdn.microsoft.com/downloads/list/webdev.asp?
frame=t
rue
Mais pour référencer WScript ou CScript, il me semble
que
tu peux dans le menu projet > références ajouter une
référence à l'exe correspondant dans le %systemroot%
peut-
être sous sytem? (je n'ai pas vb sous la main pour
tester.)
Tu peux aussi créer tous les objets relatifs à WSH via
CreateObject, en late-binding.
François Picalausa
-----Message d'origine-----
Bonjour,
comment puis je intégrer du code whs et VB pour faire
Ce code utilise WMI, tu peux l'intégrer tel-quel (copier / coller), ça fonctionnera tout de suite...
Cdlt,
Nicolas Diétrich RightVision
-----Original Message----- bonjour,
voici le code que je voudrais mettre.
strComputer = "." Set objWMIService = GetObject("winmgmts:"& strComputer & "rootcimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration
WHERE
IPEnabled = True") n = 1 For Each objAdapter In colAdapters WScript.Echo "Network Adapter " & n If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) WScript.Echo " IP address: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.IPSubnet) Then For i = 0 To UBound(objAdapter.IPSubnet) WScript.Echo " Subnet: " & objAdapter.IPSubnet(i) Next End If If Not IsNull(objAdapter.DefaultIPGateway) Then For i = 0 To UBound(objAdapter.DefaultIPGateway) WScript.Echo " Default gateway: " & objAdapter.DefaultIPGateway(i) Next End If n = n + 1 Next
Merci d'avance.
-----Message d'origine----- Hello,
Je ne suis pas s^r d'aoir ien compris ta question. si tu veux utiliser WSH dans VB, tu peux nous préciser
de
quelle fonction spécifique de l'objet tu as besoin? Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le script control qu'il te faudra utiliser: http://msdn.microsoft.com/downloads/list/webdev.asp?
frame=t
rue
Mais pour référencer WScript ou CScript, il me semble
que
tu peux dans le menu projet > références ajouter une référence à l'exe correspondant dans le %systemroot%
peut-
être sous sytem? (je n'ai pas vb sous la main pour
tester.)
Tu peux aussi créer tous les objets relatifs à WSH via CreateObject, en late-binding.
François Picalausa
-----Message d'origine----- Bonjour,
comment puis je intégrer du code whs et VB pour faire
un
fichier EXE???
Merci d'avance pour vos réponse! .
.
.
ng
Salut,
Oui mais n'oublie cependant pas de bien déclarer et typer toutes les variables ! (car en VBS, pas de typage)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Nicolas Diétrich a écrit :
Salut,
Ce code utilise WMI, tu peux l'intégrer tel-quel (copier / coller), ça fonctionnera tout de suite...
Cdlt,
Nicolas Diétrich RightVision
-----Original Message----- bonjour,
voici le code que je voudrais mettre.
strComputer = "." Set objWMIService = GetObject("winmgmts:"& strComputer & "rootcimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") n = 1 For Each objAdapter In colAdapters WScript.Echo "Network Adapter " & n If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) WScript.Echo " IP address: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.IPSubnet) Then For i = 0 To UBound(objAdapter.IPSubnet) WScript.Echo " Subnet: " & objAdapter.IPSubnet(i) Next End If If Not IsNull(objAdapter.DefaultIPGateway) Then For i = 0 To UBound(objAdapter.DefaultIPGateway) WScript.Echo " Default gateway: " & objAdapter.DefaultIPGateway(i) Next End If n = n + 1 Next
Merci d'avance.
-----Message d'origine----- Hello,
Je ne suis pas s^r d'aoir ien compris ta question. si tu veux utiliser WSH dans VB, tu peux nous préciser de quelle fonction spécifique de l'objet tu as besoin? Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le script control qu'il te faudra utiliser: http://msdn.microsoft.com/downloads/list/webdev.asp? frame=t rue
Mais pour référencer WScript ou CScript, il me semble que tu peux dans le menu projet > références ajouter une référence à l'exe correspondant dans le %systemroot% peut- être sous sytem? (je n'ai pas vb sous la main pour tester.) Tu peux aussi créer tous les objets relatifs à WSH via CreateObject, en late-binding.
François Picalausa
-----Message d'origine----- Bonjour,
comment puis je intégrer du code whs et VB pour faire un fichier EXE???
Merci d'avance pour vos réponse! .
.
.
Salut,
Oui mais n'oublie cependant pas de bien déclarer et typer toutes les
variables ! (car en VBS, pas de typage)
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
Nicolas Diétrich <nicolas.dietrich@NOSPAM.rightvision.com> a écrit :
Salut,
Ce code utilise WMI, tu peux l'intégrer tel-quel
(copier / coller), ça fonctionnera tout de suite...
Cdlt,
Nicolas Diétrich
RightVision
-----Original Message-----
bonjour,
voici le code que je voudrais mettre.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\"& strComputer
& "rootcimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE
IPEnabled = True")
n = 1
For Each objAdapter In colAdapters
WScript.Echo "Network Adapter " & n
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
WScript.Echo " IP address: " &
objAdapter.IPAddress(i)
Next
End If
If Not IsNull(objAdapter.IPSubnet) Then
For i = 0 To UBound(objAdapter.IPSubnet)
WScript.Echo " Subnet: " &
objAdapter.IPSubnet(i)
Next
End If
If Not IsNull(objAdapter.DefaultIPGateway) Then
For i = 0 To UBound(objAdapter.DefaultIPGateway)
WScript.Echo " Default gateway: " &
objAdapter.DefaultIPGateway(i)
Next
End If
n = n + 1
Next
Merci d'avance.
-----Message d'origine-----
Hello,
Je ne suis pas s^r d'aoir ien compris ta question.
si tu veux utiliser WSH dans VB, tu peux nous préciser de
quelle fonction spécifique de l'objet tu as besoin?
Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le
script control qu'il te faudra utiliser:
http://msdn.microsoft.com/downloads/list/webdev.asp? frame=t
rue
Mais pour référencer WScript ou CScript, il me semble que
tu peux dans le menu projet > références ajouter une
référence à l'exe correspondant dans le %systemroot% peut-
être sous sytem? (je n'ai pas vb sous la main pour tester.)
Tu peux aussi créer tous les objets relatifs à WSH via
CreateObject, en late-binding.
François Picalausa
-----Message d'origine-----
Bonjour,
comment puis je intégrer du code whs et VB pour faire un
fichier EXE???
Oui mais n'oublie cependant pas de bien déclarer et typer toutes les variables ! (car en VBS, pas de typage)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Nicolas Diétrich a écrit :
Salut,
Ce code utilise WMI, tu peux l'intégrer tel-quel (copier / coller), ça fonctionnera tout de suite...
Cdlt,
Nicolas Diétrich RightVision
-----Original Message----- bonjour,
voici le code que je voudrais mettre.
strComputer = "." Set objWMIService = GetObject("winmgmts:"& strComputer & "rootcimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") n = 1 For Each objAdapter In colAdapters WScript.Echo "Network Adapter " & n If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) WScript.Echo " IP address: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.IPSubnet) Then For i = 0 To UBound(objAdapter.IPSubnet) WScript.Echo " Subnet: " & objAdapter.IPSubnet(i) Next End If If Not IsNull(objAdapter.DefaultIPGateway) Then For i = 0 To UBound(objAdapter.DefaultIPGateway) WScript.Echo " Default gateway: " & objAdapter.DefaultIPGateway(i) Next End If n = n + 1 Next
Merci d'avance.
-----Message d'origine----- Hello,
Je ne suis pas s^r d'aoir ien compris ta question. si tu veux utiliser WSH dans VB, tu peux nous préciser de quelle fonction spécifique de l'objet tu as besoin? Il existe certainement un équivalent en vb "pur".
Si tu souhaite interpréter des scripts, alors c'est le script control qu'il te faudra utiliser: http://msdn.microsoft.com/downloads/list/webdev.asp? frame=t rue
Mais pour référencer WScript ou CScript, il me semble que tu peux dans le menu projet > références ajouter une référence à l'exe correspondant dans le %systemroot% peut- être sous sytem? (je n'ai pas vb sous la main pour tester.) Tu peux aussi créer tous les objets relatifs à WSH via CreateObject, en late-binding.
François Picalausa
-----Message d'origine----- Bonjour,
comment puis je intégrer du code whs et VB pour faire un fichier EXE???
