FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Problème de math
par papydall Aujourd'hui à 1:53

» A propos des attributs de fichier
par papydall Hier à 14:33

» Problème de math
par Marc37 Sam 21 Oct 2017 - 23:04

» I Love You
par papydall Sam 21 Oct 2017 - 19:22

» Un petit "coucou" à tous les Panoramiciens !
par mindstorm Sam 21 Oct 2017 - 17:06

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

  Windows Management Instrumentation

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5551
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Windows Management Instrumentation    Jeu 8 Oct 2015 - 19:38

Salut tout le monde.

Tout est dans le code, rien de spécial à ajouter.

Code:

rem ============================================================================
rem         Windows Management Instrumentation : WMI
rem                   Par Papydall
rem ============================================================================
rem Savoir identifier les composants de son ordinateur peut être utile suite à
rem une panne ou quand on souhaite changer un ou plusieurs composants.
rem Sans chercher des logiciels permettant d’identifier les composantes ni
rem d’installer un logiciel tiers, votre Windows dispose du nécessaire.
rem Il s’agit de l’outil de gestion WMI (Windows Management Instrumentation) et
rem de la  commande de la ligne de commande WMIC (Windows Management Instrumentation Command-line).
rem ============================================================================

Run()
end
rem ============================================================================
data "Enum Special Folders", "Identifier BIOS", "Type et Niveau BIOS"
data "Identifier Carte Graphique", "Identifier Carte Mère", "Identifier Carte Réseaux"
data "Identifier CPU", "Identifier Diskes", "Identifier Moniteur"
data "Identifier OS", "Identifier RAM", "Liste Disques"
data "Partitions Disques", "Type Disques", "Serveur et Mémoires"
data "Liste Prog Démarrage",  "Nom Machine","Quitter"
rem ============================================================================
SUB Run()
    label Decode_Click
    dim i,t$
    full_space 0 : color 0,0,0,0
    caption 0,"Windows Management Instrumentation"
    alpha 1 : top 1,10 : left 1,600 : font_bold 1 : font_name 1,"tahoma" : font_color 1,255,255,0 : font_size 1,12
    for i = 010 to 030 step 10 : button i : top i,050 : left i,10 + 19*(i-010) : next i
    for i = 040 to 060 step 10 : button i : top i,100 : left i,10 + 19*(i-040) : next i
    for i = 070 to 090 step 10 : button i : top i,150 : left i,10 + 19*(i-070) : next i
    for i = 100 to 120 step 10 : button i : top i,200 : left i,10 + 19*(i-100) : next i
    for i = 130 to 150 step 10 : button i : top i,250 : left i,10 + 19*(i-130) : next i
    for i = 160 to 180 step 10 : button i : top i,300 : left i,10 + 19*(i-160) : next i
    for i = 010 to 180 step 10
        font_bold i : width i,180 : font_size i,10: font_name i,"arial" : on_click i, Decode_Click
        next i
    for i = 010 to 180 step 10 : read t$ : caption i,t$ : next i

END_SUB
rem ============================================================================
Decode_Click:
    select number_click
        case 010 : Enum_Special_Folders()
        case 020 : Identifier_Bios()
        case 030 : Type_Niveau_BIOS()
        case 040 : Identifier_Carte_Graphique()
        case 050 : Identifier_Carte_Mere()
        case 060 : Identifier_Carte_Reseaux()
        case 070 : Identifier_CPU()
        case 080 : Identifier_Disques()
        case 090 : Identifier_Moniteur()
        case 100 : Identifier_OS()
        case 110 : Identifier_RAM()
        case 120 : Liste_Disques()
        case 130 : Partitions_Disques()
        case 140 : Type_Disques()
        case 150 : Serveur_Et_Memoires()
        case 160 : Liste_Prog_Demarrage()
        case 170 : Nom_Machine()
        case 180 : quitter()
    end_select
return
rem ============================================================================
' Script d'énumération des dossiers spéciaux du compte en cours
SUB Enum_Special_Folders()
    dim_local q$,scr$ : q$ = chr$(34)
    application_title "Liste des variables d'environnement actuellement définies sur votre système"
    scr$ = "C:\TEMP\Dossiers_speciaux.vbs"

    file_open_write 9999,scr$
    file_writeln 9999,"Const SW_HIDE=0"
    file_writeln 9999,"Const SW_SHOWNORMAL=1"
    file_writeln 9999,"ForWriting = 2"

    file_writeln 9999,"Set net  = Wscript.CreateObject("+q$+"WScript.Network"+q$+")"
    file_writeln 9999,"Set Shell= Wscript.CreateObject("+q$+"WScript.Shell"+q$+")"
    file_writeln 9999,"Set fso  = WScript.CreateObject("+q$+"Scripting.FileSystemObject"+q$+")"
    file_writeln 9999,"Set fldrs=Shell.SpecialFolders"

    file_writeln 9999,"Fname=array( _ "
    file_writeln 9999,"   "+q$+"Desktop"+q$+", _ "
    file_writeln 9999,"   "+q$+"AllUsersDeskTop"+q$+", _"
    file_writeln 9999,"   "+q$+"StartMenu"+q$+", _ "
    file_writeln 9999,"   "+q$+"AllUsersStartMenu"+q$+", _"
    file_writeln 9999,"   "+q$+"Programs"+q$+", _ "
    file_writeln 9999,"   "+q$+"AllUsersPrograms"+q$+", _ "
    file_writeln 9999,"   "+q$+"StartUp"+q$+", _ "
    file_writeln 9999,"   "+q$+"AllUsersStartup"+q$+", _ "
    file_writeln 9999,"   "+q$+"AppData"+q$+", _"
    file_writeln 9999,"   "+q$+"Favorites"+q$+", _ "
    file_writeln 9999,"   "+q$+"Fonts"+q$+", _ "
    file_writeln 9999,"   "+q$+"MyDocuments"+q$+", _ "
    file_writeln 9999,"   "+q$+"NetHood"+q$+", _ "
    file_writeln 9999,"   "+q$+"PrintHood"+q$+", _ "
    file_writeln 9999,"   "+q$+"Recent"+q$+", _ "
    file_writeln 9999,"   "+q$+"SendTo"+q$+", _  "
    file_writeln 9999,"   "+q$+"Templates"+q$+")"
    file_writeln 9999,"Comment=array( _ "
    file_writeln 9999,"   "+q$+"Bureau"+q$+", _ "
    file_writeln 9999,"   "+q$+"Bureau (commun)"+q$+", _ "
    file_writeln 9999,"   "+q$+"Menu démarrer"+q$+", _ "
    file_writeln 9999,"   "+q$+"Menu démarrer (commun)"+q$+", _"
    file_writeln 9999,"   "+q$+"Programmes"+q$+", _ "
    file_writeln 9999,"   "+q$+"Programmes (commun)"+q$+", _ "
    file_writeln 9999,"   "+q$+"Démarrage"+q$+", _ "
    file_writeln 9999,"   "+q$+"Démarrage (commun)"+q$+", _ "
    file_writeln 9999,"   "+q$+"Application Data"+q$+", _ "
    file_writeln 9999,"   "+q$+"Favoris"+q$+", _ "
    file_writeln 9999,"   "+q$+"Polices"+q$+", _ "
    file_writeln 9999,"   "+q$+"Mes documents"+q$+", _ "
    file_writeln 9999,"   "+q$+"Voisinage réseau"+q$+", _ "
    file_writeln 9999,"   "+q$+"Voisinage d'impression"+q$+", _ "
    file_writeln 9999,"   "+q$+"Documents récents"+q$+", _ "
    file_writeln 9999,"   "+q$+"Envoyer vers"+q$+", _ "
    file_writeln 9999,"   "+q$+"Modèles"+q$+")"
    file_writeln 9999,"T="+q$+"Dossiers spéciaux du compte "+q$+" & net.UserName & "+q$+" (ordinateur "+q$+"  & net.Computername & "+q$+") :"+q$
    file_writeln 9999,"S=String(Len(T),"+q$+"*"+q$+") & VBCRLF & T & VBCRLF & String(Len(T),"+q$+"*"+q$+")"
    file_writeln 9999,"For i = LBound(Fname) To UBound(Fname)"
    file_writeln 9999,"   S=S & VBCRLF"
    file_writeln 9999,"   s=s & Comment(i) & "+q$+" : "+q$+" & VBCRLF & "+q$+" "+q$+" & fldrs(Trim(Fname(i)))"
    file_writeln 9999,"   Next"
    file_writeln 9999," Wscript.echo s"

    file_writeln 9999,"Set dirtemp = fso.GetSpecialFolder(2)"
    file_writeln 9999,"nomtxt = dirtemp & "+q$+"\liste-ds.txt"+q$
    file_writeln 9999,"Set fictxt=fso.OpenTextFile(nomtxt, ForWriting,true)"
    file_writeln 9999,"fictxt.WriteLine S"
    file_writeln 9999,"fictxt.close"
    file_writeln 9999,"computer=net.computername"

    file_writeln 9999,"set PrinterSet = GetObject("+q$+"winmgmts:{impersonationLevel=impersonate}!//"+q$+" & Computer).ExecQuery _"
    file_writeln 9999,"    ("+q$+"SELECT * FROM Win32_Printer"+q$+")"
    file_writeln 9999,"DefPrint="+q$+"imprimante par défaut"+q$
    file_writeln 9999,"for each Printer in PrinterSet"
    file_writeln 9999,"    Attrib=Cint(Printer.Attributes)"
    file_writeln 9999,"   If (Attrib and 4)=4 then"
    file_writeln 9999,"      DefPrint=Printer.Caption"
    file_writeln 9999,"      exit for"
    file_writeln 9999,"      end if"
    file_writeln 9999,"   next"

    file_writeln 9999,"prompt="+q$+"La liste des dossiers spéciaux a été stockée dans"+q$+" & VBCRLF & _"
    file_writeln 9999,q$+"le fichier "+q$+" & nomtxt & VBCRLF & VBCRLF & _"
    file_writeln 9999,q$+"Appuyer sur :"+q$+" & VBCRLF & _"
    file_writeln 9999,q$+"  OUI pour l'imprimer sur "+q$+" & DefPrint & VBCRLF & _"
    file_writeln 9999,q$+q$+"  NON pour l'ouvrir avec le bloc-notes" +q$ +q$
    file_writeln 9999,"rep=MsgBox(prompt, vbYesNo + vbQuestion, curdir)"

    file_writeln 9999,"If rep=vbYes Then"
    file_writeln 9999,"   commutateur="+q$+" /p "+q$
    file_writeln 9999,"   show=SW_HIDE"
    file_writeln 9999,"else"
    file_writeln 9999,"   commutateur="+q$+" "+q$
    file_writeln 9999,"   show=SW_SHOWNORMAL"
    file_writeln 9999,"   end if"
' Impression ou affichage du fichier à l'aide du bloc-notes
    file_writeln 9999,"commande=shell.ExpandEnvironmentStrings("+q$+"%windir%\notepad.exe"+q$+" &  commutateur & chr(34) & nomtxt & chr(34))"
    file_writeln 9999,"shell.Run commande, show, true "
    file_writeln 9999,"Wscript.quit"

    file_close 9999
    execute_wait scr$
    file_delete scr$
END_SUB
rem ============================================================================
SUB Identifier_Bios()
' Propriétés du BIOS"
' Identifier le BIOS
' Classe : Win32_BIOS
' Alias  : BIOS
' On s'intéresse aux propriétés suivantes:
' BIOSVersion : version ;
' Manufacturer : fabricant ;
' Name : nom.

' La ligne de commande à exécuter avec le nom de la classe :
    execute_wait "cmd /c wmic path Win32_BIOS get BIOSVersion,Manufacturer,Name /value | clip"
' La commande similaire avec l'alias :
' execute_wait "cmd /c wmic bios get BIOSVersion,Manufacturer,Name /value | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Type_Niveau_Bios()
' Type et niveau du BIOS
    execute_wait "cmd /c WMIC BIOS Get Manufacturer,Name,serialnumber,Version /Format:list | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Identifier_Carte_Graphique()
' Propriétés de la carte graphique"
' Identifier la carte graphique (IGP ou GPU)
' Classe : Win32_VideoController
' On s'intéresse à la propriété suivante:
' Name : nom.

' La ligne de commande à exécuter avec le nom de la classe :
    execute_wait "cmd /c wmic path Win32_VideoController get Name /value | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Identifier_Carte_Mere()
' Propriétés de la carte mère"
' Identifier la carte mère
' Classe : Win32_BaseBoard
' Alias  : BASEBOARD
' On s'intéresse aux propriétés suivantes:
' Manufacturer : fabricant ;
' Product : nom ;
' Version : version.

' La ligne de commande à exécuter avec le nom de la classe :
    execute_wait "cmd /c wmic path Win32_BaseBoard get Manufacturer,Product,Version /value | clip"
' La commande similaire avec l'alias :
' execute_wait "cmd /c wmic BaseBoard get Manufacturer,Product,Version /value| clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Identifier_Carte_Reseaux()
' Identifier la carte réseau
' Classe : Win32_NetworkAdapter
' Alias  : NICCONFIG
' On s'intéresse aux propriétés suivantes:
' Description : description ;
' ServiceName : nom du service.

' La ligne de commande à exécuter avec le nom de la classe :
    execute_wait "cmd /c wmic path Win32_NetworkAdapter where "+chr$(34)+"MACAddress is not Null"+chr$(34)+ " get Description,ServiceName /value | clip"
' La commande similaire avec l'alias :
' execute_wait "cmd /c wmic nicconfig where "+chr$(34)+"MACAddress is not Null"+chr$(34)+" get Description,ServiceName /value | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Identifier_CPU()
' Propriétés du CPU
' Identifier le processeur (CPU)
' Classe : Win32_Processor
' Alias  : CPU
' On s'intéresse aux propriétés suivantes:
' Manufacturer : fabricant ;
' Product : nom ;
' SocketDesignation : désignation du socket.

' La ligne de commande à exécuter avec le nom de la classe :
    execute_wait "cmd /c wmic path Win32_Processor get Manufacturer,Name,SocketDesignation /value | clip"
' La commande similaire avec l'alias :
' execute_wait "cmd /c wmic cpu get Manufacturer,Name,SocketDesignation /value | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Identifier_Disques()
' Propriétés des disques de stockages
' Identifier les disques de stockages (internes ou externes)
' Classe : Win32_DiskDrive
' Alias  : DISKDRIVE
' On s'intéresse aux propriétés suivantes:
' InterfaceType : type d'interface (IDE, USB…) ;
' Manufacturer : fabricant ;
' MediaType : type de disque (fixe, amovible…) ;
' Model : modèle ;
' SerialNumber : numéro de série ;
' Size : capacité en octets.

' La ligne de commande à exécuter avec le nom de la classe :
    execute_wait "cmd /c wmic path Win32_DiskDrive get InterfaceType,Manufacturer,MediaType,Model,SerialNumber,Size /value | clip"
' La commande similaire avec l'alias :
' execute_wait "cmd /c wmic diskdrive get InterfaceType,Manufacturer,MediaType,Model,SerialNumber,Size /value | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Identifier_Moniteur()
' La ligne de commande à exécuter avec le nom de la classe :
     execute_wait "cmd /c wmic path Win32_DesktopMonitor get MonitorManufacturer,MonitorType,Name /value | clip"
' La commande similaire avec l'alias :
' execute_wait "cmd /c wmic desktopmonitor get MonitorManufacturer,MonitorType,Name /value | clip"
    caption 1,clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Identifier_OS()
' Propriétés du système d'exploitation
' On s'intéresse aux propriétés suivantes:
' CSDVersion : le numéro du Service Pack ;
' Manufacturer : le fabricant ;
' Name : le nom du système d'exploitation ;
' OperatingSystemSKU : identifiant unique de la version de Windows ;
' OSArchitecture : architecture (32 ou 64 bits) ;
' Version : numéro de version.

' La ligne de commande à exécuter avec le nom de la classe :
    execute_wait "cmd /c wmic path Win32_OperatingSystem get CSDVersion,Manufacturer,Name,OperatingSystemSKU,OSArchitecture,Version /value | clip"
' La commande similaire avec l'alias :
' execute_wait "cmd /c wmic os get CSDVersion,Manufacturer,Name,OperatingSystemSKU,OSArchitecture,Version /value | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Identifier_RAM()
' Propriétés de la RAM
' On s'intéresse aux propriétés suivantes:
' Capacity     : capacité en octets ;
' FormFactor   : format (DIMM, SO-DIMM…) ;
' Manufacturer : fabricant ;
' PartNumber   : numéro d'identification donné par le fabricant ;
' SerialNumber : numéro de série.

' La ligne de commande à exécuter avec le nom de la classe :
    execute_wait "cmd /c wmic path Win32_PhysicalMemory get Capacity,FormFactor,Manufacturer,PartNumber,SerialNumber /value | clip"
' La commande similaire avec l'alias :
' execute_wait "cmd /c wmic memorychip get Capacity,FormFactor,Manufacturer,PartNumber,SerialNumber /value | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Liste_Disques()
' Liste des disques
execute_wait "cmd /c wmic logicaldisk where drivetype=3 get name, freespace, systemname, filesystem, size, volumeserialnumber | clip"
caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Partitions_Disques()
' Partitions des disques
    execute_wait "cmd /c wmic partition get name,bootable,size,type | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Type_Disques()
' Type de disque
    execute_wait "cmd /c wmic diskdrive get name,size,model | clip"
    caption 1,clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Serveur_Et_Memoires()
' Nom du serveur et la mémoire totale
    execute_wait "cmd /c wmic COMPUTERSYSTEM get TotalPhysicalMemory,caption | clip"
    caption 1,clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Liste_Prog_Demarrage()
' Liste des programmes partant au démarrage du PC"
    execute_wait "cmd /c wmic startup list brief | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Nom_Machine()
' Nom de la machine"
    execute_wait "cmd /c wmic COMPUTERSYSTEM get caption | clip"
    caption 1, clipboard_string_paste$
END_SUB
rem ============================================================================
SUB Quitter()
    if message_information_yes_no("Vous voulez vraiment quitter ?") = 1
       for i = height(0) to 0 step -5 : height 0, i : width 0,i : next i
       terminate
    end_if
END_SUB
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

Au plaisir de lire vos retours! sunny


J'ai édité le code pour éviter l'erreur rencontrée par Minibug


Dernière édition par papydall le Sam 10 Oct 2015 - 5:05, édité 1 fois (Raison : pour éviter l'erreur rencontrée par Minibug[)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
mindstorm

avatar

Nombre de messages : 536
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Windows Management Instrumentation    Jeu 8 Oct 2015 - 21:26

HA LA LA
qui osera dire que Windows n'est pas merveilleux ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Windows Management Instrumentation    Jeu 8 Oct 2015 - 21:34

encore une belle prouesse !

Bravo Papydall Wink

Juste un bug sur Enum Special Folders scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc37



Nombre de messages : 457
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Windows Management Instrumentation    Jeu 8 Oct 2015 - 23:46

Mise à part bravo et merci, tu nous laisses coi !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5551
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Windows Management Instrumentation    Ven 9 Oct 2015 - 0:08

Mindstorm, Minibug, Marc37 merci à vous trois.

Hé, attendez ….
Mindstorm, Minibug, Mark37 , salut les 3M.

@Minibug
Quel est le bug sur Enum Special Folders ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Windows Management Instrumentation    Ven 9 Oct 2015 - 7:54

Bonjour Papydall !

J'ai fais tous les tests et j'ai fini par Enum Special Folders. Et là j'ai eu un message d'erreur de Panoramic.
Pas le temps de retester ce matin mais je referai le test.

Bonne journée Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Windows Management Instrumentation    Ven 9 Oct 2015 - 8:41

Bonjour,
Chez moi, il n'y a pas d'erreur.
Revenir en haut Aller en bas
papydall

avatar

Nombre de messages : 5551
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Windows Management Instrumentation    Ven 9 Oct 2015 - 10:46

Bonjour tout le monde.
Bonne nouvelle!
Merci Cosmos Septante king
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Marc37



Nombre de messages : 457
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Windows Management Instrumentation    Ven 9 Oct 2015 - 20:58

De mon coté, après avoir fait le "singe" , je n'ai pas réussi à mettre le programme en défaut.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5551
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Windows Management Instrumentation    Ven 9 Oct 2015 - 23:53

Marc37 a écrit:
De mon coté, après avoir fait le "singe" , je n'ai pas réussi à mettre le programme en défaut.

Normal ! C'est parce que le programme est sans défaut!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Windows Management Instrumentation    Ven 9 Oct 2015 - 23:58

Désolé Papydall !!

J'ai bien un message d'erreur : FAIL ACCESS DENIED sur Enum Special Folders

Je ne comprends pas pourquoi Question
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5551
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Windows Management Instrumentation    Sam 10 Oct 2015 - 0:49

FAIL ACCESS DENIED c'est parce que le système n'a pas trouvé le fichier Dossiers_speciaux.vbs qui a été enregistré dans le répertoire en cours. Or Panoramic  considère le répertoire en cours comme étant celui du dernier répertoire utilisé ce qui n'est pas toujours le cas.
Bon, si mon charabia n'est pas clair, ce n'est pas important.
L'important c'est que j'ai modifié le code ci-haut et il marche.

Essaie avec le nouveau code et tu n'auras plus de FAIL ACCESS DENIED. No Parole de Papydall! tongue
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Windows Management Instrumentation    Sam 10 Oct 2015 - 8:58

Bonjour Papydall

J'ai retesté... et c'est parfait !

Je dirai même parfaitement parfait ! cheers cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5551
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Windows Management Instrumentation    Sam 10 Oct 2015 - 12:33

Good, very good.
C'est donc la perfection parfaite! king sunny king sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Windows Management Instrumentation    

Revenir en haut Aller en bas
 
Windows Management Instrumentation
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Acer eData Security Management
» Color management by Steve Wright
» Mon ordinateur Windows Xp redémarre tout seul
» Windows média player ???
» Problème d'administration sous windows seven

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: