[VB] VB script runnen met runas ?

[Verwijderd]

Ik wil graag een .vbs script runnen met de commando runas. Echter lukt dit niet. Het moet zo makkelijk mogelijk gemaakt worden voor een eindgebruiker om met een opgegeven account de vbs te draaien..

Waarom mag ik een vbs niet draaien met runas ? Security redenen ?

Het werkt wel als ik IE opstart als een andere user met runas en dan de path naar het VBS bestand erin plak.. Hoe kan ik dit het beste aanpakken ?

[TheVMaster]

Eh.....wil je nu gelijk een oplossing? Heb je al gezocht..gegoogled?

Je zou iets als onderstaand kunnen proberen :

code:

' Script om een applicatie onder andere credentials te starten mbv RunAs.exe 
' NB: Het wachtwoord staat in [b]clear-tekst[/b] in het vbscript 

On Error Resume Next 
Dim WshShell 
Dim oArgs 
Dim FSO 

      Set oArgs = WScript.Arguments 
      Set WshShell = CreateObject("WScript.Shell") 
      Set WshEnv = WshShell.Environment("Process") 
      WinPath = WshEnv("SystemRoot")&"\System32\Runas.exe" 
      Set FSO = CreateObject("Scripting.FileSystemObject") 




      sUser = "Username" 
      sPass = "Password" & vbCrLF 
      sCmd = "Setup.exe" 

    
    
      RC=WshShell.Run("runas /user:" & sUser & " " & Chr(34) & sCmd & Chr(34), 2, False) 
         WScript.Sleep 30          
         WshShell.AppActivate(WinPath)    
         WshShell.SendKeys sPass       
          
   Set WshShell = Nothing 
   Set oArgs = Nothing 
   Set WshEnv = Nothing 
   Set FSO = Nothing 

WScript.Quit

[ Voor 115% gewijzigd door TheVMaster op 31-03-2006 14:46 ]

[Verwijderd]

TheVMaster schreef op vrijdag 31 maart 2006 @ 14:45:
Eh.....wil je nu gelijk een oplossing? Heb je al gezocht..gegoogled?

Je zou iets als onderstaand kunnen proberen :

code:

' Script om een applicatie onder andere credentials te starten mbv RunAs.exe 
' NB: Het wachtwoord staat in [b]clear-tekst[/b] in het vbscript 

On Error Resume Next 
Dim WshShell 
Dim oArgs 
Dim FSO 

      Set oArgs = WScript.Arguments 
      Set WshShell = CreateObject("WScript.Shell") 
      Set WshEnv = WshShell.Environment("Process") 
      WinPath = WshEnv("SystemRoot")&"\System32\Runas.exe" 
      Set FSO = CreateObject("Scripting.FileSystemObject") 




      sUser = "Username" 
      sPass = "Password" & vbCrLF 
      sCmd = "Setup.exe" 

    
    
      RC=WshShell.Run("runas /user:" & sUser & " " & Chr(34) & sCmd & Chr(34), 2, False) 
         WScript.Sleep 30          
         WshShell.AppActivate(WinPath)    
         WshShell.SendKeys sPass       
          
   Set WshShell = Nothing 
   Set oArgs = Nothing 
   Set WshEnv = Nothing 
   Set FSO = Nothing 

WScript.Quit

Ik heb me rot lopen zoeken en dit ook gevonden, maar om een wachtwoord in plain text als eindgebruiker vrij te geven vind ik een beetje te

[TheVMaster]

Verwijderd schreef op vrijdag 31 maart 2006 @ 14:49:
[...]


Ik heb me rot lopen zoeken en dit ook gevonden, maar om een wachtwoord in plain text als eindgebruiker vrij te geven vind ik een beetje te

Tja...ik gebruik het ook niet maar toch...het is een oplossing