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
» Immortaliser les photos de famille
par Jean Claude Hier à 21:24

» Concours de Morpions
par jjn4 Hier à 16:34

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Quelques informations sur votre PC:

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

avatar

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

MessageSujet: Quelques informations sur votre PC:   Sam 11 Avr 2015 - 21:02

Eh bien, tout est dans le titre, rien à ajouter.

Code:

rem ============================================================================
rem              Quelques informations sur votre PC:
rem ============================================================================
rem  Le Domaine
rem  Le Nom Netbios de l’ordinateur.
rem  L’utilisateur actuellement connecté (la session ouverte).
rem  L’adresse MAC.
rem  L’adresse IP de la machine.
rem ============================================================================
alpha 1 : font_bold 1
Info_PC()
caption 1, CLIPBOARD_STRING_PASTE$
end
rem ============================================================================
SUB Info_PC()
  dim_local scr$ , q$
  scr$ = "C:\TEMP\Info_PC.vbs" : q$ = chr$(34)
  FILE_OPEN_WRITE 9999,scr$
  FILE_WRITELN 9999,"set wshnetwork=wscript.createobject("+q$+"wscript.network"+q$+")"
  FILE_WRITELN 9999,"strComputer = "+q$+"."+q$
  FILE_WRITELN 9999,"Set objWMIService = GetObject("+q$+"winmgmts:\\"+q$+"&  strComputer & "+q$+"\root\cimv2"+q$+")"
  FILE_WRITELN 9999,"Set colAdapters = objWMIService.ExecQuery _"
  FILE_WRITELN 9999,"    ("+q$+"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"+q$+")"
  FILE_WRITELN 9999,"n = 1"
  FILE_WRITELN 9999,"For Each objAdapter in colAdapters"
  FILE_WRITELN 9999,"strCopy = "+q$+"Domaine : "+q$+" &wshnetwork.userdomain & vbcr & vbcr &"+q$+"Nom de l'ordinateur: "+q$+"  &wshnetwork.computername & vbcr & vbcr &"+q$+"Utilisateur Connecté: "+q$+"  &wshnetwork.username & vbcr & vbcr &"+q$+"Adresse MAC: "+q$+"  & objAdapter.MACAddress & vbcr& vbcr &  "+q$+"Adresse IP: "+q$+" & objAdapter.IPAddress(i)"
  FILE_WRITELN 9999,"With CreateObject("+q$+"Scripting.FileSystemObject"+q$+")"
  FILE_WRITELN 9999," With .CreateTextFile("+q$+"Child.vbs"+q$+")"
  FILE_WRITELN 9999,"  .WriteLine "+q$+"CreateObject("+q$+q$+"WScript.Shell"+q$+q$+").SendKeys "+q$+q$+"^c{ENTER}"+q$+q$+q$
  FILE_WRITELN 9999,"  .Close"
  FILE_WRITELN 9999," End With"
  FILE_WRITELN 9999," CreateObject("+q$+"WScript.Shell"+q$+").Run "+q$+"Child.vbs"+q$
  FILE_WRITELN 9999," Dummy = InputBox("+q$+q$+","+q$+q$+" , strCopy)"
  FILE_WRITELN 9999," .DeleteFile "+q$+"Child.vbs"+q$
  FILE_WRITELN 9999,"End With"
  FILE_WRITELN 9999,"next"
  FILE_CLOSE 9999
    EXECUTE_WAIT "wscript.exe "+scr$
  FILE_DELETE scr$
END_SUB
rem ============================================================================


Dernière édition par papydall le Sam 11 Avr 2015 - 22:01, édité 2 fois (Raison : Info_PC et non Info_Sys)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Quelques informations sur votre PC:   Sam 11 Avr 2015 - 21:30

Utile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Quelques informations sur votre PC:   Sam 11 Avr 2015 - 21:35

Puisque c'est ainsi, voilà un bonus.

Code:

rem ============================================================================
rem              Informations sur votre système
rem ============================================================================
alpha 1 : font_bold 1
Info_Sys()
caption 1, CLIPBOARD_STRING_PASTE$
end
rem ============================================================================
' Informations sur votre système d'exploitation
SUB Info_Sys()
    dim_local scr$ , q$
    scr$ = "C:\TEMP\Info_Sys.vbs" : q$ = chr$(34)
    FILE_OPEN_WRITE 9999,scr$
    FILE_WRITELN 9999,"On Error Resume Next"
    FILE_WRITELN 9999,"Set oShell = CreateObject("+q$+"wscript.Shell"+q$+")"
    FILE_WRITELN 9999,"Set env = oShell.environment("+q$+"Process"+q$+")"
    FILE_WRITELN 9999,"strComputer = env.Item("+q$+"Computername"+q$+")"
    FILE_WRITELN 9999,"Dim objWMIService"
    FILE_WRITELN 9999,"Dim colItems, objItem"
    FILE_WRITELN 9999,"Set objWMIService = GetObject("+q$+"winmgmts:\\"+q$+"&  strComputer & "+q$+"\root\cimv2"+q$+")"
    FILE_WRITELN 9999,"Set colItems = objWMIService.ExecQuery ("+q$+"Select * from Win32_OperatingSystem"+q$+")"
    FILE_WRITELN 9999,"For Each objItem in colItems"
    FILE_WRITELN 9999,"strInfo = "+q$+"Informations OS"+q$+" & VbCr & _ "
    FILE_WRITELN 9999,q$+"Editeur: "+q$+" & objItem.Manufacturer & VbCr & _"
    FILE_WRITELN 9999,q$+"Système d'Exploitation: "+q$+" & objItem.Caption & VbCr & _"
    FILE_WRITELN 9999,q$+"Version: "+q$+" & objItem.Version & VbCr & _"
    FILE_WRITELN 9999,q$+"Service Pack: "+q$+" & objItem.CSDVersion & VbCr & _"
    FILE_WRITELN 9999,q$+"GUID: " +q$+"& objItem.SerialNumber & VbCr & _"
    FILE_WRITELN 9999,q$+q$
    FILE_WRITELN 9999,"With CreateObject("+q$+"Scripting.FileSystemObject"+q$+")"
    FILE_WRITELN 9999," With .CreateTextFile("+q$+"Child.vbs"+q$+")"
    FILE_WRITELN 9999,"  .WriteLine "+q$+"CreateObject("+q$+q$+"WScript.Shell"+q$+q$+").SendKeys "+q$+q$+"^c{ENTER}"+q$+q$+q$
    FILE_WRITELN 9999,"  .Close"
    FILE_WRITELN 9999," End With"
    FILE_WRITELN 9999," CreateObject("+q$+"WScript.Shell"+q$+").Run "+q$+"Child.vbs"+q$
    FILE_WRITELN 9999," Dummy = InputBox("+q$+q$+","+q$+q$+" , strInfo)"
    FILE_WRITELN 9999," .DeleteFile "+q$+"Child.vbs"+q$
    FILE_WRITELN 9999,"End With"
    FILE_WRITELN 9999,"Next"
    FILE_CLOSE 9999
    EXECUTE_WAIT "wscript.exe "+scr$
    FILE_DELETE scr$
END_SUB
rem ============================================================================

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Quelques informations sur votre PC:   Sam 11 Avr 2015 - 21:46

Ta deuxième sub est quand même mieux, pas besoin d'acquitter la boîte de dialogue vbs.

Ainsi c'est toi qui es devenu le véritable spécialiste vbs, je vais le dire à Francis-mr !

PS bizarre, je relance la 1ère sub, et là la boîte de dialogue disparait spontanément à chaque fois, elle n'est restée affichée que la 1ère fois...

Et donc ce sont deux sub du même nom mais qui ne renvoient pas les mêmes informations.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Quelques informations sur votre PC:   Sam 11 Avr 2015 - 22:09

Le 1er code c'est Info_PC
Le second c'est Info_Sys

C'est corrigé dans le 1er

JL35 a écrit:
Ainsi c'est toi qui es devenu le véritable spécialiste vbs, je vais le dire à Francis-mr !

Surtout pas !

Et pour me faire pardonner, voilà le plus court, c'est aussi le meilleur!

Code:

rem ============================================================================
rem  Afficher toutes les informations du système
rem  (ressources matérielles, composants, environnement logiciel...).
rem ============================================================================
hide 0
execute "cmd /c msinfo32"
terminate
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Quelques informations sur votre PC:   Sam 11 Avr 2015 - 23:14

Sans conteste, on ne peut demander mieux, c'est même trop, on ne sait plus où donner de la tête !
Et sans vbs ! mais c'est interactif, infos à l'écran seulement.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 4:01

Nos PC cachent bien des trésors.
Le seul problème c’est de savoir les dénicher.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 9:54

Bonjour papydall
J'obtiens un message d'erreur avec ta 2eme SUB :
Code:
Script: C:\TEMP\Info_Sys.vbs
Ligne:  7
Caract.: 48
Erreur : ')' attendu
Code : 800A03EE
Source: Erreur de compilation Microsoft VBScript

Edit: Non, c'est bon, c'est mon plugin de récupération du champ code qui ne fonctionne pas correctement... Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 12 Avr 2015 - 12:52

Pour le premier code, tout en haut de la page :


Pour le second :

puis, soit le code dans le form 0 soit rien...

Pour le troisième c' est la fenêtre windows des infos qui s' ouvre.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Francis-mr



Nombre de messages : 160
Age : 65
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 14:26

papydall a écrit:
Et pour me faire pardonner, voilà le plus court, c'est aussi le meilleur!
Non il y a plus court (ne pas passer par "cmd")  Very Happy
Code:
hide 0
execute msinfo32
terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.com
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 16:37

Ceci c'est pour affichage dans une fenêtre.
Si on veut des résultats dans un fichier, pour analyse par programme:
Code:
EXECUTE_WAIT "cmd.exe /c systeminfo.exe >Z:\Infos.txt"
TERMINATE
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 17:27

Bonjour tout le monde.
@Nardo26
Ne permets plus à ton plugin de te jouer des tours (bons ou mauvais). Dis-lui que c’est de la part de Papydall. Laughing

@ygeronimi
Erreur : Permission refusée à la ligne 10, caractère 2
Même ton système ne te reconnait pas ! Il est fâché contre toi ?  Rolling Eyes
La ligne 10 du script qui correspond à la ligne 23 du code, c’est
Code:

strInfo = "Informations OS"  & VbCr & _
Elle se poursuit sur les lignes suivantes. En fait c’est une affectation à la variable strInfo du type string.
Franchement, je ne vois pas (même en essuyant mes lunettes ! Cool ) où ça cloche.


Chez moi, les trois codes donnent les copies d’écran suivantes :

Spoiler:
 

Spoiler:
 

Spoiler:
 

Bon, maintenant vous savez tout de ma configuration. king

@Francis-mr
Wouais,bien vu :  on peut envoyer ad patres cmd /c

Edit :
On ne peut mieux s’exprimer que JL35 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 18:17

Si, mais c'est dur Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 13 Avr 2015 - 5:03

@Papydall,

Serait ce le début d' un autre paquet de 12 ?.... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Quelques informations sur votre PC:   

Revenir en haut Aller en bas
 
Quelques informations sur votre PC:
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Quelques informations sur les rangs, activités, et autres...
» Informations complémentaires sur votre Bbox TV Fibre
» Quelle partie de votre cerveau utilisez-vous ?
» Votre chanson préféré de NOEL c'est laquelle ?
» Votre source sur Joseph Gordon-Levitt

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: