Completed

Need hard driver serial number on shared computer with VB6

We have a VB6 app which uses the computer's C: drive serial number for security. We have the App installed on computer B, and it runs fine on computer B. The app can read the serial number from computer B's C drive. When accessing the app from computer A on shared computer B over the LAN, the app reads the C: driver serial number from computer A, not computer B. I need to know how to read the C: driver serial number from computer B, the computer with the app installed.

Here's the code I use:

Public Function GetSerialNumber( _

ByVal sDrive As String) As Long

If Len(sDrive) Then

If InStr(sDrive, "\\") = 1 Then

' Make sure we end in backslash for UNC

If Right$(sDrive, 1) <> "\" Then

sDrive = sDrive & "\"

End If

Else

' If not UNC, take first letter as drive

sDrive = Left$(sDrive, 1) & ":\"

End If

Else

' Else just use current drive

sDrive = vbNullString

End If

' Grab S/N -- Most params can be NULL

Call GetVolumeInformation( _

sDrive, vbNullString, 0, GetSerialNumber, _

ByVal 0&, ByVal 0&, vbNullString, 0)

End Function

Skills: Visual Basic

See more: hard disk serial number assembly language, excel vba hard drive serial number, delphi manufacturer hard drive serial number delphi, read hard drive serial number vba, excel vba hard disk serial number, hard disk serial number changer, hard disk serial number changer unable to write, change hard drive serial number windows 10, change hard drive serial number vmware, get hard drive serial number powershell, get hard drive serial number windows 7, hard disk serial number finder software, hard drive serial number windows 10, how to get hard drive serial number using cmd, hard drive serial number registry, hard drive serial number lookup, hard disk serial number finder, track hard drive serial number, hard disk serial number changer windows 10, how to find hard disk serial number using cmd

About the Employer:
( 116 reviews ) Livonia, United States

Project ID: #29964538

Awarded to:

fchorley99

Hello, I assume in this bit of your details - > ' Grab S/N -- Most params can be NULL Call GetVolumeInformation( _ sDrive, vbNullString, 0, GetSerialNumber, _ ByVal 0&, ByVal 0&, vbNullString, 0) End Function the More

$150 USD in 7 days
(2 Reviews)
2.8

6 freelancers are bidding on average $175 for this job

(205 Reviews)
7.9
(82 Reviews)
5.8
MMG2019

Hi, There are somethings to do before running drive serial get function. some details required so, i can provide solution. If you need ex: 5 PCs to run with one serial number you must put in connection. I am happy to h More

$200 USD in 1 day
(22 Reviews)
4.2
borispetrovfrl

Hi there, I am a Professional Software Developer with 5+ years experience. I've worked with C/C++, VB, Python, PHP, JavaScript etc. Let's meet in chat so that we can discuss all the details of the project. I'm ready More

$140 USD in 2 days
(13 Reviews)
3.7
olegtereshchenko

Thanks for your sharing your issue. How can i help you? I have rich experiences in VB6 (over 7 years). Let's discuss further more. Thanks

$140 USD in 7 days
(0 Reviews)
0.0