Script Netlogon VBS lisant AD sous windows 98

[Alban Ponche]

Bonjour,

Je cherche le moyen d'écrire un script VBS pouvant lire dans Active Directory, et se lancant aussi bien sous windows NT/XP que sous windows 98Se

Ceci est dans le but de lire l'appartenance au groupe utilisateur.

Merci

[kazer]

Utilises ADSI

[Alban Ponche]

Oui, ca je sais, mais comment. quand je met dans mon script :

Code: Tout sélectionner

Set wshNetwork = CreateObject("WScript.Network")
Set Sh = CreateObject("WScript.Shell")

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))


j'ai une erreur au niveau de la ligne

Code: Tout sélectionner

Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

Sous XP pas de probleme, mais sous 98 il me met : erreur inconnue

Vous pouvez m'aider ??

[thorvdr]

salut,

Oui, ca je sais, mais comment. quand je met dans mon script :

Code: Tout sélectionner

Set wshNetwork = CreateObject("WScript.Network")
Set Sh = CreateObject("WScript.Shell")

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))


j'ai une erreur au niveau de la ligne

Code: Tout sélectionner

Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

Sous XP pas de probleme, mais sous 98 il me met : erreur inconnue

Vous pouvez m'aider ??

=>Peut être avec ça :

Active Directory Client Extensions for Windows 95/98 and Windows NT 4.0

Active Directory Features Supported
Windows 95/98-based and Windows NT 4.0-based clients lack many of the features of Windows 2000 Professional that are related to Active Directory. The Active Directory client extension is an upgrade or patch for Windows 95, Windows 98 and Windows NT 4.0, which enables the following Active Directory features:

Active Directory Service Interfaces (ADSI). ADSI allows scripting to Active Directory and provides a common programming API to Active Directory programmers.

@+

[Alban Ponche]

J'ai déjà installé le Client DS sous win 98

Par contre, j'ai ciblé mon probleme
Ca viens de

Code: Tout sélectionner

ADSysInfo.UserName

Faut croire qu'il arrive pas a récupèrer l'utilisateru courrant

Une idée ??

[marcww]

Salut

Sous windows 98 la variable d'environnement username n'existe pas
Elle peut être créée avec l'utilitaire putinenv
ADSysInfo.UserName a peut-être besoin de cette variable ?

Marc

[Alban Ponche]

oui enfin le but c pas de passer une variable de DOS vers VB, puisque mon but est de plus avoir de BAT.

Autre suggestion ?

[thorvdr]

salut,

oui enfin le but c pas de passer une variable de DOS vers VB, puisque mon but est de plus avoir de BAT.

Autre suggestion ?

=>Regardes ça, tu vois ce que je veux dire !

Code: Tout sélectionner

dim wshshell
set wshshell=wscript.createobject("wscript.shell")

Public Sub Debug (str)
'****************
  'If (DebugEnable) Then
    WScript.Echo "DBG:"& str
    'WshShell.LogEvent 1, "DBG:"& WScript.ScriptFullName& ":"& str
  'End If
End Sub

dim strcomputername
dim strlogonserver
strcomputername=wshshell.expandenvironmentstrings("%computername%")
strlogonserver=wshshell.expandenvironmentstrings("%logonserver%")

Debug "Init: "& strComputerName
  Debug "Init: LogonServer:"& strLogonServer


@+

[marcww]

oui enfin le but c pas de passer une variable de DOS vers VB, puisque mon but est de plus avoir de BAT.

Autre suggestion ?

Ce n'est pas ce que je proposais, je disais juste que le problème est peut-être lié à cette variable d'environnement qui n'existe pas sous 98

Marc

[Alban Ponche]

Re,

Bon alors j'ai utilisé la méthode

Code: Tout sélectionner

ExpandEnvironmentStrings

pour récupérer mon nom d'utilisateur. Maintenant j'ai un autre probleme au niveau de la ligne

Code: Tout sélectionner

Set CurrentUser = GetObject("LDAP://" & username)

Sous Windows98, le script "bloque" un moment (15 sec environ) à cette ligne puis renvois un message d'erreur comme quoi il lui est impossibble de trouver la cible, un truc du genre.

Une idée ?

Code: Tout sélectionner

' Alban Ponche
' 21/05/2005
' Lycée St Jacques Hazebrouck

Const DOMAIN      = "toto.com"
Const SERVERNAME   = "srv1-pedago"
Const ADMINS98_GROUP= "cn=Admins98"
Const ADMINS_GROUP   = "cn=administrateurs"
Const SERVER_UNC   = "\\SRV1-PEDAGO"

Set wshNetwork = CreateObject("WScript.Network")
Set Sh = CreateObject("WScript.Shell")



' préparation des variable (pour windows 98)
Set WshSysEnv = Sh.Environment

WScript.Echo "OS = " & WshSysEnv("OS")
WScript.Echo "USER = " & Sh.ExpandEnvironmentStrings("%username%")
If WshSysEnv("OS") = "98" Then
   username = Sh.ExpandEnvironmentStrings("%username%")
   Set CurrentUser = GetObject("LDAP://" & username)
Else
   Set objadsi = CreateObject("ADSystemInfo")
   Set CurrentUser = GetObject("LDAP://" & objadsi.UserName)   
End If


strGroups = LCase(Join(CurrentUser.MemberOf))

' Mappage des lecteurs réseau pour le groupe Administrateurs
If InStr(strGroups,ADMINS_GROUP) Or InStr(strGroups,ADMINS_GROUP) Then
   wshNetwork.MapNetworkDrive "g:", SERVER_UNC & "\Distribution"
   wshNetwork.MapNetworkDrive "h:", SERVER_UNC & "\Dossiers"
   wshNetwork.MapNetworkDrive "i:", SERVER_UNC & "\Dossiers\administration"
   wshNetwork.MapNetworkDrive "j:", SERVER_UNC & "\Dossiers\rep_base"
End If



[helhaddad]

je cherche le moyen d'écrire un script VBS pouvant lire dans sql server 2005, pour récupérer les views tout on respectant le depandance entre les views merci pour votre aide

[kazer]

Déterrage de trois ans