In VB 6.0, How to append text to file across network using seperate credentials

Posted on 2008-10-20
Last Modified: 2013-11-25
I have a large text file across a network that I need my program to append text to. However, I need it to use a specific set of credentials (user/pass) other than those of the user that has run the program.
Question by:zambuka42
  • 4
  • 3

Expert Comment

ID: 22757359
There might be a nicer and/or easier solution, but I would just map a network drive with your supplied credentials to the remote share, work on the file and remove the share.
The WScript.Network object will do the trick here.
Dim oWshNetwork As Object
Set oWshNetwork = CreateObject("WScript.Network")
oWshNetwork.MapNetworkDrive <DriveLetter>, <\\server\share>, False, <DOMAIN\User>, <Password>
'your code here
oWshNetwork.RemoveNetworkDrive <DriveLetter>, True, False
Set oWshNetwork = Nothing

Open in new window


Author Comment

ID: 22757921
no, I'm afraid that will not work. It is still the user who ran the program's credentials being used.

Accepted Solution

thewild earned 250 total points
ID: 22758125
So that's NTFS credentials, not network share authorizations, right ?
Then maybe you'll have to use impersonation.
This might help :
Best Practices: Disaster Recovery Testing

Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.


Author Comment

ID: 22759729
not sure what you mean by NTFS credentials. Did you mean NTLM credentials? Anyway, you need NTLM credentials to access a share.. however, my program needs to access the share then write to a file. If you simply make a connection to the share using alternate credentials, that is not enough, because the next step is writing to the file which would then occur using the current logged in user, not the alternate credentials. I need to write to the file using the alternate credentials.

Expert Comment

ID: 22765354
Well, isn't it what impersonation is about ? Impersonate another user to use his credentials ?
Have you checked the link I posted ?

Author Comment

ID: 22765489
I do plan on trying it, i was just trying to clear up what I thought might be a misunderstanding. Anyway, I'm afraid I can't get remotely connected to the site I am using this on at the moment, so I won't be able to try it properly until then. I'll repost.. thanks alot for your help

Author Closing Comment

ID: 31507792
The code in the link provided worked very well. Thank you very much

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

778 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question