Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2525 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] Script d'intégration dans un groupe de sécurité

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS] Script d'intégration dans un groupe de sécurité

n°2281014
barthemus
Posté le 09-05-2016 à 16:56:31  profilanswer
 

Bonjour  
Je suis actuellement en stage, pour finaliser ma formation T2SI.
Et je rencontre des problème j'ai dû mettre en place un serveur FOG qui fonctionne correctement.
Mais je bloque pour l'intégration dans des groupe de sécurité car on m'a demander de faire un script en VBS. qui doit faire la différence entre PC portable et fixe, et en fonction du type les faire rentré dans le bon groupe de sécurité.
Mais comme je ne connais pas trop le scripting je cherche surtout des script que je peut compiler
 
Pour le moment je tourne a peut près sur sa :
 

Code :
  1. Dim objSysInfo, objComputer, strComputerDN
  2. Dim objComputerGroup
  3. If IsLaptop( "." ) Then
  4.      WScript.Echo "Laptop"
  5. Set objSysInfo = CreateObject("ADSystemInfo" )
  6. strComputerDN = objSysInfo.ComputerName
  7. Set objComputer = GetObject("LDAP://" & strComputerDN)
  8. Set objComputerGroup = GetObject("LDAP://CN=postes de travail portables,OU=Postes de travail,OU=Machines,OU=monEntreprise-bretagne,DC=monEentreprise,DC=ad" )
  9.  If (objComputerGroup.IsMember(objComputer.AdsPath) = False) Then
  10.  objComputerGroup.Add(objComputer.AdsPath)
  11.  End If
  12. Else
  13.      WScript.Echo "Desktop computer"
  14.  Set objSysInfo = CreateObject("ADSystemInfo" )
  15. strComputerDN = objSysInfo.ComputerName
  16. Set objComputer = GetObject("LDAP://" & strComputerDN)
  17. Set objComputerGroup = GetObject("LDAP://CN=postes de travail fixes,OU=Postes de travail,OU=Machines,OU=monEntreprise-bretagne,DC=monEentreprise,DC=ad" )
  18. If (objComputerGroup.IsMember(objComputer.AdsPath) = False) Then
  19. objComputerGroup.Add(objComputer.AdsPath)
  20. End If
  21. Function IsLaptop( myComputer )
  22.      On Error Resume Next
  23.      Set objWMIService = GetObject( "winmgmts://" & myComputer & "/root/cimv2" )
  24.      Set colItems = objWMIService.ExecQuery( "Select * from Win32_Battery", , 48 )
  25.      IsLaptop = False
  26.      For Each objItem in colItems
  27.          IsLaptop = True
  28.      Next
  29.      If Err Then Err.Clear
  30.      On Error Goto 0


 
Voila donc ce que sa donne.
La reconnaissance pc fixe/portables fonctionne bien mais pour intégrer dans le bon groupe de sécurité sa ne fonctionne pas, mais je n'est pas de message d'erreur dans la console.
 
Donc si mon script ne vous a pas pétrifier sur place et que vous avez une âme charitable, vous pouvez m'aider  
merci


Message édité par barthemus le 12-05-2016 à 12:08:02
mood
Publicité
Posté le 09-05-2016 à 16:56:31  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] Script d'intégration dans un groupe de sécurité

 

Sujets relatifs
Traduire script en PDOcreation d'un script pour deplacer les dossier par defaut
script batch désinstallation de logiciels 64 et 32 bitsScript windows, help please
deploiement GPO flash player avec scriptGénérer un JSON avec un script PHP et l'exploiter dans de l'AngularJS
Automatisation d'un script PHP avec CRONServeur pour faire tourner un script php
[Script] Formatter un fichier plat à partir d'une clause copyModification sur un script
Plus de sujets relatifs à : [VBS] Script d'intégration dans un groupe de sécurité


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR