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

Script d'intégration dans un groupe de sécurité [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 09-05-2016 à 16:56:31    

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
  4. If IsLaptop( "." ) Then
  5.      WScript.Echo "Laptop"
  7. Set objSysInfo = CreateObject("ADSystemInfo" )
  8. strComputerDN = objSysInfo.ComputerName
  10. Set objComputer = GetObject("LDAP://" & strComputerDN)
  11. Set objComputerGroup = GetObject("LDAP://CN=postes de travail portables,OU=Postes de travail,OU=Machines,OU=monEntreprise-bretagne,DC=monEentreprise,DC=ad" )
  13.  If (objComputerGroup.IsMember(objComputer.AdsPath) = False) Then
  14.  objComputerGroup.Add(objComputer.AdsPath)
  15.  End If
  16. Else
  17.      WScript.Echo "Desktop computer"
  19.  Set objSysInfo = CreateObject("ADSystemInfo" )
  20. strComputerDN = objSysInfo.ComputerName
  22. Set objComputer = GetObject("LDAP://" & strComputerDN)
  23. Set objComputerGroup = GetObject("LDAP://CN=postes de travail fixes,OU=Postes de travail,OU=Machines,OU=monEntreprise-bretagne,DC=monEentreprise,DC=ad" )
  25. If (objComputerGroup.IsMember(objComputer.AdsPath) = False) Then
  26. objComputerGroup.Add(objComputer.AdsPath)
  27. End If
  28. Function IsLaptop( myComputer )
  30.      On Error Resume Next
  31.      Set objWMIService = GetObject( "winmgmts://" & myComputer & "/root/cimv2" )
  32.      Set colItems = objWMIService.ExecQuery( "Select * from Win32_Battery", , 48 )
  33.      IsLaptop = False
  34.      For Each objItem in colItems
  35.          IsLaptop = True
  36.      Next
  37.      If Err Then Err.Clear
  38.      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
Reply

Marsh Posté le 09-05-2016 à 16:56:31   

Reply

Sujets relatifs:

Leave a Replay

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