[ VBS - Active Directory ] Fin d'instruction attendue

Marsh Posté le 10-04-2007 à 17:08:04

Bonjour, voila en grOs mon problème.

Code :

set shell = WScript.CreateObject("WScript.shell" )
dim nto As New IADsNameTranslate

Quand je lance j'ai "Fin d'instruction Attendue."

Je débute en VBS , donc je ne sais pas trop.
Je pense qu'il doit y avoir une galère du coté de "wscript.CreateObject", mais je connais pas les composants ou librairies à inscrire.

Si quelqu'un a une idée.

Marsh Posté le 10-04-2007 à 17:08:04

Marsh Posté le 11-04-2007 à 10:26:39

up

personne la dessus ?

Marsh Posté le 11-04-2007 à 11:14:16

déjà c'est pas à la première ligne.
ensuite tu cherches à faire quoi ?

Marsh Posté le 11-04-2007 à 11:18:54

quand je lance ce script j'ai une erreur fin d'instruction attendu a la deuxieme ligne.

Ce que je veux faire, c'est recuperer un objet ADSI par le provider LDAP, pour ensuite l'utiliser avec un provider WINNT

C'est pour ajouter des groupes globaux à des groupes locaux

Marsh Posté le 12-04-2007 à 15:34:08

Perso je saurais pas te dire comme çà.
Y'a pas des exemples dans ScriptCenter ?

http://www.microsoft.com/technet/s [...] bs/ad.mspx

Message édité par Macromorph le 12-04-2007 à 15:35:16

Marsh Posté le 19-04-2007 à 21:59:04

Tu es sur que c'est du VBS que tu veux utiliser??
Car new n'existe pas en VBS (ou me trompje!)

Un exemple tiré de MSDN :

Code :

Dim nto
const ADS_NAME_INITTYPE_SERVER = 2
const ADS_NAME_TYPE_1779 = 1
const ADS_NAME_TYPE_NT4 = 3
server = "aDsServer"
user = "jeffsmith"
dom = "Fabrikam"
passwd = "top secret"
dn = "CN=jeffsmith,CN=Users,DC=Fabrikam,DC=COM"
Set nto = Server.CreateObject("NameTranslate" )
nto.InitEx ADS_NAME_INITTYPE_SERVER, server, user, dom, passwd
nto.Set ADS_NAME_TYPE_1779, dn
result = nto.Get(ADS_NAME_TYPE_NT4)

Message édité par jcdumas le 19-04-2007 à 21:59:17

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *