VB Problem

Re(2): VB Problem

Madler — Mon, 14 Jul 2003 08:42:06 GMT

das ist doch nicht möglich keiner eine idee?

Re: VB Problem

Madler — Wed, 09 Jul 2003 11:52:54 GMT

HAT DEN WIRKLICH KEINER EINE IDEE AN WAS DAS LIEGEN KÖNNT?

Re(4): VB Problem

Madler — Wed, 09 Jul 2003 10:12:23 GMT

der spass is ja unter win2k funkt. es einwandfrei.
Hat nicht irgendwer eine idee was das sein könnte.
mfg
Madler

Re(3): VB Problem

Glockman — Wed, 09 Jul 2003 09:34:00 GMT

Ich hab das jetzt in ziemlich vielen Varianten ausprobiert, und das Ergebnis hat mich etwas verwundert. Von einem Prozess, der nur im Taskmanager aufscheint über die Anwendung selbst bis hin zu gar nix tun war alles dabei.

Ich kann nicht wirklich eine Logik dahinter erkennen, aber manchmal so scheint es braucht er 2 Anläufe um das richtige Programm zu finden. Und ziemlich häufig krieg ich nur einen runas-Prozess geboten

Sorry, ich komm auch nicht wirklich dahinter

Re(2): VB Problem

Madler — Wed, 09 Jul 2003 07:12:23 GMT

eben das mit der passwort eingabe funkt nicht
was ein zeimlicher dreck ist.

Re: VB Problem

Glockman — Tue, 08 Jul 2003 15:27:16 GMT

Hi!

Also bei mir geht's

Beim Ersten mal hab ich zwar nur den ersten Buchstaben des PW in der aufrufenden DOS-Box bekommen, hab dann die Wartezeit auf 60 gesetzt, dann hats wunderbar funktioniert. Und das tut es seit dem immer noch, auch mit dem Originalwert von 30.

Aufruf unter WinXP Pro mit cscript, wscript und ganz ohne.

Was tut es denn bei Dir (nicht)?

VB Problem

Madler — Tue, 08 Jul 2003 13:51:51 GMT

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

Wieso funkt das nicht unter XP?
cscript|wscript VBRUNAS.VBS Username Password Command

mfg
Madler