Srmarinhas Posted May 29, 2013 at 01:08 PM Report #509585 Posted May 29, 2013 at 01:08 PM Imports System.Management Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim HDD_Serial As String Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive") For Each hd In hdd.Get HDD_Serial = hd("SerialNumber") Label2.Text = HDD_Serial Next End Sub end class este código funciona bem no Windows 8 mas da erro no xp
vikcch Posted May 29, 2013 at 06:28 PM Report #509644 Posted May 29, 2013 at 06:28 PM Criaste o topico na seccao errada, aqui é para VBA, isso é vb.net, também há uma seccao para isso....
Srmarinhas Posted May 30, 2013 at 12:57 PM Author Report #509785 Posted May 30, 2013 at 12:57 PM ok obrigado. já postei no sitio devido.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now