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

Ridelight

[VB6] Obter número de série do Disco Rígido

1 mensagem neste tópico

Dim ns As New Scripting.FileSystemObject
Dim numero As Scripting.Drive

Set numero = ns.GetDrive("C") ' podem alterar o C para a letra da drive que quiserem
Print Hex$(numero.SerialNumber)

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