מצאתי את הסקריפט הבא שאמור להריץ את הפקודה RUNAS.
הבעיה שאני לא ממש מבין ב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

אגב הסיבה שאני לא משתמש ב runas /savecred
היא שמדובר כמובן בחור אבטחה אחד גדול...

פשוט מאוד, דרך ה cmd, לדוגמא:
cscript vbrunas.vbs domain\user password c:\path\file.exe
באותו הקשר, מצאתי לך סקריפט כזה אבל שחוסך לך את ההקלדה של היוזר והסיסמא בכל פעם:

קוד:

'Start of Script
'RUNAS.VBS
'USAGE: cscript|wscript VBRUNAS.VBS domain\user password "path\to\file.exe"
'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.
 
'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="domain\user"
sPass="password"&VBCRLF
sCmd="c:\program files\microsoft office\office10\outlook.exe /recycle"
 
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 or XP for this script to work."
set WshShell=Nothing
set WshEnv=Nothing
set oArgs=Nothing
set FSO=Nothing
wscript.quit
end if
'Use this line for remote file access and comment out the line below
'rc=WshShell.Run("runas /netonly /user:" & sUser & " " & CHR(34) & sCmd & CHR(34), 2, FALSE)
 
'Use this line for local file access and comment out the above line
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 runas.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 runas.vbs domain\admin luckydog e:\scripts\admin.vbs" & VBCRLF & VBCRLF &" cscript runas.vbs domain\admin luckydog " & CHR(34) &"e:\program files\scripts\admin.vbs 1stParameter 2ndParameter" & CHR(34)& VBCRLF & VBCRLF & VBCLRF & "cscript runas.vbs /?|-? will display this message."
 
wscript.echo msg
 
wscript.quit
 
end sub
'End of Script

הערכים שתצטרך לשנות בקובץ הם:
sUser="domain\user"
sPass="password"&amp;VBCRLF
sCmd="c:\program files\microsoft office\office10\outlook.exe /recycle"

תהנה (:

רק שהבנתי שזה בדיוק מה שעושה הסקריפט שאני מצאתי...(אולי אני טועה)
בכל אופן תודה. (:

קובץ BAT כבר לא מספיק טוב בשבילך ?

אומנם אין מה להשוות לVB, אבל עדיין (:
(בזמנו חבר שלי בנה משחק X - 0 ב"שפה" הנ"ל היינו אז בני 9-10, והבחור טרם ידע שפות אחרות)

אבל אני שוב חוזר, אני מעוניין בקוד שייגרום לי לא להקיש את הסיסמה ידנית.
אני בטוח שאפשר לעשות את זה גם בBAT, אבל אין לי שמץ של מושג איך.

אולי תתן הסבר?

קוד:

runas  /user:computer_name\username /savecred notepad.exe

מטעמי אבטחה התוכנה המקורית של RUNAS לא תומכת בכתיבת הסיסמה ישירות כפרמטר
אבל אפשר למצוא מספיק דרכים לעקוף את זה

השימוש ב-SAVECRED ידרוש ממך להכניס את הסיסמה פעם אחת

יש את הסקריפט הזה(שKAHT נתן), עובד יופי.
ויש את התוכנה המוכרת runasspc.

אגב אני עובד כבר כמה ימים במשתמש מוגבל(לא פאור יוסר)- נכון בהתחלה שקלתי לוותר, היה נורא- אבל אחרי קצת השקעה(3 ימים) הצלחתי לקנפג את הכל כמו שצריך- והכל רץ חלק.

סתם נכנסתי לקטע של אבטחת מידע(בקטנה)- השלב הבא יהיה להתקין VYRTUAL SYSTEM
ולנסות שטויות.

בהצלחה , תהנה

נסה את זה, אולי יבוא לך יותר בטוב

צריך הסברים על שירשור?

חח כן

שימי גם צחק עלי
אני מ2001 פה ועדיין לפעמים שוכח