Sous Vista ok sous xp ça ne marche pas

Signaler
Messages postés
32
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
23 août 2009
-
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
Bonjour,

j'ai un soucie avec un vbs
moi je suis sous vista mon script marche sans soucis, un ami sous xp erreu ligne 18, alors que le fichier est present

voici le script

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}\" _
 & strComputer &"\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'cmd.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Set objWMIService = Nothing
Set colProcessList = Nothing
Next
If MsgBox (""&VbCrLf&"Une ou plusieurs infections détectées!"&VbCrLf&" "& _
  VbCrLf&"  Merci d'avoir utilisé GenProc"&VbCrLf&" "& _
  VbCrLf&"-Cliquez sur Oui si vous vous faîtes aider sur un forum." & _
VbCrLf&"-Cliquez sur Non si vous vous debrouillez tout seul.",vbYesNo+  Vbquestion,"GenProc") = vbYes Then
dim WShshell
Set WShshell = WScript.CreateObject("WScript.Shell")
Wshshell.Run "C:\Users\***\Desktop\GenProc\outil\GenProc14.txt",3,true
Set WShshell = Nothing
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile ("C:\Users\***\Desktop\GenProc\outil\GenProc14.txt") , ("C:\Users\***\Desktop\GenProc14.txt") , true
Set oFSO = Nothing
else
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.navigate"C:\Users\***\Desktop\GenProc\Page\GenProc.html"
IE.Visible = 1
Set IE = Nothing
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\GenProc.URL")
URL.TargetPath = "C:\Users\***\Desktop\GenProc\Page\GenProc.html"
URL.Save
Set Shell = Nothing
End If

une idée
merci bcp!

16 réponses

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
Es-tu sur de ton chemin "C:\Users\***\....."

Je ne sais pas sous Vista, mais sous XP les dossiers utilisateurs sont dans "C:\Documents and Settings\***\...."

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Messages postés
32
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
23 août 2009

slt
oui je suis sur ce vbs et creé par un batch qui tourne sur xp et vista
donc les bon chemins a chaque fois.
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
Bonjour,

la ligne
WScript.CreateObject("WScript.Shell") 
peut provoquer une erreur selon le degré de sécurité d'internet explorer

a+
Messages postés
32
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
23 août 2009

slt,

merci, mais comment passer outre?
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
Bonjour,

il faut changer les parramètres de sécurité de internet explorer , ce qui est fortement déconseillé

a+
Messages postés
32
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
23 août 2009

Slt,

tu es sous xp?
si oui pourrai-tu me dire si ce script marche chez toi stp ?
merci!
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
Bonjour,

non ça ne marche pas

a+
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
Bonjour,

Le message d'erreur est clair :

Fichier spécifié introuvable
Source : null !!!

En clair, le chemin est invalide... Ceci n'a rien à voir avec la version de Windows.

Amicalement,
Us.
Messages postés
32
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
23 août 2009

slt,

merci oui ça marche si je met exemple
Wshshell.Run "C:\GenProc14.txt",3,true

comment je peut faire pour des chemins plus long?
merci
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
En première idée, je pense que "/***/" ne peut pas représenter un chemin... donc mettre une syntaxe complète...

Amicalement,
Us.
Messages postés
32
Date d'inscription
samedi 23 février 2008
Statut
Membre
Dernière intervention
23 août 2009

lol
les *** etait pour cacher mon prenom
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
 c'est sur...

Amicalement,
Us.
Messages postés
2
Date d'inscription
lundi 20 octobre 2008
Statut
Membre
Dernière intervention
12 novembre 2008

Salut,

J'ai aussi créer un petit programme en C# par contre et j'ai pu remarquer que la classe Win32_Process ne fonctionne pas sous XP !! Etant donné que tu l'utilise ici il y a de fortes chances que c'est de là que vient le problème. Je me promène en ce moment dans les catacombes du net pour trouver la solution
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
Bonjour,

c'est quoi la classe "Win32_Process" ???
ça vient de quel framework???

a+
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
WMI
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
Bonjour,

@dopeko c'est pas ça l'erreur ,je suis sous XP et l'erreur que j'ai! c'est




Set




WShshell = WScript.CreateObject(


"WScript.Shell"

)

impossible de créer l'objet .
comme je l'ai signalé dansun post précédent c'est un problème du aux parramètres de sécurité d'internet explorer

si ce truc est activé n'importe quelle page html peutéffacer des fichiers sur ton ordi !!!
surtout avec l'infâme CreateObject(

"Scripting.FileSystemObject")
a+