Search  
Thursday, May 24, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.

SearchForum Home
  Profox  Anunturi administrative  serie placa de ...
 serie placa de baza
 
 5/29/2008 6:59:12 PM
User is offlinegeorgian_craciun
77 posts


serie placa de baza
 (N/A)
Daca intereseaza pe cineva cum se determina seria placii de baza, codul este cel de mai jos.Cred ca alaturi de determinarea seriei HDD-ului din FAQs va fi utila.


Clear
Local loloc, lowmi, locolboard, loboard, loproperty

loloc = Createobject('WbemScripting.SWbemLocator')
lowmi = loloc.ConnectServer()

locolboard = lowmi.InstancesOf('Win32_Baseboard')
For Each loboard In locolboard
    For Each loproperty In loboard.Properties_
        If Inlist(Upper(loproperty.Name),'NAME', 'SERIALNUMBER', 'MANUFACTURER') Then
            ? loproperty.Name, loproperty.Value
        Endif
        loproperty = .Null.
    Endfor
    loboard = .Null.
Endfor

Store .Null. To lowmi, loloc
 5/29/2008 9:44:23 PM
User is offlinedni
420 posts
2nd


Re: serie placa de baza
 (N/A)
...nice code....am pus si eu pe undeva un cod pentru serial number la procesor, mai este cod pentru serial number la hdd ...poate iese un sys info ...
 5/29/2008 10:33:02 PM
User is offlinegeorgian_craciun
77 posts


Re: serie placa de baza
 (N/A)
Gasesti mai multe la :
http://weblogs.foxite.com/stuartdunkeld/archive/2005/06/07/500.aspx
 5/29/2008 10:47:51 PM
User is offlinePetre Popescu
253 posts
4th


Re: serie placa de baza
 (N/A)
O 'colectie' mare mare de scripturi WMI - 'Windows Management Instrumentation' o puteti downloada de la TechNet Script Center Sample Scripts
Scripturile sunt vb dar se pot converti usor.
 5/30/2008 12:33:54 AM
User is offlinegeorgian_craciun
77 posts


Re: serie placa de baza
 (N/A)
ai dreptate dni.
Uite doua coduri pentru seria procesorului :

@0,0 Clear
loWMI = Getobject("winmgmts:\\.\root\cimv2")
oItems = loWMI.ExecQuery("select * from Win32_Processor")
Cnt=0
For Each oItem In oItems
    For Each oProperty In oItem.Properties_
        If Inlist(UPPER(oProperty.Name),"NAME","PROCESSORID")
            ? oProperty.Name, oProperty.Value
        Endif
    Endfor
Endfor

***** sau *****

oWMI = getobject("winmgmts:")
oProcessors = oWMI.InstancesOf("WIN32_Processor")
for each oProcessor in oProcessors
    ? oProcessor.processorID
next

sunt foarte multe chestii pe tema asta, dar am zis ca uzitate ar fi astea trei.
  Profox  Anunturi administrative  serie placa de ...

Search  Forum Home         

 Google Ads Minimize

    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement