Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Retrieve DELL Service Tag
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
01302513
Message ID:
01302570
Vues:
7
Juan,

Simplifying for just one computer as a parameter it would look like this
LPARAMETERS tcComputer

LOCAL lcComputer, loWMI, loSMBIOS, loColSMBIOS

lcComputer		= IIF(VARTYPE(tcComputer) = 'C', tcComputer, GETENV("COMPUTERNAME"))
loWMI			= GETOBJECT("winmgmts:\\" + lcComputer)
loColSMBIOS		= loWMI.ExecQuery("Select * from Win32_SystemEnclosure")

For Each loSMBIOS in loColSMBIOS
	? lcComputer, ": ", loSMBIOS.SerialNumber
Next
[Update]

In order to access remote computers (any computer other than the one where the script is running), you will need permissions. Also you can see I ignored the impersonation level and the namespace (root\cimv2) for both of those options are the default for windows XP and newer if you run in older os you will need to put that back, just ignore the _ and change any & with +
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?

"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare

"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform