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
» Dessin 2D: largeur de trait
par papydall Hier à 23:31

» Projet de planétarium virtuel.
par Jean Claude Hier à 21:59

» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Hier à 20:32

» Animation: Feux de signalisation
par Minibug Hier à 20:28

» Quantité de mémoire utilisée par un exe
par Jack Mar 19 Juin 2018 - 16:39

» Problème avec 'file_load'.
par Pedro Alvarez Lun 18 Juin 2018 - 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

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

Partagez | 
 

 Quelques informations sur votre PC:

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5952
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 - 20: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 - 21: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 : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

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

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

avatar

Nombre de messages : 5952
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 - 20: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 : 6275
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Quelques informations sur votre PC:   Sam 11 Avr 2015 - 20: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 : 5952
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: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 : 6275
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Quelques informations sur votre PC:   Sam 11 Avr 2015 - 22: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 : 5952
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 - 3: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 : 50
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 8: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 : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 12 Avr 2015 - 11: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 : 167
Age : 66
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 13: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 : 6275
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 15: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 : 5952
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 - 16: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 : 6275
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Quelques informations sur votre PC:   Dim 12 Avr 2015 - 17: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 : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 13 Avr 2015 - 4: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:
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: