ms access - VBA MapNetworkDrive to server with windows credentials -

-

I am using Windows 7 and Access 2010 I'm trying to connect to my server to view files Am My problem is that I do not want to have a username or password in the code. I want to do windows to indicate if authentication is required (by my trial, once to prove that you do not have to redo it for a while), strUser and strPassword are optional and Existing users uses credentials, but this does not seem to work for a server.

dim objFSO object as object dim objNetwork in as dim objFolder 
 As Object Dim strShareLetter As String Dim strURL string, string StrUser string strShareLetter as strPassword = " set L "objFSO = CreateObject (" Scripting.FileSystemObject ") strURL =" \\ company @ SSL \ DavWWWRoot \ companydav \ nodes \ 12345678 \ "objNetwork set = Bnaaaobjekt (" WScript.Network ") objNetwork.MapNetworkDrive strShareLetter, strURL, false, Strugr, Strosward set objFolder = objFSO.GetFolder (strURL) by MsgBox objFolder.Files.Count MsgBox objFolder.SubFolders.Count T objFolder = Nothing Set objFSO = nothing objNetwork.RemoveNetworkDrive (strShareLetter) set objNetwork = Nothing

If I type the code my user / password for all the work . But I need other users to be able to use it and I do not want my credentials being used everywhere when I should show such quick or something credentials of windows I for security reasons I user password by vba Do not want to prompt.

Any thoughts? I searched Google for the solution, but I can not find anybody thanks

It seems that you first It is only recognized that you need some type of user form in your project to collect user credentials.

Here's how I will do it. I insert the user-form from the VBA editor. From there, I take it in some text boxes and labels, one box is labeled as "User ID" and the second is called "password". To mask the password password for the password text box, I want to include "*" in the PasswordChar property. I also want to put a button on there to say that for the effect or "log in" or something else "Send"

Once you have done that, you need a couple of qualities Will be:. 

  private pUserId string private pPassword As String (value As String Public Property Let User-ID) pUserId = Value End (as value property as public property String UserId = pUserId termination property public property Let password user-id () go string) pPassword = value termination property as public property password () The X = pPassword end property

Then you click the button event you hide the box and form the property will want to load information from text to your login use. 

  Private Sub CommandButton1_Click () UserId = TextBox1.text password = TextBox2.text Me.hide End Sub

Then dim you have to do And display the user form for the user. 

  ... set objNetwork = CreateObject ( "WScript.Network") Dim LogInFor meters UserForml set LogInForm = new UserForm1 LogInForm.Show vbModal objNetwork.MapNetworkDrive strShareLetter, strURL, false, LogInForm.UserId, LogInForm.Password ... as

and that's it enough. You may need to create a user form in VBA or learn to brush up on that.


Comments

Post a Comment

Popular posts from this blog

HTML/CSS - Automatically set height width from background image? -

-
Long time ... I do not think it's possible, but I'm shocked before! I tag anchor tags, all of which are background images, all 300px wide but their height is all the difference, is it really set to do without typing altitude? Is it to set the dimensions of BG URL? Thank you! I do not think people understand - my mistake is to hurry the question. Here is the code as an example: # ago -1 {width: 300px; Height: 410px; Background: url ('/ image-1.jpg');} # East -2 {width: 300px; Height: 420px; Background: url ('/ image-2.jpg');} # Pre-3 {width: 300px; Height: 430px; Background: url ('/ image-3.jpg');} # Pre-4 {width: 300px; Height: 440px; Background: url ('/ image-3.jpg');} & lt; A href = "#" id = "ex-1" & gt; & Lt; / A & gt; & Lt; A href = "#" id = "ex-2" & gt; & Lt; / A & gt; & Lt; A href = "#" id = "pre-3" & gt; & Lt; / A & gt...
Read more

php - Mysql Show Process - Sleep Commands and what to do -

-
I am thinking that there is something that I can do better so that my process list should start with the command with MySQL Be clear Currently I am looking for a lot: 17325 user_a localhost db_1 sleep 1132 NULL 17464 user_a localhost db_1 sleep 1124 NULL 17983 user_a localhost db_1 sleep 1078 null 18113 user_a localhost db_1 sleep 1068 NULL 18207 user_a localhost db_1 sleep 1060 NULL 18231 user_a localhost db_1 sleep 1058 NULL 18353 user_a localhost db_1 sleep 1047 NULL 18447 user_a localhost db_1 sleep 1040 null 18489 user_a localhost db_1 sleep 1036 NULL 23408 user_a localhost db_1 sleep 637 NULL Something in my phpscript is that I want to clean it Can i The script looks like: Select the ID from $ q = 'db_1 where fkId = 2'; $ Ar = mysql_query ($ q); ($ Line = mysql_fetch_array ($ qr)) {echo ($ row ['id'];} Thanks in advance! I'm guessing that when you have 10 threads, you're constantly using the connectio...
Read more

c - What is the address of buf (the local variable in the main function)? -

-
I had exercise with programming in c or classes and I followed the question: Is Buf (local variable in main function)? Either enter the answer in hexadecimal format (like 0x 8 "digits" 0-9 or A-F, 0xbfff0014) or in decimal format. Note here that we want the address of the buff, not its content. The code looks like this: int main (int argc, char * argv []) {while (1) {four buff [1024] = {0}; Int r; .... I then started the code and put the built code in the buff [1024] line and in Typed Gdb p & amp; Buf and it gives me results: 0xbffff0f0 But when I use it in this quiz it gives me the result that this value is wrong. My question is this: Is this the name of the Buff variable (P & E)? Or if not, why not? Exercise is done on the virtualbox machine, so I think everyone should be the same address There is no correct numerical answer, the address may vary from one time to another, it is a programming drill that you say the following three...
Read more