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
» KGF_dll - nouvelles versions
par bignono Aujourd'hui à 20:14

» Compilateur FBPano
par jean_debord Aujourd'hui à 11:07

» Documentation de KGF
par Klaus Hier à 22:52

» Zoom sur une portion d'écran
par JL35 Hier à 21:51

» double guillemets "" dans un EDIT
par pascal10000 Hier à 21:08

» Recherche d'une expression dans un source
par Marc 37 Hier à 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 17 Nov 2017 - 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

» Bizzarerie dans Edge
par Marc 37 Mer 15 Nov 2017 - 17:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
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 : 5593
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 : 5859
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 : 5593
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 : 5991
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 : 5593
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 : 5991
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 : 5593
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 : 7997
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 : 162
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 : 5991
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 : 5593
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 : 5991
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 : 7997
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: