Finalizat

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

Aptitudini: Visual Basic

Vezi mai multe: 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

Despre angajator:
( 116 recenzii ) Livonia, United States

ID Proiect: #29964538

Acordat lui:

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 Mai multe

%selectedBids___i_sum_sub_7%%project_currencyDetails_sign_sub_8% USD în 7 zile
(2 Recenzii)
2.8

6 freelanceri licitează în medie 175$ pentru acest proiect

(205 recenzii)
7.9
(82 recenzii)
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 Mai multe

%bids___i_sum_sub_32%%project_currencyDetails_sign_sub_33% USD în 1 zi
(22 recenzii)
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 Mai multe

%bids___i_sum_sub_35%%project_currencyDetails_sign_sub_36% USD în 2 zile
(13 recenzii)
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

%bids___i_sum_sub_35%%project_currencyDetails_sign_sub_36% USD în 7 zile
(0 recenzii)
0.0