None of them work. I have feeling the problem is with DFS in Windows Server 2003 since this particular drive is off a root.
I move the same folders over to another server (2003) not mounted through DFS and it works fine.
First off, I had nothing to do with the development of the product in question, nor do I know Foxpro all that well, however, I am stuck in the unfortunate position of trying to fix a problem.
We have a FPD2.6a app running on a fileserver (foxpro files and data on a share) that was recently...
I wrote a small application to launch an install process (with command-line arguments etc.).
Are there any VB hooks that will launch an NT authentication box and return values back to the application?
The install process resides on a network share, and I'd like the user to enter credentials...
Hey, thanks for the reply.
I'll check out scriptomatic, but for now, I did figure out the solution.
objUser.Put "pwdLastSet", 0
This is all I needed. It does what:
objUser.Put "PasswordExpired", 1
was supposed to do. I'm not sure how anyone ever got the latter to work...
I'm trying to add a bunch of users via a script and a delimited file.
Here's the snippet:
objUser.AccountDisabled = False
objUser.Put "PasswordExpired", 1
objUser.Put "pwdLastSet", 0
objUser.SetInfo
It is all working except the "PasswordExpired" option, which...
Alright, figured that out too.
So, I guess this turns into a tip of some sort. How to correctly pass a value, or array value into a function, process it and initiate an object, and correctly return that object.
See below:
Option Explicit
Dim arrParts
arrParts =...
Nevermind. I figured it out. In the actual function, the returned value is an object, and it's incorrectly defined when the function is called.
It should read:
Set objReturn = Query("Object", arrParts(0))
..
Query = objReturn
This works, the only problem is that the attributes...
I know the answer is probably simple, but for some reason I can't figure this out.
Option Explicit
Dim arrParts
arrParts = array("1","2","3","4","5")
objReturn = Query("Object", arrParts(0))
Function Query(strType, strName)
'...
Oops, change the WshShell.Run line to:
WshShell.Run "%comspec% /c net use \\55chevy /user:domain\" & strUserName & "", 0, True
Sorry about that.
Option Explicit
Dim WshShell, WshNetwork, strUserName
Set WshShell = WScript.CreateObject("WScript.Shell")
strUserName = InputBox("Enter your name:" & vbCRLF & "Please enter your username.", "Login")
WshShell.Run "%comspec% net use \\55chevy...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.