sistem raporu Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub SysInfo()
Dim s As String, oSystem As Object, item As Object

Set oSystem = GetObject("winmgmts:").instancesOf("Win32_ComputerSystem")

For Each item In oSystem
    s = "Computer Info" & vbCrLf
    s = s & "-------------------------------" & vbCrLf
    s = s & "Name: " & item.Name & vbCrLf
    s = s & "Status: " & item.Status & vbCrLf
    s = s & "Type: " & item.SystemType & vbCrLf
    s = s & "Mfg: " & item.Manufacturer & vbCrLf
    s = s & "Model: " & item.Model & vbCrLf
    s = s & "RAM: " & item.TotalPhysicalMemory  1024000 & "mb" & vbCrLf
    s = s & "Domain: " & item.Domain & vbCrLf
    s = s & "Role: " & TranslateDomainRole(item.DomainRole) & vbCrLf
    s = s & "Current User: " & item.UserName & vbCrLf
    
    MsgBox s
Next

Set oSystem = Nothing

End Sub

Function TranslateDomainRole(ByVal roleID) As String
Dim RetString As String

Select Case roleID
        Case 0
            RetString = "Standalone Workstation"
        Case 1
            RetString = "Member Workstation"
        Case 2
            RetString = "Standalone Server"
        Case 3
            RetString = "Member Server"
        Case 4
            RetString = "Backup Domain Controller"
        Case 5
            RetString = "Primary Domain Controller"
        Case Else
            RetString = "Unknown"
    End Select

TranslateDomainRole = RetString

End Function

Benzer Sonuçlar
No	Makro Adı
1	sistem raporu
2	işletim sistemini öğrenme
3	versiyon numaralarını öğrenme
4	sistem tarihini açma
5	sistem yazıcılarını görme
6	dosya sistemini gösterme
7	geçici klasörler
8	dtpickerin değerinin database den gelen bir değer olmasını istiyorsak
9	dosya sistemini öğrenme
10	wmi sistem
11	sayfaları, sütunları, satırları, hücrelerin raporunu verir
12	internet bağlantısı olduğunda veya olmadığında raporunu worde yazar
13	dosyayı kim açtı
14	dosyayı kim ne zaman hangi tarihte açtı txt
15	Dosyayı kim açtı 2
16	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
17	Bir E-postaya Çalışma Kitabını Ekleyin: Bu makroyu çalıştırdıktan sonra, varsayılan posta istemcinizi ve ekteki etkin çalışma kitabınızı bir eki olarak açacaktır.
18	framede adres bilgisi
19	excel sayfasında yazılanları texte çevirmek
20	llistede kaç kişi olduğunu bulmanın kısayolu.

Benzer Sonuçlar

Makro Adı

sistem raporu

işletim sistemini öğrenme

versiyon numaralarını öğrenme

sistem tarihini açma

sistem yazıcılarını görme

dosya sistemini gösterme

geçici klasörler

dtpickerin değerinin database den gelen bir değer olmasını istiyorsak

dosya sistemini öğrenme

wmi sistem