• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

David Pintassilgo

[VB6] Como ver o numero de serie do disco?

3 mensagens neste tópico

A pergunta diz tudo.

Quem diz o nº de serie do disco diz outros valores que cada pc tem e que á partida são unicos.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Em vb6 é assim, tem que adicionar uma referencia a SCRRUN.DLL incluída no Microsoft Scripting Runtime library.

Outra opção é chamar a função GetVolumeInformation da API.

    Public Function DevolveNumeroSerie(Optional ByVal LetraDrive As String) As Long
      
          Dim fso As Object, Drv As Object
          
          
          Set fso = CreateObject("Scripting.FileSystemObject")
          
          
          If LetraDrive <> "" Then
              Set Drv = fso.GetDrive(LetraDrive)
          Else
              Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
          End If
      
          With Drv
              If .IsReady Then
                  DriveSerial = Abs(.SerialNumber)
              Else    
                  DriveSerial = -1
              End If
          End With
          

          Set Drv = Nothing
          Set fso = Nothing
          
          DevolveNumeroSerie = DriveSerial
          
      End Function

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora