Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Interrogation base de registre distante

1 réponse
Avatar
Thierry
Bonjour,

J'ai un script qui effectue une op=E9ration sur une station:

On Error Resume Next
const HKEY_LOCAL_MACHINE =3D &H80000002
strComputer =3D "CEN-S1-EXPLOIT1"
Set objWMIService =3D GetObject("winmgmts:\\" & strComputer=20
& "\root\cimv2")
If Err =3D 462 Then
MsgBox "Poste non joignable"
Else
MsgBox "Poste joignable"
Set oReg =3D GetObject("winmgmts:\\" & strComputer=20
& "\root\default:StdRegProv")
strKey =3D "SOFTWARE\ServiceInfoBM\Millennium"
strValueName1 =3D "NbSession"
strValueName2 =3D "VerVbs"
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE, strKey,=20
strValueName1, strNbSess
If IsNull(strNbSess) Or Err =3D 424 Then strNbSess =3D "Cl=E9=20
non d=E9finit"
MsgBox strNbSess
End if

Ce script fonctionne tr=E8s bien =E0 l'exception pr=EAt qu'il=20
copie une partie de mon profil user windows sur le poste=20
que je teste !!!!

Comment puis emp=EAcher cela, il me copie environ 300ko=20
(j'ai 230 PC =E0 tester :o/)

C'est certainement du c=F4t=E9 strat=E9gie ou s=E9curit=E9 que cela=20
se situe, mais je ne vois pas trop ou, j'ai essay=E9 pas mal=20
de chose dans gpedit.msc, mais sans succ=E8s.

Il existe une solution, c'est sur, car sur le PC de mon=20
coll=E8gue cela ne se produisait pas avant de tester mon=20
profil sur son poste. Apr=E8s quoi, il a eu le m=EAme pb que=20
moi.

J'ai r=E9install=E9 ma machine avec seulement Win2k SP2
Le probl=E8me est pr=E9sent sans aucune autre installation !!

Merci pour vos lumi=E8res pr=E9cieuses.
Amicalement,
Thierry

1 réponse

Avatar
Vince C.
"Thierry" a écrit dans le message de news:
037901c4ff8f$3798e630$
Bonjour,

J'ai un script qui effectue une opération sur une station:


[...]
Ce script fonctionne très bien à l'exception prêt qu'il
copie une partie de mon profil user windows sur le poste
que je teste !!!!



Tout accès à distance implique un login de la part du compte qui se connecte à
la machine distante. Si le compte sous lequel l'application s'exécute est le
compte d'un utiliasteur du domaine, un profil local (sur la machine distante)
sera créé. C'est Windows qui veut ça.

Ce qui m'étonne, c'est que la connection à distance n'est possible que pour un
utilisateur membre du groupe Administrateurs. J'en déduis donc que votre
programme s'exécute sous un compte ordinaire possédant les privilèges
administratifs.

Paut-être pourriez-vous essayer le code suivant:

Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!" & _
strComputer & "rootcimv2")

Vincent