PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → info matériel
info matériel
Iniciado por gisele, 01,mar. 2006 14:27 - 1 respuesta
#1
Publicado el 01,marzo 2006 - 14:27
Bonjour à tous,

quelqu'un connaitrait la façon de récupérer le N° de processeur et la mac adresse de la carte réseau sur un PC ?

merci pour l'info.
#2
Publicado el 02,marzo 2006 - 17:19
POUR LES ADRESSES MAC DES Adaptateurs Ca peut aussi renvoyer les infos d'un autre computer

PROCEDURE WMIGetNetCardInfo(pComputerName=NetNomMachine())

objWMIService est un objet Automation "MSScriptControl.ScriptControl"
ProgrammeVbs est une chaîne
ResultatVbs est une chaîne

ProgrammeVbs += "Function InfoNetCard(ComputerName)"+CRLF
ProgrammeVbs += "On Error Resume Next" +CRLF
ProgrammeVbs += "strComputer = ComputerName"+CRLF
ProgrammeVbs += "strResult = "+Caract(34)+Caract(34)+CRLF
ProgrammeVbs += "Set objWMIService = GetObject("+Caract(34)+"winmgmts:\\"+Caract(34)+" & strComputer & "+Caract(34)+"\root\cimv2"+Caract(34)+")"+CRLF
ProgrammeVbs += "Set colItems = objWMIService.ExecQuery("+Caract(34)+"Select * from Win32_NetworkAdapterConfiguration"+Caract(34)+",,48)"+CRLF
ProgrammeVbs += "For Each objItem in colItems"+CRLF
ProgrammeVbs += "strResult = strResult & objItem.Description & chr(9)"+CRLF
ProgrammeVbs += "strResult = strResult & objItem.DNSDomain & chr(9) "+CRLF
ProgrammeVbs += "strResult = strResult & objItem.MACAddress & chr(9)"+CRLF
ProgrammeVbs += "strResult = strResult & objItem.SettingID & chr(9)"+CRLF
ProgrammeVbs += "strResult = strResult & objItem.DHCPEnabled & chr(9)"+CRLF
ProgrammeVbs += "strResult = strResult & objItem.ServiceName & chr(13) & chr(10)"+CRLF
ProgrammeVbs += "Next"+CRLF
ProgrammeVbs += "InfoNetCard = strResult"+CRLF
ProgrammeVbs += "End Function"+CRLF

objWMIService>>Language("VBScript")
objWMIService>>Reset()

WHEN EXCEPTION IN
objWMIService>>AddCode(ProgrammeVbs)
DO
Erreur("Erreur dans le programme vbs...")
RENVOYER ""
END

ResultatVbs=""

WHEN EXCEPTION IN
ResultatVbs = objWMIService>>Eval("InfoNetCard("+Caract(34)+pComputerName+Caract(34)+")")
DO
Erreur("Erreur d'execution du programme vbs")
RENVOYER ""
END

IF ResultatVbs<>"" THEN ResultatVbs = ResultatVbs[[1 sur Taille(ResultatVbs)-2]]

RENVOYER ResultatVbs
→ Volver a WINDEV 2024