PW1 - C:\Temp>echo PassWord | runas /user:domain\administrator cmd
Enter the password for domain\administrator:
Attempting to start cmd as user "gbcs\administrator" ...
RUNAS ERROR: Unable to run - cmd
1326: Logon failure: unknown user name or bad password.

U:\>runas /?
RUNAS USAGE:

RUNAS [ [/noprofile | /profile] [/env] [/netonly] ]
        /user:<UserName> program

RUNAS [ [/noprofile | /profile] [/env] [/netonly] ]
        /smartcard [/user:<UserName>] program

   /noprofile        specifies that the user's profile should not be loaded.
                     This causes the application to load more quickly, but
                     can cause some applications to malfunction.
   /profile          specifies that the user's profile should be loaded.
                     This is the default.
   /env              to use current environment instead of user's.
   /netonly          use if the credentials specified are for remote
                     access only.
   /savecred         to use credentials previously saved by the user.
                     This option is not available on Windows XP Home Edition
                     and will be ignored.
   /smartcard        use if the credentials are to be supplied from a
                     smartcard.
   /user             <UserName> should be in form USER@DOMAIN or DOMAIN\USER
   program         command line for EXE.  See below for examples

Examples:
> runas /noprofile /user:mymachine\administrator cmd
> runas /profile /env /user:mydomain\admin "mmc %windir%\system32\dsa.msc"
> runas /env /user:user@domain.microsoft.com "notepad \"my file.txt\""

[b]NOTE:  Enter user's password only when prompted.[/b]
NOTE:  USER@DOMAIN is not compatible with /netonly.
NOTE:  /profile is not compatible with /netonly.

IF EXIST("c:\program files\infostrait\OutlookToSmarTeam\OutlookToSmarTeam.dll")
GOTO MAPPING

else

; --Hier maak je een een nieuwe map aan in de infostrait map. En er wordt  een dll in de nieuwe map gekopieerd.

CD "c:\program files\infostrait"
md "OutlookToSmarTeam"
copy "\\serverxx\SmData\ClientSoftware\VB6\OutlookToSmarTeam" "c:\program files\infostrait\OutlookToSmarTeam" /s

; -- hier registreer je de dll.

cd "OutlookToSmarTeam"
Shell "regsvr32 /s OutlookToSmarTeam.dll"

; -- hier kopieer je 2 bestandjes voor de save in smarteam knop.

copy "\\serverxx\NETLOGON\Kixscripts\OLtoST\" "%userprofile%\Application Data\Microsoft\Outlook" /s

; -- hier zet je de macro security level in outlook op low

WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Security\","Level","00000001","REG_DWORD")

; -- hier maak je een nieuwe map aan op de netwerk Y schijf.

CD "y:"
MD "outlookmsg"

:MAPPING

shell "xcacls 'c:\program files\infostrait' /g 'Domain\Werknemers':f;f /E"

$Cmd = 'xcacls "c:\program files\infostrait" /g "Domain\Werknemers":f;f /E'
'running: ' $Cmd ?
Shell $Cmd
@SERROR ?

Break on

Shell 'xcacls.exe "c:\new folder" /E /G "domain\Group":F'

Break on

Shell 'xcacls.exe "c:\program files\infostrait" /E /G "domain\group":F'

echo. > "c:\program files\infostrait\UserDirs.txt" 

for /R "c:\program files\infostrait" %%i in (.) do echo. %%~si >> "c:\program files\infostrait\UserDirs.txt"

For /F %%i in ("c:\program files\infostrait\UserDirs.txt") do xcacls %%i /E /G  "domain\group":F

for /R "c:\program files\infostrait" %%i in (.) do xcacls %%~si /E /T /C /G "domain\group":F

Break on

Shell 'cmd.exe /c xcacls "c:\program files\infostrait" /E /G "DOMAIN\Werknemers":F;F'

If KeyExist("HKEY_LOCAL_MACHINE\SOFTWARE\Installed\OutlookTool")
  ;Do something besides Goto :P
EndIf

Select
 Case ExistKey("HKLM\first key...")
  ; ok - do nothing
 Case ExistKey("HKLM\second key...")
  ; ok - do nothing again (an again.. as needed)
 Case 1
  ; No required keys were found - do something, install something!
  Shell "%COMSPEC% /c D:\some\app\install.exe /silent /successful"
  ; check for errors {won't be any, chose the successful install option ;)}

EndSelect