xrunas

Bonjour Papou,
Voici le source demandé
Attention au retours à la ligne

' ---------------------------------------------------------------------
' Script de lancement d'application avec RUNAS
' Syntaxe identique UNAS mais avec en plus passage du mot de passe
'
' Syntaxe:
' XRUNAS [/profile] [/env] [/netonly] /user:<NomUtilisateur> /pwd:<password>
programme
' /profile si le profil de l'utilisateur doit e charg /env
pour utiliser l'environnement en cours a place de
' celui de l'utilisateur.
' /netonly tiliser si les informations d'identification spfi
' sont pour l'accistance seulement.
' /user <NomUtilisateur> sous la forme UTILISATEUR@DOMAINE
' ou DOMAINEUTILISATEUR
' /pwd <password> : le mot de passe
' programme ligne de commande pour EXE.
'
'
' JC BELLAMY 2002
' ---------------------------------------------------------------------
Const SW_HIDE=0
Const SW_SHOWNORMAL=1

Dim shell, args, fso, erreur
Set net = Wscript.CreateObject("WScript.Network")
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
nbargs=args.count

Title=shell.ExpandEnvironmentStrings("%systemroot%") & "system32runas.exe"
If not fso.FileExists(Title) Then
msg="Commande " & Title & " non trouv & VBCRLF
msg=msg & "Ce script ne fonctionne que sous Windows 2000 et au del& VBCRLF
wscript.echo msg
wscript.quit
End If

If nbargs=0 or testarg("?") or testarg("h") Then Syntaxe ""
defmoteur="cscript"
TestHost true

erreurúlse
profile=""
env=""
netonly=""
If testarg("profile") Then profile="/profile "
If testarg("env") Then env="/env "
If testarg("netonly") Then netonly="/netonly "
If testarg("user:") Then user=getarg("user:") else MsgErr("Utilisateur
absent")
If testarg("pwd:") Then pwd=getarg("pwd:") else MsgErr("Mot de passe
absent")
testprogúlse
For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)<>"/" and left(curarg,1)<>"-" Then
programme=curarg
testprog=true
exit for
End If
Next
If not testprog then MsgErr("Programme absent")
If erreur Then Syntaxe "erreur"

Commande="runas " & profile & env & netonly & "/user:" & user & " """ &
programme & """"

shell.run Commande,SW_SHOWNORMAL
Title=shell.ExpandEnvironmentStrings("%systemroot%") & "system32runas.exe"
shell.AppActivate Title
WScript.Sleep 150
shell.SendKeys pwd & "~"
Wscript.quit
'--------------------------------------------------------------------
Function testarg(param)
testargúlse
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
testarg=true
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Function getarg(param)
getarg=""
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
getarg=mid(args(i),2+len(param))
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Sub MsgErr(msg)
wscript.echo "Erreur : " & msg
erreur=true
End Sub
'--------------------------------------------------------------------
' Sous programme de test du moteur
Sub TestHost(force)
dim rep
strappli=lcase(Wscript.ScriptFullName)
strFullName =lcase(WScript.FullName)
i=InStr(1,strFullName,".exe",1)
j=InStrRev(strFullName,"",i,1)
strCommand=Mid(strFullName,j+1,i-j-1)
if strCommand<>"cscript" then
If force then
Init="Ce script doit e lancvec CSCRIPT"
Else
Init="Il est prrable de lancer ce script avec CSCRIPT"
End If
rep=MsgBox(Init & VBCRLF & _
"Cela peut e rendu permanent avec la commande" & VBCRLF & _
"cscript //H:CScript //S /Nologo" & VBCRLF & _
"Voulez-vous que ce soit fait automatiquement?", _
vbYesNo + vbQuestion,strappli)
if rep=vbYes then
nomcmd="setscript.bat"
Set ficcmd = fso.CreateTextFile(nomcmd)
ficcmd.writeline "@echo off"
ficcmd.writeline "cscript //H:CScript //S /Nologo"
ficcmd.writeline "pause"
params=""
For i = 0 To nbargs-1
params=params & " " & args(i)
next
ficcmd.writeline chr(34) & strappli & chr(34) & params
ficcmd.writeline "pause"
ficcmd.close
shell.Run nomcmd, SW_SHOWNORMAL,true
force=true
end if
If force then WScript.Quit
end if
end sub
'--------------------------------------------------------------------
Sub Syntaxe(info)
If info="" Then
msg= "Script VBS de lancement d'application avec RUNAS" & VBCRLF
msg=msg & "avec passage en parame du mot de passe" & VBCRLF & VBCRLF
msg=msg & "JC BELLAMY 2002" & VBCRLF
End If
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & "Syntaxe : " & VBCRLF
msg=msg & " XRUNAS [/profile] [/env] [/netonly] /user:<compte>
/pwd:<password> commande" & VBCRLF
msg=msg & "Parames :" & VBCRLF
msg=msg & " /profile si le profil de l'utilisateur doit e charg& VBCRLF
msg=msg & " /env pour utiliser l'environnement en cours a place de" &
VBCRLF
msg=msg & " celui de l'utilisateur." & VBCRLF
msg=msg & " /netonly tiliser si les informations d'identification spfi" &
VBCRLF
msg=msg & " sont pour l'accistance seulement." & VBCRLF
msg=msg & " /user <compte> sous la forme UTILISATEUR@DOMAINE" & VBCRLF
msg=msg & " ou UTILISATEUR ou DOMAINEUTILISATEUR" & VBCRLF
msg=msg & " /pwd <password> : le mot de passe" & VBCRLF
msg=msg & " NB : sensible a casse (minuscules/majuscules)" &
VBCRLF
msg=msg & " commande commande xter" & VBCRLF & VBCRLF
msg=msg & "Exemples:" & VBCRLF
msg=msg & "> xrunas /profile /user:administrateur /pwd:toto cmd" & VBCRLF
msg=msg & "> xrunas /profile /env /user:MonDomaineadmin /pwd:truc ""mmc
%windir%system32dsa.msc"" " & VBCRLF
msg=msg & "> xrunas /env /user:utilisateur@domaine.microsoft.com /pwd:bill
""notepad ""Fichier.txt"" " & VBCRLF & VBCRLF
msg=msg & "NB: vu que le mot de passe est visible, ce script ne doit e
utilis& VBCRLF
msg=msg & " qu'en des circonstances bien particulis!" & VBCRLF
msg=msg & " USER@DOMAIN n'est pas compatible avec /netonly." & VBCRLF &
VBCRLF
wscript.echo msg
wscript.quit
End Sub
' -------------------------------------


Cordialement
Georges



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23uip5VIqFHA.1032@TK2MSFTNGP09.phx.gbl...

Bonjour à toutes et à tous
Pour une raison que je ne m'explique pas (anti-virus au boulot peut-être
?)

, je ne peux pas accéder au fichier exemple de Jean-Claude Bellamy sur son
site.
Quelqu'un pourrait-il me transmettre en réponse le code exemple VBS pour
l'utilisation de XRUNAS ?
Merci d'avance
Cordialement
Pascal

Bonjour Georges
Je te remercie beaucoup :-)
Bonne journée

Cordialement
Pascal

"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message news:
ecZFPqIqFHA.712@TK2MSFTNGP15.phx.gbl...

Bonjour Papou,
Voici le source demandé
Attention au retours à la ligne

' ---------------------------------------------------------------------
' Script de lancement d'application avec RUNAS
' Syntaxe identique UNAS mais avec en plus passage du mot de passe
'
' Syntaxe:
' XRUNAS [/profile] [/env] [/netonly] /user:<NomUtilisateur>
/pwd:<password>

programme
' /profile si le profil de l'utilisateur doit e charg /env
pour utiliser l'environnement en cours a place de
' celui de l'utilisateur.
' /netonly tiliser si les informations d'identification spfi
' sont pour l'accistance seulement.
' /user <NomUtilisateur> sous la forme UTILISATEUR@DOMAINE
' ou DOMAINEUTILISATEUR
' /pwd <password> : le mot de passe
' programme ligne de commande pour EXE.
'
'
' JC BELLAMY 2002
' ---------------------------------------------------------------------
Const SW_HIDE=0
Const SW_SHOWNORMAL=1

Dim shell, args, fso, erreur
Set net = Wscript.CreateObject("WScript.Network")
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
nbargs=args.count

Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

If not fso.FileExists(Title) Then
msg="Commande " & Title & " non trouv & VBCRLF
msg=msg & "Ce script ne fonctionne que sous Windows 2000 et au del& VBCRLF
wscript.echo msg
wscript.quit
End If

If nbargs=0 or testarg("?") or testarg("h") Then Syntaxe ""
defmoteur="cscript"
TestHost true

erreurúlse
profile=""
env=""
netonly=""
If testarg("profile") Then profile="/profile "
If testarg("env") Then env="/env "
If testarg("netonly") Then netonly="/netonly "
If testarg("user:") Then user=getarg("user:") else MsgErr("Utilisateur
absent")
If testarg("pwd:") Then pwd=getarg("pwd:") else MsgErr("Mot de passe
absent")
testprogúlse
For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)<>"/" and left(curarg,1)<>"-" Then
programme=curarg
testprog=true
exit for
End If
Next
If not testprog then MsgErr("Programme absent")
If erreur Then Syntaxe "erreur"

Commande="runas " & profile & env & netonly & "/user:" & user & " """ &
programme & """"

shell.run Commande,SW_SHOWNORMAL
Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

shell.AppActivate Title
WScript.Sleep 150
shell.SendKeys pwd & "~"
Wscript.quit
'--------------------------------------------------------------------
Function testarg(param)
testargúlse
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
testarg=true
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Function getarg(param)
getarg=""
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
getarg=mid(args(i),2+len(param))
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Sub MsgErr(msg)
wscript.echo "Erreur : " & msg
erreur=true
End Sub
'--------------------------------------------------------------------
' Sous programme de test du moteur
Sub TestHost(force)
dim rep
strappli=lcase(Wscript.ScriptFullName)
strFullName =lcase(WScript.FullName)
i=InStr(1,strFullName,".exe",1)
j=InStrRev(strFullName,"",i,1)
strCommand=Mid(strFullName,j+1,i-j-1)
if strCommand<>"cscript" then
If force then
Init="Ce script doit e lancvec CSCRIPT"
Else
Init="Il est prrable de lancer ce script avec CSCRIPT"
End If
rep=MsgBox(Init & VBCRLF & _
"Cela peut e rendu permanent avec la commande" & VBCRLF & _
"cscript file://H:CScript file://S /Nologo" & VBCRLF & _
"Voulez-vous que ce soit fait automatiquement?", _
vbYesNo + vbQuestion,strappli)
if rep=vbYes then
nomcmd="setscript.bat"
Set ficcmd = fso.CreateTextFile(nomcmd)
ficcmd.writeline "@echo off"
ficcmd.writeline "cscript file://H:CScript file://S /Nologo"
ficcmd.writeline "pause"
params=""
For i = 0 To nbargs-1
params=params & " " & args(i)
next
ficcmd.writeline chr(34) & strappli & chr(34) & params
ficcmd.writeline "pause"
ficcmd.close
shell.Run nomcmd, SW_SHOWNORMAL,true
force=true
end if
If force then WScript.Quit
end if
end sub
'--------------------------------------------------------------------
Sub Syntaxe(info)
If info="" Then
msg= "Script VBS de lancement d'application avec RUNAS" & VBCRLF
msg=msg & "avec passage en parame du mot de passe" & VBCRLF & VBCRLF
msg=msg & "JC BELLAMY 2002" & VBCRLF
End If
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & "Syntaxe : " & VBCRLF
msg=msg & " XRUNAS [/profile] [/env] [/netonly] /user:<compte>
/pwd:<password> commande" & VBCRLF
msg=msg & "Parames :" & VBCRLF
msg=msg & " /profile si le profil de l'utilisateur doit e charg& VBCRLF
msg=msg & " /env pour utiliser l'environnement en cours a place de"
&

VBCRLF
msg=msg & " celui de l'utilisateur." & VBCRLF
msg=msg & " /netonly tiliser si les informations d'identification spfi"
&

VBCRLF
msg=msg & " sont pour l'accistance seulement." & VBCRLF
msg=msg & " /user <compte> sous la forme UTILISATEUR@DOMAINE" &
VBCRLF

msg=msg & " ou UTILISATEUR ou DOMAINEUTILISATEUR" & VBCRLF
msg=msg & " /pwd <password> : le mot de passe" & VBCRLF
msg=msg & " NB : sensible a casse (minuscules/majuscules)" &
VBCRLF
msg=msg & " commande commande xter" & VBCRLF & VBCRLF
msg=msg & "Exemples:" & VBCRLF
msg=msg & "> xrunas /profile /user:administrateur /pwd:toto cmd" & VBCRLF
msg=msg & "> xrunas /profile /env /user:MonDomaineadmin /pwd:truc ""mmc
%windir%system32dsa.msc"" " & VBCRLF
msg=msg & "> xrunas /env /user:utilisateur@domaine.microsoft.com /pwd:bill
""notepad ""Fichier.txt"" " & VBCRLF & VBCRLF
msg=msg & "NB: vu que le mot de passe est visible, ce script ne doit e
utilis& VBCRLF
msg=msg & " qu'en des circonstances bien particulis!" & VBCRLF
msg=msg & " USER@DOMAIN n'est pas compatible avec /netonly." & VBCRLF &
VBCRLF
wscript.echo msg
wscript.quit
End Sub
' -------------------------------------


Cordialement
Georges



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23uip5VIqFHA.1032@TK2MSFTNGP09.phx.gbl...

Bonjour à toutes et à tous
Pour une raison que je ne m'explique pas (anti-virus au boulot peut-être
?)

, je ne peux pas accéder au fichier exemple de Jean-Claude Bellamy sur
son

site.
Quelqu'un pourrait-il me transmettre en réponse le code exemple VBS pour
l'utilisation de XRUNAS ?
Merci d'avance
Cordialement
Pascal

Re
Bon je viens de faire un petit test mais ça ne marche pas :-(
Erreur sur le caractère 51, erreur de syntaxe :
objshell.run XRUNAS /profile /user:administrateur /pwd:papou CMD

Le but : modifier avec un fichier script une valeur DWORD dans la base de
registre en étant en mode administrateur car l'utilisateur n'a pas les
droits de modifier la BDR.

Si quelqu'un a une idée ou a déjà fait, je suis preneur ;-)

Cordialement
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
#s9SgwIqFHA.4056@TK2MSFTNGP09.phx.gbl...

Bonjour Georges
Je te remercie beaucoup :-)
Bonne journée

Cordialement
Pascal

"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message news:
ecZFPqIqFHA.712@TK2MSFTNGP15.phx.gbl...

Bonjour Papou,
Voici le source demandé
Attention au retours à la ligne

' ---------------------------------------------------------------------
' Script de lancement d'application avec RUNAS
' Syntaxe identique UNAS mais avec en plus passage du mot de passe
'
' Syntaxe:
' XRUNAS [/profile] [/env] [/netonly] /user:<NomUtilisateur>
/pwd:<password>

programme
' /profile si le profil de l'utilisateur doit e charg /env
pour utiliser l'environnement en cours a place de
' celui de l'utilisateur.
' /netonly tiliser si les informations d'identification spfi
' sont pour l'accistance seulement.
' /user <NomUtilisateur> sous la forme UTILISATEUR@DOMAINE
' ou DOMAINEUTILISATEUR
' /pwd <password> : le mot de passe
' programme ligne de commande pour EXE.
'
'
' JC BELLAMY 2002
' ---------------------------------------------------------------------
Const SW_HIDE=0
Const SW_SHOWNORMAL=1

Dim shell, args, fso, erreur
Set net = Wscript.CreateObject("WScript.Network")
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
nbargs=args.count

Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

If not fso.FileExists(Title) Then
msg="Commande " & Title & " non trouv & VBCRLF
msg=msg & "Ce script ne fonctionne que sous Windows 2000 et au del&
VBCRLF

wscript.echo msg
wscript.quit
End If

If nbargs=0 or testarg("?") or testarg("h") Then Syntaxe ""
defmoteur="cscript"
TestHost true

erreurúlse
profile=""
env=""
netonly=""
If testarg("profile") Then profile="/profile "
If testarg("env") Then env="/env "
If testarg("netonly") Then netonly="/netonly "
If testarg("user:") Then user=getarg("user:") else MsgErr("Utilisateur
absent")
If testarg("pwd:") Then pwd=getarg("pwd:") else MsgErr("Mot de passe
absent")
testprogúlse
For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)<>"/" and left(curarg,1)<>"-" Then
programme=curarg
testprog=true
exit for
End If
Next
If not testprog then MsgErr("Programme absent")
If erreur Then Syntaxe "erreur"

Commande="runas " & profile & env & netonly & "/user:" & user & " """ &
programme & """"

shell.run Commande,SW_SHOWNORMAL
Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

shell.AppActivate Title
WScript.Sleep 150
shell.SendKeys pwd & "~"
Wscript.quit
'--------------------------------------------------------------------
Function testarg(param)
testargúlse
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
testarg=true
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Function getarg(param)
getarg=""
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
getarg=mid(args(i),2+len(param))
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Sub MsgErr(msg)
wscript.echo "Erreur : " & msg
erreur=true
End Sub
'--------------------------------------------------------------------
' Sous programme de test du moteur
Sub TestHost(force)
dim rep
strappli=lcase(Wscript.ScriptFullName)
strFullName =lcase(WScript.FullName)
i=InStr(1,strFullName,".exe",1)
j=InStrRev(strFullName,"",i,1)
strCommand=Mid(strFullName,j+1,i-j-1)
if strCommand<>"cscript" then
If force then
Init="Ce script doit e lancvec CSCRIPT"
Else
Init="Il est prrable de lancer ce script avec CSCRIPT"
End If
rep=MsgBox(Init & VBCRLF & _
"Cela peut e rendu permanent avec la commande" & VBCRLF & _
"cscript file://H:CScript file://S /Nologo" & VBCRLF & _
"Voulez-vous que ce soit fait automatiquement?", _
vbYesNo + vbQuestion,strappli)
if rep=vbYes then
nomcmd="setscript.bat"
Set ficcmd = fso.CreateTextFile(nomcmd)
ficcmd.writeline "@echo off"
ficcmd.writeline "cscript file://H:CScript file://S /Nologo"
ficcmd.writeline "pause"
params=""
For i = 0 To nbargs-1
params=params & " " & args(i)
next
ficcmd.writeline chr(34) & strappli & chr(34) & params
ficcmd.writeline "pause"
ficcmd.close
shell.Run nomcmd, SW_SHOWNORMAL,true
force=true
end if
If force then WScript.Quit
end if
end sub
'--------------------------------------------------------------------
Sub Syntaxe(info)
If info="" Then
msg= "Script VBS de lancement d'application avec RUNAS" & VBCRLF
msg=msg & "avec passage en parame du mot de passe" & VBCRLF & VBCRLF
msg=msg & "JC BELLAMY 2002" & VBCRLF
End If
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & "Syntaxe : " & VBCRLF
msg=msg & " XRUNAS [/profile] [/env] [/netonly] /user:<compte>
/pwd:<password> commande" & VBCRLF
msg=msg & "Parames :" & VBCRLF
msg=msg & " /profile si le profil de l'utilisateur doit e charg&
VBCRLF

msg=msg & " /env pour utiliser l'environnement en cours a place
de"

&

VBCRLF
msg=msg & " celui de l'utilisateur." & VBCRLF
msg=msg & " /netonly tiliser si les informations d'identification
spfi"

&

VBCRLF
msg=msg & " sont pour l'accistance seulement." & VBCRLF
msg=msg & " /user <compte> sous la forme UTILISATEUR@DOMAINE" &
VBCRLF

msg=msg & " ou UTILISATEUR ou DOMAINEUTILISATEUR" & VBCRLF
msg=msg & " /pwd <password> : le mot de passe" & VBCRLF
msg=msg & " NB : sensible a casse (minuscules/majuscules)" &
VBCRLF
msg=msg & " commande commande xter" & VBCRLF & VBCRLF
msg=msg & "Exemples:" & VBCRLF
msg=msg & "> xrunas /profile /user:administrateur /pwd:toto cmd" &
VBCRLF

msg=msg & "> xrunas /profile /env /user:MonDomaineadmin /pwd:truc ""mmc
%windir%system32dsa.msc"" " & VBCRLF
msg=msg & "> xrunas /env /user:utilisateur@domaine.microsoft.com
/pwd:bill

""notepad ""Fichier.txt"" " & VBCRLF & VBCRLF
msg=msg & "NB: vu que le mot de passe est visible, ce script ne doit e
utilis& VBCRLF
msg=msg & " qu'en des circonstances bien particulis!" & VBCRLF
msg=msg & " USER@DOMAIN n'est pas compatible avec /netonly." & VBCRLF
&

VBCRLF
wscript.echo msg
wscript.quit
End Sub
' -------------------------------------


Cordialement
Georges



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23uip5VIqFHA.1032@TK2MSFTNGP09.phx.gbl...

Bonjour à toutes et à tous
Pour une raison que je ne m'explique pas (anti-virus au boulot
peut-être

?)

, je ne peux pas accéder au fichier exemple de Jean-Claude Bellamy sur
son

site.
Quelqu'un pourrait-il me transmettre en réponse le code exemple VBS
pour

l'utilisation de XRUNAS ?
Merci d'avance
Cordialement
Pascal

Re bonjour Papou,
Je ne connais pas le fonctionnement de ce script, mais il semblerait,
d'après la description des paramètres, qu'il faille indiquer le domaine dans
le paramètres user
Dans votre cas cela devrait être ... /user:administrateur@votredomaine ....
Sinon, il vaudrait peut-être mieux demander directement à M BELLAMY

Cordialement
Georges



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23yGHdGJqFHA.2588@TK2MSFTNGP12.phx.gbl...

Re
Bon je viens de faire un petit test mais ça ne marche pas :-(
Erreur sur le caractère 51, erreur de syntaxe :
objshell.run XRUNAS /profile /user:administrateur /pwd:papou CMD

Le but : modifier avec un fichier script une valeur DWORD dans la base de
registre en étant en mode administrateur car l'utilisateur n'a pas les
droits de modifier la BDR.

Si quelqu'un a une idée ou a déjà fait, je suis preneur ;-)

Cordialement
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
#s9SgwIqFHA.4056@TK2MSFTNGP09.phx.gbl...

Bonjour Georges
Je te remercie beaucoup :-)
Bonne journée

Cordialement
Pascal

"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message
news:

ecZFPqIqFHA.712@TK2MSFTNGP15.phx.gbl...

Bonjour Papou,
Voici le source demandé
Attention au retours à la ligne


' ---------------------------------------------------------------------

' Script de lancement d'application avec RUNAS
' Syntaxe identique UNAS mais avec en plus passage du mot de passe
'
' Syntaxe:
' XRUNAS [/profile] [/env] [/netonly] /user:<NomUtilisateur>
/pwd:<password>

programme
' /profile si le profil de l'utilisateur doit e charg /env
pour utiliser l'environnement en cours a place de
' celui de l'utilisateur.
' /netonly tiliser si les informations d'identification spfi
' sont pour l'accistance seulement.
' /user <NomUtilisateur> sous la forme UTILISATEUR@DOMAINE
' ou DOMAINEUTILISATEUR
' /pwd <password> : le mot de passe
' programme ligne de commande pour EXE.
'
'
' JC BELLAMY 2002

' ---------------------------------------------------------------------

Const SW_HIDE=0
Const SW_SHOWNORMAL=1

Dim shell, args, fso, erreur
Set net = Wscript.CreateObject("WScript.Network")
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
nbargs=args.count

Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

If not fso.FileExists(Title) Then
msg="Commande " & Title & " non trouv & VBCRLF
msg=msg & "Ce script ne fonctionne que sous Windows 2000 et au del&
VBCRLF

wscript.echo msg
wscript.quit
End If

If nbargs=0 or testarg("?") or testarg("h") Then Syntaxe ""
defmoteur="cscript"
TestHost true

erreurúlse
profile=""
env=""
netonly=""
If testarg("profile") Then profile="/profile "
If testarg("env") Then env="/env "
If testarg("netonly") Then netonly="/netonly "
If testarg("user:") Then user=getarg("user:") else MsgErr("Utilisateur
absent")
If testarg("pwd:") Then pwd=getarg("pwd:") else MsgErr("Mot de passe
absent")
testprogúlse
For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)<>"/" and left(curarg,1)<>"-" Then
programme=curarg
testprog=true
exit for
End If
Next
If not testprog then MsgErr("Programme absent")
If erreur Then Syntaxe "erreur"

Commande="runas " & profile & env & netonly & "/user:" & user & " """
&

programme & """"

shell.run Commande,SW_SHOWNORMAL
Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

shell.AppActivate Title
WScript.Sleep 150
shell.SendKeys pwd & "~"
Wscript.quit
'--------------------------------------------------------------------
Function testarg(param)
testargúlse
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
testarg=true
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Function getarg(param)
getarg=""
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
getarg=mid(args(i),2+len(param))
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Sub MsgErr(msg)
wscript.echo "Erreur : " & msg
erreur=true
End Sub
'--------------------------------------------------------------------
' Sous programme de test du moteur
Sub TestHost(force)
dim rep
strappli=lcase(Wscript.ScriptFullName)
strFullName =lcase(WScript.FullName)
i=InStr(1,strFullName,".exe",1)
j=InStrRev(strFullName,"",i,1)
strCommand=Mid(strFullName,j+1,i-j-1)
if strCommand<>"cscript" then
If force then
Init="Ce script doit e lancvec CSCRIPT"
Else
Init="Il est prrable de lancer ce script avec CSCRIPT"
End If
rep=MsgBox(Init & VBCRLF & _
"Cela peut e rendu permanent avec la commande" & VBCRLF & _
"cscript file://H:CScript file://S /Nologo" & VBCRLF & _
"Voulez-vous que ce soit fait automatiquement?", _
vbYesNo + vbQuestion,strappli)
if rep=vbYes then
nomcmd="setscript.bat"
Set ficcmd = fso.CreateTextFile(nomcmd)
ficcmd.writeline "@echo off"
ficcmd.writeline "cscript file://H:CScript file://S /Nologo"
ficcmd.writeline "pause"
params=""
For i = 0 To nbargs-1
params=params & " " & args(i)
next
ficcmd.writeline chr(34) & strappli & chr(34) & params
ficcmd.writeline "pause"
ficcmd.close
shell.Run nomcmd, SW_SHOWNORMAL,true
force=true
end if
If force then WScript.Quit
end if
end sub
'--------------------------------------------------------------------
Sub Syntaxe(info)
If info="" Then
msg= "Script VBS de lancement d'application avec RUNAS" & VBCRLF
msg=msg & "avec passage en parame du mot de passe" & VBCRLF & VBCRLF
msg=msg & "JC BELLAMY 2002" & VBCRLF
End If
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & "Syntaxe : " & VBCRLF
msg=msg & " XRUNAS [/profile] [/env] [/netonly] /user:<compte>
/pwd:<password> commande" & VBCRLF
msg=msg & "Parames :" & VBCRLF
msg=msg & " /profile si le profil de l'utilisateur doit e charg&
VBCRLF

msg=msg & " /env pour utiliser l'environnement en cours a place
de"

&

VBCRLF
msg=msg & " celui de l'utilisateur." & VBCRLF
msg=msg & " /netonly tiliser si les informations d'identification
spfi"

&

VBCRLF
msg=msg & " sont pour l'accistance seulement." & VBCRLF
msg=msg & " /user <compte> sous la forme UTILISATEUR@DOMAINE" &
VBCRLF

msg=msg & " ou UTILISATEUR ou DOMAINEUTILISATEUR" & VBCRLF
msg=msg & " /pwd <password> : le mot de passe" & VBCRLF
msg=msg & " NB : sensible a casse (minuscules/majuscules)"
&

VBCRLF
msg=msg & " commande commande xter" & VBCRLF & VBCRLF
msg=msg & "Exemples:" & VBCRLF
msg=msg & "> xrunas /profile /user:administrateur /pwd:toto cmd" &
VBCRLF

msg=msg & "> xrunas /profile /env /user:MonDomaineadmin /pwd:truc
""mmc

%windir%system32dsa.msc"" " & VBCRLF
msg=msg & "> xrunas /env /user:utilisateur@domaine.microsoft.com
/pwd:bill

""notepad ""Fichier.txt"" " & VBCRLF & VBCRLF
msg=msg & "NB: vu que le mot de passe est visible, ce script ne doit e
utilis& VBCRLF
msg=msg & " qu'en des circonstances bien particulis!" & VBCRLF
msg=msg & " USER@DOMAIN n'est pas compatible avec /netonly." &
VBCRLF

&

VBCRLF
wscript.echo msg
wscript.quit
End Sub
' -------------------------------------


Cordialement
Georges



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23uip5VIqFHA.1032@TK2MSFTNGP09.phx.gbl...

Bonjour à toutes et à tous
Pour une raison que je ne m'explique pas (anti-virus au boulot
peut-être

?)

, je ne peux pas accéder au fichier exemple de Jean-Claude Bellamy
sur

son

site.
Quelqu'un pourrait-il me transmettre en réponse le code exemple VBS
pour

l'utilisation de XRUNAS ?
Merci d'avance
Cordialement
Pascal

Georges
Merci pour le retour !
Malheureusement, en y ajoutant le domaine, je ne parviens qu'à faire
apparaître un fenêtre MS-DOS sans autre action derrière.
Voici ce que je tente de faire :

Dim objshell
Set ObjShell = WScript.CreateObject("WScript.Shell")
objshell.run "cmd XRUNAS /profile /user:tibcoadministrateur /pwd:tibco44" &
"C:MAJREG.VBS"

Merci à ceux ou celles qui pourront m'aider

Cordialement
Pascal
"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message news:
Or2WQUJqFHA.1272@TK2MSFTNGP11.phx.gbl...

Re bonjour Papou,
Je ne connais pas le fonctionnement de ce script, mais il semblerait,
d'après la description des paramètres, qu'il faille indiquer le domaine
dans

le paramètres user
Dans votre cas cela devrait être ... /user:administrateur@votredomaine
....

Sinon, il vaudrait peut-être mieux demander directement à M BELLAMY

Cordialement
Georges



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23yGHdGJqFHA.2588@TK2MSFTNGP12.phx.gbl...

Re
Bon je viens de faire un petit test mais ça ne marche pas :-(
Erreur sur le caractère 51, erreur de syntaxe :
objshell.run XRUNAS /profile /user:administrateur /pwd:papou CMD

Le but : modifier avec un fichier script une valeur DWORD dans la base
de

registre en étant en mode administrateur car l'utilisateur n'a pas les
droits de modifier la BDR.

Si quelqu'un a une idée ou a déjà fait, je suis preneur ;-)

Cordialement
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
#s9SgwIqFHA.4056@TK2MSFTNGP09.phx.gbl...

Bonjour Georges
Je te remercie beaucoup :-)
Bonne journée

Cordialement
Pascal

"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message
news:

ecZFPqIqFHA.712@TK2MSFTNGP15.phx.gbl...

Bonjour Papou,
Voici le source demandé
Attention au retours à la ligne


' ---------------------------------------------------------------------

' Script de lancement d'application avec RUNAS
' Syntaxe identique UNAS mais avec en plus passage du mot de passe
'
' Syntaxe:
' XRUNAS [/profile] [/env] [/netonly] /user:<NomUtilisateur>
/pwd:<password>

programme
' /profile si le profil de l'utilisateur doit e charg
/env

pour utiliser l'environnement en cours a place de
' celui de l'utilisateur.
' /netonly tiliser si les informations d'identification
spfi

' sont pour l'accistance seulement.
' /user <NomUtilisateur> sous la forme
UTILISATEUR@DOMAINE

' ou DOMAINEUTILISATEUR
' /pwd <password> : le mot de passe
' programme ligne de commande pour EXE.
'
'
' JC BELLAMY 2002

' ---------------------------------------------------------------------

Const SW_HIDE=0
Const SW_SHOWNORMAL=1

Dim shell, args, fso, erreur
Set net = Wscript.CreateObject("WScript.Network")
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
nbargs=args.count

Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

If not fso.FileExists(Title) Then
msg="Commande " & Title & " non trouv & VBCRLF
msg=msg & "Ce script ne fonctionne que sous Windows 2000 et au del&
VBCRLF

wscript.echo msg
wscript.quit
End If

If nbargs=0 or testarg("?") or testarg("h") Then Syntaxe ""
defmoteur="cscript"
TestHost true

erreurúlse
profile=""
env=""
netonly=""
If testarg("profile") Then profile="/profile "
If testarg("env") Then env="/env "
If testarg("netonly") Then netonly="/netonly "
If testarg("user:") Then user=getarg("user:") else
MsgErr("Utilisateur

absent")
If testarg("pwd:") Then pwd=getarg("pwd:") else MsgErr("Mot de passe
absent")
testprogúlse
For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)<>"/" and left(curarg,1)<>"-" Then
programme=curarg
testprog=true
exit for
End If
Next
If not testprog then MsgErr("Programme absent")
If erreur Then Syntaxe "erreur"

Commande="runas " & profile & env & netonly & "/user:" & user & "
"""

&

programme & """"

shell.run Commande,SW_SHOWNORMAL
Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

shell.AppActivate Title
WScript.Sleep 150
shell.SendKeys pwd & "~"
Wscript.quit

'--------------------------------------------------------------------

Function testarg(param)
testargúlse
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
testarg=true
exit function
End If
End If
Next
End Function

'--------------------------------------------------------------------

Function getarg(param)
getarg=""
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
getarg=mid(args(i),2+len(param))
exit function
End If
End If
Next
End Function

'--------------------------------------------------------------------

Sub MsgErr(msg)
wscript.echo "Erreur : " & msg
erreur=true
End Sub

'--------------------------------------------------------------------

' Sous programme de test du moteur
Sub TestHost(force)
dim rep
strappli=lcase(Wscript.ScriptFullName)
strFullName =lcase(WScript.FullName)
i=InStr(1,strFullName,".exe",1)
j=InStrRev(strFullName,"",i,1)
strCommand=Mid(strFullName,j+1,i-j-1)
if strCommand<>"cscript" then
If force then
Init="Ce script doit e lancvec CSCRIPT"
Else
Init="Il est prrable de lancer ce script avec CSCRIPT"
End If
rep=MsgBox(Init & VBCRLF & _
"Cela peut e rendu permanent avec la commande" & VBCRLF & _
"cscript file://H:CScript file://S /Nologo" & VBCRLF & _
"Voulez-vous que ce soit fait automatiquement?", _
vbYesNo + vbQuestion,strappli)
if rep=vbYes then
nomcmd="setscript.bat"
Set ficcmd = fso.CreateTextFile(nomcmd)
ficcmd.writeline "@echo off"
ficcmd.writeline "cscript file://H:CScript file://S /Nologo"
ficcmd.writeline "pause"
params=""
For i = 0 To nbargs-1
params=params & " " & args(i)
next
ficcmd.writeline chr(34) & strappli & chr(34) & params
ficcmd.writeline "pause"
ficcmd.close
shell.Run nomcmd, SW_SHOWNORMAL,true
force=true
end if
If force then WScript.Quit
end if
end sub

'--------------------------------------------------------------------

Sub Syntaxe(info)
If info="" Then
msg= "Script VBS de lancement d'application avec RUNAS" &
VBCRLF

msg=msg & "avec passage en parame du mot de passe" & VBCRLF & VBCRLF
msg=msg & "JC BELLAMY 2002" & VBCRLF
End If
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & "Syntaxe : " & VBCRLF
msg=msg & " XRUNAS [/profile] [/env] [/netonly] /user:<compte>
/pwd:<password> commande" & VBCRLF
msg=msg & "Parames :" & VBCRLF
msg=msg & " /profile si le profil de l'utilisateur doit e charg&
VBCRLF

msg=msg & " /env pour utiliser l'environnement en cours a
place

de"

&

VBCRLF
msg=msg & " celui de l'utilisateur." & VBCRLF
msg=msg & " /netonly tiliser si les informations d'identification
spfi"

&

VBCRLF
msg=msg & " sont pour l'accistance seulement." & VBCRLF
msg=msg & " /user <compte> sous la forme UTILISATEUR@DOMAINE" &
VBCRLF

msg=msg & " ou UTILISATEUR ou DOMAINEUTILISATEUR" &
VBCRLF

msg=msg & " /pwd <password> : le mot de passe" & VBCRLF
msg=msg & " NB : sensible a casse
(minuscules/majuscules)"

&

VBCRLF
msg=msg & " commande commande xter" & VBCRLF & VBCRLF
msg=msg & "Exemples:" & VBCRLF
msg=msg & "> xrunas /profile /user:administrateur /pwd:toto cmd" &
VBCRLF

msg=msg & "> xrunas /profile /env /user:MonDomaineadmin /pwd:truc
""mmc

%windir%system32dsa.msc"" " & VBCRLF
msg=msg & "> xrunas /env /user:utilisateur@domaine.microsoft.com
/pwd:bill

""notepad ""Fichier.txt"" " & VBCRLF & VBCRLF
msg=msg & "NB: vu que le mot de passe est visible, ce script ne doit
e

utilis& VBCRLF
msg=msg & " qu'en des circonstances bien particulis!" & VBCRLF
msg=msg & " USER@DOMAIN n'est pas compatible avec /netonly." &
VBCRLF

&

VBCRLF
wscript.echo msg
wscript.quit
End Sub
' -------------------------------------


Cordialement
Georges



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23uip5VIqFHA.1032@TK2MSFTNGP09.phx.gbl...

Bonjour à toutes et à tous
Pour une raison que je ne m'explique pas (anti-virus au boulot
peut-être

?)

, je ne peux pas accéder au fichier exemple de Jean-Claude Bellamy
sur

son

site.
Quelqu'un pourrait-il me transmettre en réponse le code exemple
VBS

pour

l'utilisation de XRUNAS ?
Merci d'avance
Cordialement
Pascal

papou wrote:

Georges
Merci pour le retour !
Malheureusement, en y ajoutant le domaine, je ne parviens qu'à faire
apparaître un fenêtre MS-DOS sans autre action derrière.
Voici ce que je tente de faire :

Dim objshell
Set ObjShell = WScript.CreateObject("WScript.Shell")
objshell.run "cmd XRUNAS /profile /user:tibcoadministrateur
/pwd:tibco44" & "C:MAJREG.VBS"

tu as bien le shell cmsd qui se lance mais pas le vbs ....
en precisant cscript peut-etre ....;essaye un truc comme ca :

objshell.run "cscript XRUNAS.vbs /profile /user:tibcoadministrateur
/pwd:tibco44 C:MAJREG.VBS"

DJ

Re bonjour Papou,
J'ai de nouveau récupéré le script sur le site de M BELLAMY mais je l'ai
vraiment téléchargé et je n'ai pas utilisé le lien qui donne accès à la
source du script.
Il semblerait que les caractères accentués aient disparus...
Voici donc le bon source (et de nouveau, attention aux retours chariots)
pour que vous puissiez faire un nouveau test

' ---------------------------------------------------------------------
' Script de lancement d'application avec RUNAS
' Syntaxe identique à RUNAS mais avec en plus passage du mot de passe
'
' Syntaxe:
' XRUNAS [/profile] [/env] [/netonly] /user:<NomUtilisateur> /pwd:<password>
programme
' /profile si le profil de l'utilisateur doit être chargé
' /env pour utiliser l'environnement en cours à la place de
' celui de l'utilisateur.
' /netonly à utiliser si les informations d'identification spécifiées
' sont pour l'accès à distance seulement.
' /user <NomUtilisateur> sous la forme UTILISATEUR@DOMAINE
' ou DOMAINEUTILISATEUR
' /pwd <password> : le mot de passe
' programme ligne de commande pour EXE.
'
'
' JC BELLAMY © 2002
' ---------------------------------------------------------------------
Const SW_HIDE=0
Const SW_SHOWNORMAL=1
Dim shell, args, fso, erreur
Set net = Wscript.CreateObject("WScript.Network")
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
nbargs=args.count
Title=shell.ExpandEnvironmentStrings("%systemroot%") & "system32runas.exe"
If not fso.FileExists(Title) Then
msg="Commande " & Title & " non trouvée" & VBCRLF
msg=msg & "Ce script ne fonctionne que sous Windows 2000 et au delà" &
VBCRLF
wscript.echo msg
wscript.quit
End If

If nbargs=0 or testarg("?") or testarg("h") Then Syntaxe ""

defmoteur="cscript"
TestHost true
erreurúlse
profile=""
env=""
netonly=""

If testarg("profile") Then profile="/profile "
If testarg("env") Then env="/env "
If testarg("netonly") Then netonly="/netonly "
If testarg("user:") Then user=getarg("user:") else MsgErr("Utilisateur
absent")
If testarg("pwd:") Then pwd=getarg("pwd:") else MsgErr("Mot de passe
absent")
testprogúlse

For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)<>"/" and left(curarg,1)<>"-" Then
programme=curarg
testprog=true
exit for
End If
Next

If not testprog then MsgErr("Programme absent")

If erreur Then Syntaxe "erreur"

Commande="runas " & profile & env & netonly & "/user:" & user & " """ &
programme & """"
shell.run Commande,SW_SHOWNORMAL
Title=shell.ExpandEnvironmentStrings("%systemroot%") & "system32runas.exe"
shell.AppActivate Title
WScript.Sleep 150
shell.SendKeys pwd & "~"
Wscript.quit
'--------------------------------------------------------------------
Function testarg(param)
testargúlse
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
testarg=true
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Function getarg(param)
getarg=""
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
getarg=mid(args(i),2+len(param))
exit function
End If
End If
Next
End Function
'--------------------------------------------------------------------
Sub MsgErr(msg)
wscript.echo "Erreur : " & msg
erreur=true
End Sub
'--------------------------------------------------------------------
' Sous programme de test du moteur
Sub TestHost(force)
dim rep
strappli=lcase(Wscript.ScriptFullName)
strFullName =lcase(WScript.FullName)
i=InStr(1,strFullName,".exe",1)
j=InStrRev(strFullName,"",i,1)
strCommand=Mid(strFullName,j+1,i-j-1)
if strCommand<>"cscript" then
If force then
Init="Ce script doit être lancé avec CSCRIPT"
Else
Init="Il est préférable de lancer ce script avec CSCRIPT"
End If
rep=MsgBox(Init & VBCRLF & _
"Cela peut être rendu permanent avec la commande" & VBCRLF & _
"cscript //H:CScript //S /Nologo" & VBCRLF & _
"Voulez-vous que ce soit fait automatiquement?", _
vbYesNo + vbQuestion,strappli)
if rep=vbYes then
nomcmd="setscript.bat"
Set ficcmd = fso.CreateTextFile(nomcmd)
ficcmd.writeline "@echo off"
ficcmd.writeline "cscript //H:CScript //S /Nologo"
ficcmd.writeline "pause"
params=""
For i = 0 To nbargs-1
params=params & " " & args(i)
next
ficcmd.writeline chr(34) & strappli & chr(34) & params
ficcmd.writeline "pause"
ficcmd.close
shell.Run nomcmd, SW_SHOWNORMAL,true
force=true
end if
If force then WScript.Quit
end if
end sub
'--------------------------------------------------------------------
Sub Syntaxe(info)
If info="" Then
msg= "Script VBS de lancement d'application avec RUNAS" & VBCRLF
msg=msg & "avec passage en paramètre du mot de passe" & VBCRLF & VBCRLF
msg=msg & "JC BELLAMY © 2002" & VBCRLF
End If
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & "Syntaxe : " & VBCRLF
msg=msg & " XRUNAS [/profile] [/env] [/netonly] /user:<compte>
/pwd:<password> commande" & VBCRLF
msg=msg & "Paramètres :" & VBCRLF
msg=msg & " /profile si le profil de l'utilisateur doit être chargé" &
VBCRLF
msg=msg & " /env pour utiliser l'environnement en cours à la place de" &
VBCRLF
msg=msg & " celui de l'utilisateur." & VBCRLF
msg=msg & " /netonly à utiliser si les informations d'identification
spécifiées" & VBCRLF
msg=msg & " sont pour l'accès à distance seulement." & VBCRLF
msg=msg & " /user <compte> sous la forme UTILISATEUR@DOMAINE" & VBCRLF
msg=msg & " ou UTILISATEUR ou DOMAINEUTILISATEUR" & VBCRLF
msg=msg & " /pwd <password> : le mot de passe" & VBCRLF
msg=msg & " NB : sensible à la casse (minuscules/majuscules)" & VBCRLF
msg=msg & " commande commande à exécuter" & VBCRLF & VBCRLF
msg=msg & "Exemples :" & VBCRLF
msg=msg & "> xrunas /profile /user:administrateur /pwd:toto cmd" & VBCRLF
msg=msg & "> xrunas /profile /env /user:MonDomaineadmin /pwd:truc ""mmc
%windir%system32dsa.msc"" " & VBCRLF
msg=msg & "> xrunas /env /user:utilisateur@domaine.microsoft.com /pwd:bill
""notepad ""Fichier.txt"" " & VBCRLF & VBCRLF
msg=msg & "NB: vu que le mot de passe est visible, ce script ne doit être
utilisé" & VBCRLF
msg=msg & " qu'en des circonstances bien particulières!" & VBCRLF
msg=msg & " USER@DOMAIN n'est pas compatible avec /netonly." & VBCRLF &
VBCRLF
wscript.echo msg
wscript.quit
End Sub
' -------------------------------------


Cordialement
Georges


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23OEjnbJqFHA.2076@TK2MSFTNGP14.phx.gbl...

Georges
Merci pour le retour !
Malheureusement, en y ajoutant le domaine, je ne parviens qu'à faire
apparaître un fenêtre MS-DOS sans autre action derrière.
Voici ce que je tente de faire :

Dim objshell
Set ObjShell = WScript.CreateObject("WScript.Shell")
objshell.run "cmd XRUNAS /profile /user:tibcoadministrateur /pwd:tibco44"
&

"C:MAJREG.VBS"

Merci à ceux ou celles qui pourront m'aider

Cordialement
Pascal
"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message news:
Or2WQUJqFHA.1272@TK2MSFTNGP11.phx.gbl...

Re bonjour Papou,
Je ne connais pas le fonctionnement de ce script, mais il semblerait,
d'après la description des paramètres, qu'il faille indiquer le domaine
dans

le paramètres user
Dans votre cas cela devrait être ... /user:administrateur@votredomaine
....

Sinon, il vaudrait peut-être mieux demander directement à M BELLAMY

Cordialement
Georges



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23yGHdGJqFHA.2588@TK2MSFTNGP12.phx.gbl...

Re
Bon je viens de faire un petit test mais ça ne marche pas :-(
Erreur sur le caractère 51, erreur de syntaxe :
objshell.run XRUNAS /profile /user:administrateur /pwd:papou CMD

Le but : modifier avec un fichier script une valeur DWORD dans la base
de

registre en étant en mode administrateur car l'utilisateur n'a pas les
droits de modifier la BDR.

Si quelqu'un a une idée ou a déjà fait, je suis preneur ;-)

Cordialement
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
#s9SgwIqFHA.4056@TK2MSFTNGP09.phx.gbl...

Bonjour Georges
Je te remercie beaucoup :-)
Bonne journée

Cordialement
Pascal

"Georges MAUREL" <georges.maurel_at_free.fr> a écrit dans le message
news:

ecZFPqIqFHA.712@TK2MSFTNGP15.phx.gbl...

Bonjour Papou,
Voici le source demandé
Attention au retours à la ligne


' ---------------------------------------------------------------------

' Script de lancement d'application avec RUNAS
' Syntaxe identique UNAS mais avec en plus passage du mot de passe
'
' Syntaxe:
' XRUNAS [/profile] [/env] [/netonly] /user:<NomUtilisateur>
/pwd:<password>

programme
' /profile si le profil de l'utilisateur doit e charg
/env

pour utiliser l'environnement en cours a place de
' celui de l'utilisateur.
' /netonly tiliser si les informations d'identification
spfi

' sont pour l'accistance seulement.
' /user <NomUtilisateur> sous la forme
UTILISATEUR@DOMAINE

' ou DOMAINEUTILISATEUR
' /pwd <password> : le mot de passe
' programme ligne de commande pour EXE.
'
'
' JC BELLAMY 2002

' ---------------------------------------------------------------------

Const SW_HIDE=0
Const SW_SHOWNORMAL=1

Dim shell, args, fso, erreur
Set net = Wscript.CreateObject("WScript.Network")
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set args = Wscript.Arguments
nbargs=args.count

Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

If not fso.FileExists(Title) Then
msg="Commande " & Title & " non trouv & VBCRLF
msg=msg & "Ce script ne fonctionne que sous Windows 2000 et au
del&

VBCRLF

wscript.echo msg
wscript.quit
End If

If nbargs=0 or testarg("?") or testarg("h") Then Syntaxe ""
defmoteur="cscript"
TestHost true

erreurúlse
profile=""
env=""
netonly=""
If testarg("profile") Then profile="/profile "
If testarg("env") Then env="/env "
If testarg("netonly") Then netonly="/netonly "
If testarg("user:") Then user=getarg("user:") else
MsgErr("Utilisateur

absent")
If testarg("pwd:") Then pwd=getarg("pwd:") else MsgErr("Mot de
passe

absent")
testprogúlse
For i = 0 To nbargs-1
curarg=args(i)
If left(curarg,1)<>"/" and left(curarg,1)<>"-" Then
programme=curarg
testprog=true
exit for
End If
Next
If not testprog then MsgErr("Programme absent")
If erreur Then Syntaxe "erreur"

Commande="runas " & profile & env & netonly & "/user:" & user & "
"""

&

programme & """"

shell.run Commande,SW_SHOWNORMAL
Title=shell.ExpandEnvironmentStrings("%systemroot%") &
"system32runas.exe"

shell.AppActivate Title
WScript.Sleep 150
shell.SendKeys pwd & "~"
Wscript.quit

'--------------------------------------------------------------------

Function testarg(param)
testargúlse
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
testarg=true
exit function
End If
End If
Next
End Function

'--------------------------------------------------------------------

Function getarg(param)
getarg=""
For i = 0 To nbargs-1
curarg=lcase(args(i))
If left(curarg,1)="/" or left(curarg,1)="-" Then
If mid(curarg,2,len(param))=param Then
getarg=mid(args(i),2+len(param))
exit function
End If
End If
Next
End Function

'--------------------------------------------------------------------

Sub MsgErr(msg)
wscript.echo "Erreur : " & msg
erreur=true
End Sub

'--------------------------------------------------------------------

' Sous programme de test du moteur
Sub TestHost(force)
dim rep
strappli=lcase(Wscript.ScriptFullName)
strFullName =lcase(WScript.FullName)
i=InStr(1,strFullName,".exe",1)
j=InStrRev(strFullName,"",i,1)
strCommand=Mid(strFullName,j+1,i-j-1)
if strCommand<>"cscript" then
If force then
Init="Ce script doit e lancvec CSCRIPT"
Else
Init="Il est prrable de lancer ce script avec CSCRIPT"
End If
rep=MsgBox(Init & VBCRLF & _
"Cela peut e rendu permanent avec la commande" & VBCRLF & _
"cscript file://H:CScript file://S /Nologo" & VBCRLF & _
"Voulez-vous que ce soit fait automatiquement?", _
vbYesNo + vbQuestion,strappli)
if rep=vbYes then
nomcmd="setscript.bat"
Set ficcmd = fso.CreateTextFile(nomcmd)
ficcmd.writeline "@echo off"
ficcmd.writeline "cscript file://H:CScript file://S /Nologo"
ficcmd.writeline "pause"
params=""
For i = 0 To nbargs-1
params=params & " " & args(i)
next
ficcmd.writeline chr(34) & strappli & chr(34) & params
ficcmd.writeline "pause"
ficcmd.close
shell.Run nomcmd, SW_SHOWNORMAL,true
force=true
end if
If force then WScript.Quit
end if
end sub

'--------------------------------------------------------------------

Sub Syntaxe(info)
If info="" Then
msg= "Script VBS de lancement d'application avec RUNAS" &
VBCRLF

msg=msg & "avec passage en parame du mot de passe" & VBCRLF &
VBCRLF

msg=msg & "JC BELLAMY 2002" & VBCRLF
End If
msg=msg & "------------------------------------------" & VBCRLF
msg=msg & "Syntaxe : " & VBCRLF
msg=msg & " XRUNAS [/profile] [/env] [/netonly] /user:<compte>
/pwd:<password> commande" & VBCRLF
msg=msg & "Parames :" & VBCRLF
msg=msg & " /profile si le profil de l'utilisateur doit e charg&
VBCRLF

msg=msg & " /env pour utiliser l'environnement en cours a
place

de"

&

VBCRLF
msg=msg & " celui de l'utilisateur." & VBCRLF
msg=msg & " /netonly tiliser si les informations
d'identification

spfi"

&

VBCRLF
msg=msg & " sont pour l'accistance seulement." & VBCRLF
msg=msg & " /user <compte> sous la forme UTILISATEUR@DOMAINE"
&

VBCRLF

msg=msg & " ou UTILISATEUR ou DOMAINEUTILISATEUR" &
VBCRLF

msg=msg & " /pwd <password> : le mot de passe" & VBCRLF
msg=msg & " NB : sensible a casse
(minuscules/majuscules)"

&

VBCRLF
msg=msg & " commande commande xter" & VBCRLF & VBCRLF
msg=msg & "Exemples:" & VBCRLF
msg=msg & "> xrunas /profile /user:administrateur /pwd:toto cmd" &
VBCRLF

msg=msg & "> xrunas /profile /env /user:MonDomaineadmin /pwd:truc
""mmc

%windir%system32dsa.msc"" " & VBCRLF
msg=msg & "> xrunas /env /user:utilisateur@domaine.microsoft.com
/pwd:bill

""notepad ""Fichier.txt"" " & VBCRLF & VBCRLF
msg=msg & "NB: vu que le mot de passe est visible, ce script ne
doit

e

utilis& VBCRLF
msg=msg & " qu'en des circonstances bien particulis!" & VBCRLF
msg=msg & " USER@DOMAIN n'est pas compatible avec /netonly." &
VBCRLF

&

VBCRLF
wscript.echo msg
wscript.quit
End Sub
' -------------------------------------


Cordialement
Georges



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%23uip5VIqFHA.1032@TK2MSFTNGP09.phx.gbl...

Bonjour à toutes et à tous
Pour une raison que je ne m'explique pas (anti-virus au boulot
peut-être

?)

, je ne peux pas accéder au fichier exemple de Jean-Claude
Bellamy

sur

son

site.
Quelqu'un pourrait-il me transmettre en réponse le code exemple
VBS

pour

l'utilisation de XRUNAS ?
Merci d'avance
Cordialement
Pascal