Quelques informations sur votre PC:

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 ============================================================================

Utile

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 ============================================================================

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

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.

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 ============================================================================

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

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.

Nos PC cachent bien des trésors.
Le seul problème c’est de savoir les dénicher.

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

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

Quelques informations sur votre PC: Captur18

Pour le second :

Quelques informations sur votre PC: Captur19

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.

Nombre de messages : 186 Date d'inscription : 26/11/2012

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

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

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

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 !

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

Si, mais c'est dur Very Happy

@Papydall,

Serait ce le début d' un autre paquet de 12 ?.... Laughing

» Quelques informations ...
» Informations sur les disques durs montés sur votre système
» Tester votre réseau local et votre connexion Internet
» Informations sur le développement futur.
» Partage d'informations sur Panoramic.