aide vbscript

Question

Salut à vous,


Je supra débute en vbs et je dois faire un script qui permet de checker l'ensemble des disque dur d'une machine pour recuperer un fichier, tout en étant fonctionnel sur n'importe quel type de machine ( os différent, serveur/pc...) il me semble qu'il faut mettre une variable d'environnement , mais je ne sais pas trop, merci de votre aide

cs_bultez · Answer

Bonjour,
>>sur n'importe quel type de machine ( os différent, serveur/pc...)
    même UNIX ?


<hr />                Cordialement             Bul         [mon Site]     [M'écrire]

cs_tomyboy · Answer

Bonjour

dans un premier temps surtout du windows, mais dans ma boite on a du francais et du US donc pas les memes chemins + les serveurs, il faudrait kil soit capable sans mettre le chemin en dur de checker l'ordinateur entier pour selectionner un fichier spécifique...

cs_bultez · Answer

>>dans un premier temps surtout du windows
    même du windows 3.1 ? 95 ? 2000 ? ... etc ?


<hr />                Cordialement             Bul         [mon Site]     [M'écrire]

cs_tomyboy · Answer

ok apparemment ce n'était pas clair je vais essayer d'expliquer clairement ce qu'on m'a demander

la j'ai deja un script qui tourne plus ou moins et qui permet de modifier des images tiré d'un mainframe pour les retranscrire en windows et l'afficher en tif... 
Sauf que ce script n'interroge des "images mainframe"que sur le cd , or j'aurai besoin que ce script soit plus dynamique c'est a dire que l'on puisse selectionner nous meme à l'endroit que l'on veut un fichier précis... ( disque c, d, programes files... peu importe) ( dans le cas ou les fichiers ne soient pas sur le cd) sans rentrer une variable en dur comme
chemin = select_a_folder("Veuiller sélectionner un dossier","Poste de travail:" ), 
chemin = select_a_folder("Veuiller sélectionner un dossier","c" ) etc...

car je peux avoir des versions d'os differentes,(sous 2000 uk/fr, 2003 ou xp) d'ou mon interrogation sur une variable d'environnement permettant de checker tout le "pc"...

cs_bultez · Answer

>>ce qu'on m'a demandé
    ah... ton client ? ton patron ? 

>>j'ai deja un script qui tourne plus ou moins
    qui fonctionne ou pas ?
    sinon : on peut voir ?

>>interroge des "images mainframe" que sur le cd
    euh.... ? ça regarde sur le mainframe ou sur le CD ?

>>j'aurai besoin ... un fichier
précis.  
    donc finalemnt, 'modifier' un fichier, de n'importe où ( mainframe,     
            CD, diskette, Micros réseau ou pas .. ) vers n'importe où, en tif 
    en résumant ? ai-je compris ?



>>variable d'environnement permettant de checker tout le "pc".
    euh.. quel rapport avec ce que tu demandes ?
    vbscript ( ou autres ) peut 'regarder' sur le réseau
        on voit plein d'exemples partout....
    mais je ne suis pas sûr ( je suis un peu neuneu ),
        de ce que tu cherches à faire






<hr />                Cordialement             Bul         [mon Site]     [M'écrire]

Hitch16 · Answer

re 

Je ne vois pas ce qui pose problème dans le fait d'inscrire le chemin en dur mais tu dois avoir tes raisons...

Tant que tu restes sous Windows, ton script fonctionnera de la même façon (uk ou fr, server ou station).

WSH (moteur de VBScript) est inclus depuis Windows 2000 et installable sous 95, 98 ou NT4 donc à priori pas de souci...

Avec FileSystemObject, tu as la propriété Drives qui retourne une collection de tous les disques (dur, amovibles, CD...) chacun d'eux apparaissant sous la forme d'un objet Drive.

Exemple : 

Dim fso, drv, drvList
Set fso = CreateObject("Scripting.FileSystemObject")
Set drvList = fso.Drives
For Each drv in drvList
      Wscript.Echo drv.DriveLetter & ":"
Next

cs_bultez · Answer

>>Tant que tu restes sous Windows, ton script fonctionnera de la même façon 
>>(uk ou fr, server ou station???).
    hitch16++
>>Avec FileSystemObject, tu as la propriété Drives
    hitch16++
    mais je ne sais pas s'il faut explorer ou si c'est un ficher "choisi"
    tant qu'à le transformer en tif....
    
et je ne suis pas sûr que tomyboy n'attende pas qu'on lui fasse !

<hr />                Cordialement             Bul         [mon Site]     [M'écrire]

cs_tomyboy · Answer

lol c'est vrai que j'y connais vraiment rien,
mais dela a demander qu'on me le fasse, pas vraiment.
Mon script fait déja la conversion mainframe vers windows, je dois juste trouver une fonction parcourir l'ensemble du disque , et accéssirement reussir a ouvrir deux IE pur visualiser les fichier tif ...

Hitch16 · Answer

Si au moins on avait le code on pourrait mieux voir où tu veux en venir tomyboy

cs_tomyboy · Answer

yes je te l'ai envoyé

Hitch16 · Answer

Utilise un common dialog, tu sélectionnes où tu veux sur le disque que tu veux ou sur le réseau...

cs_bultez · Answer

j'ai reçu le script en message privé,
    je ne sais pas si tu vas apprécier que je mette ici ?

je pense qu'au départ, ta question était dans le bar,
    mais comme il a été déplacé vers le bon forum et que les VBScripteurs 
    s'intéressent à ton problème, je vais les laisse faire ...
    ( ne serait-ce que parce qu'ils seront plus compétents )

<hr />                Cordialement             Bul         [mon Site]     [M'écrire]

cs_tomyboy · Answer

ok no soucy, c juste que c pas un script de ma propriété mais bon si on peut m'aider c avec plaisir...

tu l'as poster ou exactement que je puisse voir les réponses ;-)

Hitch16 · Answer

Et mon common dialog, tu t'en tapes??

cs_tomyboy · Answer

mdrrr t'ennerves pas j'ai deja essayé les common dialog, mais je suis obligé de spécifier un disque ( ou une partition) alors que mon interet est d'avoir tout ( bureau, c,d,cd, usb,reseau) et ce quelque soit l'os.

je ne sais pas trop pk mon chef ne veut pas de chemin en dur mais il ne veut pas...

Hitch16 · Answer

je m'énerver pas je t'explique 

pour le common dialog tu n'as pas à spécifier un disque puisque tu choisis le chemin via l'interface graphique, tu peux te balader partout avec...

Maintenant j'aimerais bien savoir comment tu l'as mis en oeuvre... Juste pour voir

cs_tomyboy · Answer

ah oui non tu as raison
en fait c'est avec la fonction "ErrHandler" que j'ai du mal, je pense que je dois rensigner quelque chose afin d'avoir une gestion des erreurs non ? voila le bout de script 

Private Sub Command1_Click()
  ' Set CancelError is True
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  ' Set flags
  CommonDialog1.Flags = cdlOFNHideReadOnly
  ' Set filters
  CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
  "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
  ' Specify default filter
  CommonDialog1.FilterIndex = 2
  ' Display the Open dialog box
  CommonDialog1.ShowOpen
  ' Display name of selected file
  MsgBox CommonDialog1.filename
  Exit Sub
  
ErrHandler:
  'User pressed the Cancel button
  Exit Sub
End Sub

Hitch16 · Answer

cs_tomyboy · Answer

yes mais tu vois tu spécifies le lecteur c, le truc c'est que je voudrai avoir toute l'arborescence du pc sans avoir a spécifier un endroit spécifique,
si par malchance mon script est utilisé par une machine qui n'a pas la meme dénomination des lettres que nous... exemple mon lecteur de cd a la lettre z ...
ce n'est qu'un exemple mais il ne faudrait pas ke le chemin soit rentré en dur ...

Hitch16 · Answer

Le C: indique ici le dossier d'ouverture par défaut mais tu paeux passer tous les périfériques en revue...
copie le code et mets le dans un VBS (tout seul) tu verras

cs_tomyboy · Answer

j'ai bien compris que je mettais les periphériques que je voulais, mais si je l'execute d'un endroit ou ce que j'ai indiqué n'existe pas, genre le disque d ou autre...
j'insiste sur le fait d'avoir un truc dynamique ki permette de ne rien mettre en dur...
en plus j'ai une erreur
un composant activex ne peut pas créer un objet.:'UserAccounts.CommonDialog' ...
tu sais ou je peux regarder si mon script que bultez a poster kelke part pour voir si il a interessé des gens ?

Hitch16 · Answer

il n'y a pas d'ActiveX là dedans...

je crois que tu n'as pas bien compris le principe du common dialog...
tu as une boite de dialogue qui s'ouvre te permettant d'aller chercher le fichier désiré, le c: te donne juste le dossier d'ouverture par défaut (c: existe toujours), après tu parcours ton disque comme avec l'explorateur pour aller chercher topn fichier.
Je ne vois donc pas où est le problème, surtout que dans ton script c'est l'utilisateur qui choisi le fichier à modifier....

cs_tomyboy · Answer

si tu le dis mais le message d'erreur pour activex est bien réel...
puis j'ai deja mis un common dialog qui ne me permettait ke de voir les sous dossier de c: , pas le dossier parent ou frere ;-)
bref je n'arrive pas a faire fonctionner ce que tu m'a donné  pb d'activeX

Hitch16 · Answer

franchement je ne vois pas où tu vois une référence à un active X....

Hitch16 · Answer

De plus il faudrait que tu m'expliques ce qu'est le dossier parent de c: ... En tous cas avec un common dialiog bien fait tu peux te déplacer dans tous les dossiers sur tous les lecteurs y compris sur le réseau et sans ActiveX. Ci-dessous "ton" code que tu m'as envoyé en MP, cela permettra sans doute à d'autres de proposer des solutions où en tous cas de mieux cerner ton problème... ----------------------------------------------------------------------------------------------------------------------------- dim Lotissement , Din , Rimdeb , Rimlong , Fimdeb , Fimlong , affich , affsit Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") fc2 = "archives.all" input = "999" ''''''''''''''''''''''''''''''''''''''''''''''''''''' ' fonction de recherche d1 repertoire fc2 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''' Function trouvfc2(folderspec) Dim f , f1 , fc 'f fonction , f1 sous-directory , fc = directory , ' affich = fichier , fc1 incremente folderspec Set f = fso.GetFolder(folderspec) do Until affich = fc2 Set fc = f.Files For Each f1 in fc affich = f1.name if affich = fc2 then Exit do End If if affich <> fc2 then if fc2 = "archives.all" then fc2 = "archives.ret" MsgBox ( " on essaie : " & fc2 ) trouvfc2(fc1) End If End If Next set fc = f.SubFolders For Each f1 in fc if affich = fc2 then Exit do End If fc1 = fc1 & "" & f1.name trouvfc2(fc1) Next if affich <> fc2 then MsgBox ( " on ne trouve pas : " & fc2 ) Exit Function End If Loop End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''' ' fonction de recherche du repertoire suivant fc2 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''' Function trouvfcs(folderspec , ntime) Dim f , fc , cpt Set f = fso.GetFolder(folderspec) cpt = 1 set fc = f.SubFolders For Each f1 in fc fc1 = f1.Name cpt = cpt + 1 If Cpt = ntime Then Exit For End If Next End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''' ' on cherche le lecteur de CD ' ''''''''''''''''''''''''''''''''''''''''''''''''''''' fc1 = "Z:" trouvfc2(fc1) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' on ouvre le fichier archives pour afficher un sit ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function afsit dim farch , buf , compar Const ForReading = 1 affich = fc1 & "" & fc2 Set farch = fso.OpenTextFile(affich , ForReading) cptr = 0 Do Until farch.AtEndOfStream or Input = afsit afsit = mid ( buf , 71 , 24) buf = farch.Read(130) If mid ( buf , 71 , 24) <> "000000000000000000000000" and mid ( buf , 71 , 24) <> " " then cptr = cptr + 1 if cptr = 1 then affich = mid ( buf , 71 , 24) End If End If Loop affsit = afsit afsit = "choisissez le sit désiré , par exemple " & affich farch.close End Function Input = inputbox (afsit , " par defaud je prends le sit affiché " ) If Input "" then Input affich End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'recherche dans les fichiers archives suivants du sit demandé ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Cpter = 2 Do until Input = affsit if Cpter > 20 then MsgBox ( " on ne trouve pas dans 20 directory , le dernier sit est : " & affsit ) Exit Do End If fc1 = "Z:" trouvfcs fc1 , Cpter fc1 = "Z:" & "" & fc1 trouvfc2(fc1) ' MsgBox ( " fc1 : " & fc1 ) afsit Cpter = Cpter + 1 Loop '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'recherche dans archives du sit demandé ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function sit dim farch , buf , compar Const ForReading = 1 affich = fc1 & "" & fc2 Set farch = fso.OpenTextFile(affich , ForReading) Do Until farch.AtEndOfStream buf = farch.Read(130) compar = mid ( buf , 71 , 24) Lotissement = mid ( buf , 111 , 8) Din = mid ( buf , 119 , 4) If compar = Input Then Exit Do End If Loop sit = compar if farch.AtEndOfStream Then sit = Input Lotissement = fc1 Din = avant End If farch.close End Function MsgBox ( " sit demandé : " & sit & chr(10) & " lotissement obtenu : " & Lotissement & chr(10) & " din : " & Din ) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'si sit ok on recherche dans index le dernier din (ascii ==> décimal ) identique' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function Pos dim findex , buf , compar Const ForReading = 1 fc2 = Lotissement & ".idx" trouvfc2(fc1) affich = fc1 & "" & fc2 Set findex = fso.OpenTextFile(affich , ForReading) Do Until findex.AtEndOfStream buf = findex.Read(512) compar = asc (mid ( buf , 1 , 1)) + asc (mid ( buf , 2 , 1)) * 256 + asc (mid ( buf , 3 , 1)) * 256 * 256 + asc (mid ( buf , 4 , 1)) * 256 * 256 * 256 If compar = Cint (Din) Then Do while compar = Cint (Din) Pos = compar Fimdeb = asc (mid ( buf , 6 , 1)) + asc (mid ( buf , 7 , 1)) * 256 + asc (mid ( buf , 8 , 1)) * 256 * 256 + asc (mid ( buf , 9 , 1)) * 256 * 256 * 256 Fimlong = asc (mid ( buf , 10 , 1)) + asc (mid ( buf , 11 , 1)) * 256 + asc (mid ( buf , 12 , 1)) * 256 * 256 + asc (mid ( buf , 13 , 1)) * 256 * 256 * 256 Rimdeb = asc (mid ( buf , 15 , 1)) + asc (mid ( buf , 16 , 1)) * 256 + asc (mid ( buf , 17 , 1)) * 256 * 256 + asc (mid ( buf , 18 , 1)) * 256 * 256 * 256 Rimlong = asc (mid ( buf , 19 , 1)) + asc (mid ( buf , 20 , 1)) * 256 + asc (mid ( buf , 21 , 1)) * 256 * 256 + asc (mid ( buf , 22 , 1)) * 256 * 256 * 256 if findex.AtEndOfStream Then Exit Do End If buf = findex.Read(512) compar = asc (mid ( buf , 1 , 1)) + asc (mid ( buf , 2 , 1)) * 256 + asc (mid ( buf , 3 , 1)) * 256 * 256 + asc (mid ( buf , 4 , 1)) * 256 * 256 * 256 Loop End If Loop findex.close End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' modification du fichier tif recto qui doit être présent sur le bureau ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function Cretif dim fim , buf Const ForReading = 1 fc2 = Lotissement & ".fim" trouvfc2(fc1) affich = fc1 & "" & fc2 Set fim = fso.OpenTextFile(affich , ForReading) buf = fim.Read(Fimdeb) buf = fim.Read(Fimlong) fim.close Const ForWriting = 2 Set fso = CreateObject("Scripting.FileSystemObject") Cretif = strDesktop & "\Recto.tif" Set fim = fso.OpenTextFile(Cretif , ForWriting) fim.Write (buf) fim.close End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' modification du fichier tif verso sur qui doit être présent le bureau ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function Crevers dim rim , buf Const ForReading = 1 fc2 = Lotissement & ".rim" trouvfc2(fc1) affich = fc1 & "" & fc2 ' MsgBox ( " on trouve : " & affich ) Set rim = fso.OpenTextFile(affich , ForReading) buf = rim.Read(Rimdeb) buf = rim.Read(Rimlong) rim.close Const ForWriting = 2 Set fso = CreateObject("Scripting.FileSystemObject") Crevers = strDesktop & "\Verso.tif" Set rim = fso.OpenTextFile(Crevers , ForWriting) rim.Write (buf) rim.close End Function Pos ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' affichage des images avec le logiciel kodak ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' affich = chr(34) & "C:\Program Files\Windows NT\Accessories\ImageVue\Kodakprv.exe" & chr(34) & " " & chr(34) & Cretif & chr(34) WshShell.Run affich affich = chr(34) & "C:\Program Files\Internet Explorer\IEXPLORE.EXE" & chr(34) & " " & chr(34) & Crevers & chr(34) WshShell.Run affich le lecteur cd est en dur, mon "chef" me demande de le rendre dynamique a savoir que l'utilisateur du script pourra prendre les fichier n'importe ou... j'avais mis ca comme fonction chemin = select_a_folder("Veuiller sélectionner un dossier","Poste de travail") ' chemin = select_a_folder("Veuiller sélectionner un dossier","" ) ' le "" permet d'avoir l'arborescence complète wscript.echo "Le Dossier choisi est : " & chemin '=================================================== ' la fonction suivante permet de choisir un dossier ' Elle retourne "ANNUL" si appuie sur le bouton annuler ' paramètres : message à afficher, directory : dossier ... Function select_a_folder(message,directory) Const WINDOW_HANDLE = 0 Const NO_OPTIONS = 0 Set objShell = CreateObject("Shell.Application" ) Set objFolder = objShell.BrowseForFolder _ (WINDOW_HANDLE, message , NO_OPTIONS, directory) On Error Resume Next Set objFolderItem = objFolder.Self If Err <> 0 Then select_a_folder = "ANNUL" Else select_a_folder = objFolderItem.Path end if On Error GoTo 0 End Function ******* qui me permettait de checker tout le diske mon mon chef n'a pas aimé le chemin "poste de travail" car il peu changer en fonction des os... vois tu un peu plus ce dont je parle ? -----------------------------------------------------------------------------------------------------------------------------

cs_bultez · Answer

sauf que :



    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set WshShell = WScript.CreateObject("WScript.Shell") 
    Set objShell = CreateObject("Shell.Application" ) 
    Set objFolder = objShell.BrowseForFolder...

    sont bien des ActiveX ! 
    et que si c'est dans une page web ( .htm à la place de .hta ou .vbs ),
        il va falloir les autoriser dans Internet Explorer.




<hr />                Cordialement             Bul         [mon Site]     [M'écrire]

cs_tomyboy · Answer

lol j'entends par dossier parent, poste de travail qui me permettrait d'avoir l'ensemble des diske et autre réseaux mais bon si la common dialog permet de tout checker meme en mettant le c: je vais tester 
mais j'ai bien envie de t'envoyer le message d'erreur pour active x losque je lance ce common dialog...

Hitch16 · Answer

Ok bultez mais si l'extension du fichier est vbs comme je lui ai dit pour essayer, il n'y a pas de souci d'ActiveX...

cs_tomyboy · Answer

lol donc a l'heure actuel tu crois que je lance mon vbs avec comme extension htm ??

Hitch16 · Answer

Ok ok admettons, si tu y mettais du tiens quand on te cherche des solutions ça ne serait pas plus mal....

Configure IE pour autoriser l'exécution des ActiveX...

cs_tomyboy · Answer

lol ne t'impatientes pas je te remercie de ton aide, mais j'ai ce message d'erreur que j'ai du mal a te faire admettre .. et je cherche depuis hier pk j'ai ce message d'erreur, donc je ne pense pas ne pas y mettre du mien c'est juste que c'est pas mon univers...

PS: activeX est bien autoriser sous IE

Hitch16 · Answer

t'as quoi comme OS ?

cs_tomyboy · Answer

Windows 2000 sp4
ie6

Hitch16 · Answer

ta version de Wscript.exe ??  (WINNT\system32 sous win2k)

cs_tomyboy · Answer

5.6.0.6626

Hitch16 · Answer

Va télécharger la dernière version, on ne sait jamais (sans conviction ...)

http://www.microsoft.com/downloads/details.aspx?displaylang=fr&familyid=E74494D3-C4E1-4E18-9C6C-0EA28C9A5D9D

Hitch16 · Answer

c'est Scr56fr.exe

cs_tomyboy · Answer

c'est fait meme message...

Hitch16 · Answer

Bin là franchement je ne vois pas... il fonctionne très bien y compris sur mes machines en 2000 SP4 ...

cs_tomyboy · Answer

ok merci c'est gentil,

je vais continuer mes recherches ;-)

cs_JMO · Answer

Bonsoir à tous,

Si ton OS supporte WMI:

Option Explicit
Const cFile = "JeRechercheCeFichier"
Const cExt = "txt"

MsgBox SearchFile(cFile,cExt),,"Result fonction SearchFile"

Function SearchFile(MonFichier,MonExtension)
Dim strComputer, objWMIService, colFiles, objFile
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile where FileName='" & MonFichier & _
                                 "' And Extension ='" &  MonExtension & "'") 

For Each objFile in colFiles
    SearchFile = objFile.Path &vbCrLf& objFile.Name
    Set objWMIService = Nothing
    Set colFiles =  Nothing
    Exit Function
Next
Set objWMIService = Nothing
Set colFiles =  Nothing
SearchFile = "Fichier non trouvé"
End Function

Dans CIM_DateFile, on peut préciser le DriveType ainsi que le Drive(Name).
Si on veut rechercher, sur tous les disks, les fichiers se nommant MonFichier, 
on procéderait ainsi:
For Each objFile in colFiles
    resultat = resultat &vbCr& objFile.Path &vbCrLf& objFile.Name &vbcrlf
Next
msgbox resultat

jean-marc

cs_JMO · Answer

Re,

Pour ne sélectionner que les disks durs, on utilisera 2 Select.
Ex:
Const HARD_DISK = 3
'0 = Unknown
'1 = No Root Directory
'2 = Removable Disk
'3 = Local Disk
'4 = Network Drive
'5 = Compact Disc
'6 = RAM Disk

Set objWMIService = GetObject("winmgmts:" _
                    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
           ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
        
For Each objDisk in colDisks
        Set colFiles = objWMIService.ExecQuery _
                       ("Select * from CIM_DataFile where Drive = '" &_
                         objDisk.Name & "' And Extension = '" & objTabExt(i) &"'") 
        For Each objFile in colFiles
            msgbox objFile.Name &vbcrlf& objFile.Path

jean-marc

cs_tomyboy · Answer

Merci Jean-marc

il ne me reste plus qu'a checker la langue de l'os et je pense que ça sera fini

merci beaucoup

cs_JMO · Answer

Re,

Pour info, avec wmi, objBIOS.CurrentLanguage de la classe Win32_BIOS ne renvoie pas la langue si désintall/réinstall OS (testé sur plusieurs servers).

jean-marc

Aide vbscript

44 réponses

Votre réponse

Discussions similaires