[WSH] Variabelen vanuit een tekstbestand

[Verwijderd]

Ik wil graag een paar scripts maken zodat ik onder een account van een eindgebruiker (compleet dichtgetimmerd dus) toch mijn beheertools kan opstarten, mmc, cmd, telnet, putty, explorer etc. etc. Deze scripts plaats ik vervolgens op mijn USB stick. get the picture?

Ik wil gebruik maken van de '''runas'' functionaliteit. Helaas kan de standaard RunAs.exe niet wachtwoorden meenemen vanuit een batch script, dus was ik genoodzaakt onderstaand script te maken.

code:

On Error Resume Next
dim WshShell,oArgs,FSO 
' ----------------------------
' configuratie variabelen
' ----------------------------
' sUser = AD account 
' sPass = AD account wachtwoord
' sCmd = pad naar het programma
' ----------------------------
sUser="gebruiker"
sPass="wachtwoord" 
sCmd="mmc"  'bijvoorbeeld
 
' ----------------------------
' Niet aankomen!
' ----------------------------
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")
if FSO.FileExists(winpath) then
'wscript.echo winpath & " " & "verified"
else
wscript.echo "!! Foutmelding !!" & VBCRLF & "Kan " & winpath &" niet 
vinden of verifieren." & VBCRLF & "Je moet minstens Windows 2000 draaien anders 
werkt dit script niet."
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 1    'even wachten tot het scherm geopend is
WshShell.AppActivate(WinPath) 'dos-prompt window activeren
WshShell.SendKeys sPass & "{ENTER}" 'Wachtwoord naar dos-prompt sturen
'set WshShell=Nothing
'set oArgs=Nothing
'set WshEnv=Nothing
'set FSO=Nothing
'wscript.quit

Ik zit met een klein probleempje, om dit script dynamisch te houden voor mijn collega's wil ik graag dat de volgende 2 variablen uit dit script (sUser) en (sPassword) hun waarde vanuit een tekstbestand krijgen.


Zoiets als dit dus :

sUser="h:\gebruiker.txt"
sPass="h:\wachtwoord.txt"

Dit werkt echter niet hij maakt er gewoon ''h:\gebruiker.txt'' van. Heeft iemand enig idee hoe ik dit kan klaren? heb flink wat gezocht op msdn en google maar kon hier specifiek niets over vinden.

ps. Ik weet dat dit niet echt 'secure' is, maar het gaat me even om de functionaliteit.. De security ga ik later aan werken

edit:
layout aangepast, excuus

[ Voor 12% gewijzigd door Verwijderd op 17-04-2004 19:11 ]

[SuperRembo]

't zou wat moois wezen zeg als dit

code:

sUser="h:\gebruiker.txt"

meteen de inhoud van de hele file leest.

Maar met behulp van het FileSystemObject kan dat wel:

Visual Basic:

Dim fso, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
s = ts.ReadLine

Zou het niet beter zijn om de username en password op de commandline mee te geven?

[Verwijderd]

Ontzettend bedankt Rembo! het werkt perfect nu!

Ik zou uiteraard het wachtwoord en de username in de command line op kunnen geven. En vervolgens met screnc de boel encrypten.

Maar ik heb nog 14 andere systeembeheerders die dit graag zouden willen gebruiken. Ik zie het niet zo zitten dat hun in die code gaan zitten editen (prutsers ) Nu hoeven ze alleen maar 1 .txt bestandje te veranderen.

Dit tekstbestandje staat op hun homedir, dus niet leesbaar voor iemand anders.
Nogmaals, bedankt voor je input!