api pour info sur Poste de travail

Bnjr,

parmi d'autres FAQ VB (ou access, donc VBA)
Self-access propose plusieurs astuces sur le sujet
@+
"Eric" <Eric@discussions.microsoft.com> a écrit dans le message de
news:B7A82848-549E-4809-8705-629418851E41@microsoft.com...

bonsoir à tous
je suis à la recherche d'un api, dll, ocx qui permettent de recuperer des
info sur le poste de travail du genre : Nom de l'ordinateur, version OS,
service Pack, memoire, version Office sur le PC si possible

Merci à tous
Eric

on peut aussi regarder ds l'api-guide, google group, msdn

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

YannX wrote:

Bnjr,

parmi d'autres FAQ VB (ou access, donc VBA)
Self-access propose plusieurs astuces sur le sujet
@+
"Eric" <Eric@discussions.microsoft.com> a écrit dans le message de
news:B7A82848-549E-4809-8705-629418851E41@microsoft.com...

bonsoir à tous
je suis à la recherche d'un api, dll, ocx qui permettent de
recuperer des info sur le poste de travail du genre : Nom de
l'ordinateur, version OS, service Pack, memoire, version Office sur
le PC si possible

Merci à tous
Eric

Bonjour,

Pour exemple je te met le code source suivant, le principe est de décalrer
correctement la fonction d'api (tu trouveras de l'aide un peu partout, et
puis les nom des fonctions sont quand meme explicit).

Option Explici
'------------------------DECLARATION-------------------------------------------------
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Private Const MAXLENGTH As Long = 25
'--------------------------------------------------------------------------------------

Public Function ComputerName() As Strin
'---------------------------------------------------------------------------------------
' Module : sysinfo
' Procedure : sysinfo.GetComputerName
' Objet : Recupere le nom machin
'---------------------------------------------------------------------------------------
Dim stComputerName As String, lgComputerName As Long
On Error GoTo ComputerName_Error

stComputerName = Space$(MAXLENGTH - 1)
lgComputerName = MAXLENGTH
Call GetComputerName(stComputerName, lgComputerName)
ComputerName = Split(stComputerName, Chr$(0))(0)

On Error GoTo 0
Exit Function

ComputerName_Error:

MsgBox "Error " & Err.Number & " (" & Err.DESCRIPTION & ") in procedure
ComputerName of Module SysInfo"
End Function

Public Function UserName() As Strin
'---------------------------------------------------------------------------------------
' Module : SysInfo
' Procedure : UserName
' Objet : recupere le nom utilisateu
'---------------------------------------------------------------------------------------
Dim lLen As Long
Dim sUserName As String
'Creer un buffer
On Error GoTo UserName_Error

lLen = MAXLENGTH + 1
sUserName = String(lLen, "X")
'prend le nom
GetUserName sUserName, lLen
'Affiche le nom utilisateur
UserName = Trim$(sUserName)

On Error GoTo 0
Exit Function

UserName_Error:

MsgBox "Error " & Err.Number & " (" & Err.DESCRIPTION & ") in procedure
UserName of Module SysInfo"
End Function


"Eric" a écrit :

bonsoir à tous
je suis à la recherche d'un api, dll, ocx qui permettent de recuperer des
info sur le poste de travail du genre : Nom de l'ordinateur, version OS,
service Pack, memoire, version Office sur le PC si possible

Merci à tous
Eric