Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Всем спасибо! Нашел аналог runas, теперь совсем все ок =)) 10.10.03 20:12 Число просмотров: 6476
Автор: !mm <Ivan Ch.> Статус: Elderman Отредактировано 10.10.03 20:16 Количество правок: 2
|
вот здесь http://www.pisoft.ru/forum/viewtopic.php?p=5188 (с) valine
все работает :))
описание:
Runas Replacement
RUNAS in Windows 2000 is nice, but not very script friendly. Unlike SU from the
NT Resource Kit, you can't pass a password. Here is an alternative.
You can use the following script to execute a command via RUNAS. You might
find this helpful for yourself, or run it from a batch file (although the password will
be in clear text). Another alternative is to hardcode the command, username and
password in the script, then use the Script Encoder (download from
http://msdn.microsoft.com/scripting) to encode it. You run the script the same
way, the file will just have a different extension: cscript vbrunas.vbe. Then if you
have repeatable admin tasks you or your users, just execute the script.
код: (на всякий случай)
запускать: %systemroot%\system32\cscript.exe Vbrunas.vbs
'Start of Script
'VBRUNAS.VBS
'v1.2 March 2001
'Jeffery Hicks
'jhicks@quilogy.com http://www.quilogy.com
'USAGE: cscript|wscript VBRUNAS.VBS Username Password Command
'DESC: A RUNAS replacement to take password at a command prompt.
'NOTES: This is meant to be used for local access. If you want to run a command
'across the network as another user, you must add the /NETONLY switch to the RUNAS
'command.
'*******************************************************************************
' * THIS PROGRAM IS OFFERED AS IS AND MAY BE FREELY MODIFIED OR ALTERED AS *
' * NECESSARY TO MEET YOUR NEEDS. THE AUTHOR MAKES NO GUARANTEES OR WARRANTIES, *
' * EXPRESS, IMPLIED OR OF ANY OTHER KIND TO THIS CODE OR ANY USER MODIFICATIONS. *
' * DO NOT USE IN A PRODUCTION ENVIRONMENT UNTIL YOU HAVE TESTED IN A SECURED LAB *
' * ENVIRONMENT. USE AT YOUR OWN RISK. *
'*******************************************************************************
On Error Resume Next
dim WshShell,oArgs,FSO
set oArgs=wscript.Arguments
if InStr(oArgs(0),"?")<>0 then
wscript.echo VBCRLF & "? HELP ?" & VBCRLF
Usage
end if
if oArgs.Count <3 then
wscript.echo VBCRLF & "! Usage Error !" & VBCRLF
Usage
end if
sUser=oArgs(0)
sPass=oArgs(1)&VBCRLF
sCmd=oArgs(2)
set WshShell = CreateObject("WScript.Shell")
set WshEnv = WshShell.Environment("Process")
WinPath = WshEnv("SystemRoot")&"\System32\runas.exe"
set FSO = CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(winpath) then
'wscript.echo winpath & " " & "verified"
else
wscript.echo "!! ERROR !!" & VBCRLF & "Can't find or verify " & winpath &"." &
VBCRLF & "You must be running Windows 2000 for this script to work."
set WshShell=Nothing
set WshEnv=Nothing
set oArgs=Nothing
set FSO=Nothing
wscript.quit
end if
rc=WshShell.Run("runas /user:" & sUser & " " & CHR(34) & sCmd & CHR(34), 2, FALSE)
Wscript.Sleep 30 'need to give time for window to open.
WshShell.AppActivate(WinPath) 'make sure we grab the right window to send password to
WshShell.SendKeys sPass 'send the password to the waiting window.
set WshShell=Nothing
set oArgs=Nothing
set WshEnv=Nothing
set FSO=Nothing
wscript.quit
**********************
'* Usage Subroutine *
**********************
Sub Usage()
On Error Resume Next
msg="Usage: cscript|wscript vbrunas.vbs Username Password Command" & VBCRLF & VBCRLF &
"You should use the full path where necessary and put long file names or
commands" & VBCRLF & "with parameters in quotes" & VBCRLF & VBCRLF &
"For example:" & VBCRLF &" cscript vbrunas.vbs quilogy\jhicks luckydog
e:\scripts\admin.vbs" & VBCRLF & VBCRLF &"cscript vbrunas.vbs quilogy\jhicks
luckydog " & CHR(34) &"e:\program files\scripts\admin.vbs 1stParameter
2ndParameter" & CHR(34)& VBCRLF & VBCRLF & VBCLRF & "cscript
vbrunas.vbs/?? will display this message."
wscript.echo msg
wscript.quit
end sub
'End of Script
---
|
|
|