Discussion :

[hervebaron]

Bonjour,

je viens de développer un super script VBS qui marche à merveille sur mon WinXP. Malheureusement le parc informatique n'est pas composé uniquement de windows XP, mais il me reste encore pas mal de win2000.
le pb c'est que mon code ne fonctionne pas sous 2000.
netconnectionstatus est une variable de la classe Win32_NetworkAdapter issu de WMI CLASS
sous winXP je suis en WMI version 5.xx alors que sous win2000 j'ai une vieille version WMI 1.5, je suppose que mon pb vient de là.
je ne trouve pas de WMI CORE à télécharger plus récent que la V1.5

je suppose que je ne suis pas le premier à qui il arrive ce genre de mésaventure, comment procédez vous pour avoir un code "transportable".

ok tester la vesion de l'os pour executer tel ou tel bout de code, je veux bien, mais par quoi remplace t on le code manquant sous 2000 ?
existe t il d'autres class sous 2000 qui sont equivalente à celle de XP ?

merci pour votre retour d'expérience

[ThierryAIM]

en installant le .net framework SDK

http://msdn.microsoft.com/en-us/libr...82(VS.85).aspx

[hervebaron]

en installant le .net framework SDK

http://msdn.microsoft.com/en-us/libr...82(VS.85).aspx

quel réactivité ce forum, 44min. ouahou

j'ai installé :
windows installer 3.1
dotnet 2.0
dotnet 2.0 sdk (354Mo ouf )

et mon script ne marche toujours pas

comment doit je interpréter cette réponse ?
est ce que WMI par dotnet créé les memes classes ?
ou
est ce qu'il existe des classes similaires qui portent d'autres nom ?

[ThierryAIM]

fais voir ton script (à moins qu'il ne soit confidentiel), qu'on puisse voir les classes utilisés (j'ai un poste en W2k SP4 + Framework 2.0 pour tester, si tu veux)

[hervebaron]

ah oui avec plaisir, mon code n'a rien de confidentiel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
strComputer = "."
Set objShell = Wscript.CreateObject("Wscript.Shell")
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colNAs = objWMI.InstancesOf("Win32_NetworkAdapter")
for each objNA in colNAs
	if not IsNull(objNA.NetConnectionStatus) and _	
	   not objNA.Name="Cisco Systems VPN Adapter" and _
	   InStr(1,objNA.Name,"Wireless")=0 and _
	   InStr(1,objNA.Name,"1394")=0 and _
	   InStr(1,objNA.Name,"Bluetooth")=0 _
	then 
		Err = objShell.Run ("netsh interface ip set address name="& chr(34) & objNA.NetConnectionID & chr(34) & " source=static addr=192.168.1.12 mask=255.255.0.0" ,0,True)
	end if
next

le message d'erreur que j'ai en retour est "cet objet ne gere pas cette propriété ou cette méthode : 'objNA.NetConnectionStatus'

le but de ce script est de mettre en IP static la carte reseau filaire (pas la ciso, pas la wireless, pas la 1394, pas la bluetooth)

objNA.NetConnectionStatus me sert filtrer les cartes physiquement présentes.

[omen999]

bonjour,
http://www.issociate.de/board/index....88&goto=447028
(le dernier message...)