tambrosi
asked on
How to run a vb script as a different user.
I am looking for a way to run a vb script as different user. Within the script I need to copy files to other directories.other servers.
I looked at runas, but looks like there is now way to suppress the password screen.
In my .cmd file which is how the vendor starts the process:
:: cscript //nologo D:\lsftest\gbpcollect.vbs %1 %2 %3
I really need to run the collect.vbs as a different user.
collect.vbs
Set objNet = CreateObject("WScript.NetW ork")
strInfo = "User Name is " & objNet.UserName & vbCRLF & _
"Computer Name is " & objNet.ComputerName & vbCRLF & _
"Domain Name is " & objNet.UserDomain
MsgBox strInfo
'dspuser()
Dim Arg, var1, var2, var3
Set Arg = WScript.Arguments
'Parameter1, begin with index0
var1 = Arg(0)
var2 = Arg(1)
var3 = Arg(2)
msgbox "First parameter passed was " & var1
'msgbox "2cd parameter passed was " _
' & var2 & "" '
'msgbox "3rd parameter passed was " _
' & var3 & ""
'Read a GEN Database and get the files to process to copy prt files.
Const adOpenStatic = 3
Const adLockOptimistic = 3
Set objConnection = CreateObject("ADODB.Connec tion")
Set objRecordSet = CreateObject("ADODB.Record set")
.
.
.
.
.
.
end
Any help or suggestions would be appreciated.
Thanks
I looked at runas, but looks like there is now way to suppress the password screen.
In my .cmd file which is how the vendor starts the process:
:: cscript //nologo D:\lsftest\gbpcollect.vbs %1 %2 %3
I really need to run the collect.vbs as a different user.
collect.vbs
Set objNet = CreateObject("WScript.NetW
strInfo = "User Name is " & objNet.UserName & vbCRLF & _
"Computer Name is " & objNet.ComputerName & vbCRLF & _
"Domain Name is " & objNet.UserDomain
MsgBox strInfo
'dspuser()
Dim Arg, var1, var2, var3
Set Arg = WScript.Arguments
'Parameter1, begin with index0
var1 = Arg(0)
var2 = Arg(1)
var3 = Arg(2)
msgbox "First parameter passed was " & var1
'msgbox "2cd parameter passed was " _
' & var2 & "" '
'msgbox "3rd parameter passed was " _
' & var3 & ""
'Read a GEN Database and get the files to process to copy prt files.
Const adOpenStatic = 3
Const adLockOptimistic = 3
Set objConnection = CreateObject("ADODB.Connec
Set objRecordSet = CreateObject("ADODB.Record
.
.
.
.
.
.
end
Any help or suggestions would be appreciated.
Thanks
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.