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
» Découpe dans une image
par JL35 Hier à 23:03

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par Marc Hier à 21:51

» Pour faire plaisir à Marc37.
par Marc Hier à 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Hier à 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

» Ludothèque Panoramic
par jjn4 Mar 20 Fév 2018 - 15:42

» Calculus
par Ouf_ca_passe Mar 20 Fév 2018 - 9:06

» 6 (en analyse):confusion de variable locale entre SUB et FNC
par Jack Mar 20 Fév 2018 - 8:18

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Quelques informations sur votre PC:

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5744
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 : 5895
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 : 5744
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 : 6148
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 : 5744
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 : 6148
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 : 5744
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 : 49
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 : 8015
Age : 46
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 : 165
Age : 65
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 : 6148
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 : 5744
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 : 6148
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 : 8015
Age : 46
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: