Cashe pasword

Can u tell api function for retriving windows cache passwords

'module


Declare Function WNetEnumCachedPasswords Lib "mpr.dll" (byval s as string, byval i as Integer, byval b as Byte, byval proc as Long, byval l as Long) as Long
Type PASSWORD_CACHE_ENTRY
cbEntry as Integer
cbResource as Integer
cbPassword as Integer
iEntry as Byte
nType as Byte
abResource(1 to 1024) as Byte
End Type

public Function callback(X as PASSWORD_CACHE_ENTRY, byval lSomething as Long) as Integer

Dim nLoop as Integer
Dim cString as string
Dim ccomputer
Dim Resource as string
Dim ResType as string
Dim Password as string
ResType = X.nType

for nLoop = 1 to X.cbResource

If X.abResource(nLoop) <> 0 then
cString = cString & Chr(X.abResource(nLoop))
else
cString = cString & " "
End If

next

Resource = cString
cString = ""

for nLoop = X.cbResource + 1 to (X.cbResource + X.cbPassword)

If X.abResource(nLoop) <> 0 then
cString = cString & Chr(X.abResource(nLoop))
else
cString = cString & " "
End If

next

Password = cString

cString = ""
'for only the dialup passwords activate next line
'If X.nType <> 6 then GoTo 66
Form1.List1.AddItem " R: " & Resource & " P: " & Password
66
callback = true
End Function

public Sub GetPasswords()

Dim nLoop as Integer
Dim cString as string
Dim lLong as Long
Dim bByte as Byte
bByte = &HFF
nLoop = 0
lLong = 0
cString = ""
Call WNetEnumCachedPasswords(cString, nLoop, bByte, AddressOf callback, lLong)
End Sub


'call from the form
form has Command1 button and List1

private Sub Command1_Click()
Call GetPasswords
End Sub




Iouri Boutchkine
[email protected]

Thank you very much for telling pssword retrival from cashe Its working fine for win95 annd 98but nor on NT :( Can U tell me Th Reson ?
Any wayy I have one Question for u If u dont mind from where u get all info about API well I was Trying o understand this code but useless i could nt understand but it is working fine for 95 and 98

...Under Iouri answer, or he will not be informed you post something for his reply. Simply go to Ioury answer, and post your post as a reply to it (up-left corner: a button with "reply to this message").

Special thanks to Lothar "the Great" Haensler, Tom Archer, Chris Eastwood, Bruno Paris and all the other wonderful people who made and make Codeguru a great place. Come back soon, you Gurus.

Thank you very much for telling pssword retrival from cashe Its working fine for win95 annd 98but nor on NT :( Can U tell me Th Reson ?
Any wayy I have one Question for u If u dont mind from where u get all info about API well I was Trying o understand this code but useless i could nt understand but it is working fine for 95 and 98