barthemus | 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 :
- Dim objSysInfo, objComputer, strComputerDN
- Dim objComputerGroup
- If IsLaptop( "." ) Then
- WScript.Echo "Laptop"
- Set objSysInfo = CreateObject("ADSystemInfo" )
- strComputerDN = objSysInfo.ComputerName
- Set objComputer = GetObject("LDAP://" & strComputerDN)
- Set objComputerGroup = GetObject("LDAP://CN=postes de travail portables,OU=Postes de travail,OU=Machines,OU=monEntreprise-bretagne,DC=monEentreprise,DC=ad" )
- If (objComputerGroup.IsMember(objComputer.AdsPath) = False) Then
- objComputerGroup.Add(objComputer.AdsPath)
- End If
- Else
- WScript.Echo "Desktop computer"
- Set objSysInfo = CreateObject("ADSystemInfo" )
- strComputerDN = objSysInfo.ComputerName
- Set objComputer = GetObject("LDAP://" & strComputerDN)
- Set objComputerGroup = GetObject("LDAP://CN=postes de travail fixes,OU=Postes de travail,OU=Machines,OU=monEntreprise-bretagne,DC=monEentreprise,DC=ad" )
- If (objComputerGroup.IsMember(objComputer.AdsPath) = False) Then
- objComputerGroup.Add(objComputer.AdsPath)
- End If
- Function IsLaptop( myComputer )
- On Error Resume Next
- Set objWMIService = GetObject( "winmgmts://" & myComputer & "/root/cimv2" )
- Set colItems = objWMIService.ExecQuery( "Select * from Win32_Battery", , 48 )
- IsLaptop = False
- For Each objItem in colItems
- IsLaptop = True
- Next
- If Err Then Err.Clear
- 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
|
