Nous avons beaucoup à apprendre de Microsoft !

Connecter automatiquement un ou plusieurs disques en fonction d’informations présentes dans l’AD

Comment réaliser un subst d’un sous-répertoire en fonction de l’information contenue dans le champ ‘société’ de la fiche user dans l’AD ?

 

On Error Resume Next

Dim objSysInfo

Dim shell

 

Set objSysInfo = CreateObject(« ADSystemInfo »)

 

‘ Currently logged in User

Set objUser = GetObject(« LDAP:// » & objSysInfo.UserName)

 

strCompany = objUser.company

strUser = objUser.sAMAccountName

 

‘ Connect Company folder

strConnect = « d:\folder\ » & strCompany

Set shell = CreateObject(« WScript.Shell »)

substcmd = « subst T:  » & strConnect

shell.Run substcmd, 0, True

 

WSCript.Quit

Lister les logiciels installés sur un PC

‘ List All Installed Software

 

Const HKLM = &H80000002 ‘HKEY_LOCAL_MACHINE

strComputer = « . »

strKey = « SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\ »

strEntry1a = « DisplayName »

strEntry1b = « QuietDisplayName »

strEntry3 = « VersionMajor »

strEntry4 = « VersionMinor »

strEntry5 = « EstimatedSize »

 

Set objReg = GetObject(« winmgmts:{impersonationLevel=impersonate}// » & strComputer & « /root/default:StdRegProv »)

objReg.EnumKey HKLM, strKey, arrSubkeys

 

Set objFSO = CreateObject(« Scripting.FileSystemObject »)

Set objTextFile = objFSO.CreateTextFile(« c:\scripts\software.txt », True)

 

For Each strSubkey In arrSubkeys

 

intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, strEntry1a, strValue1)

 

If intRet1 <> 0 Then

objReg.GetStringValue HKLM, strKey & strSubkey, strEntry1b, strValue1

End If

 

If strValue1 <> «  » AND InStr(strValue1, « Hotfix »)=0 AND InStr(strValue1, « Security Update »)=0 AND InStr(strValue1, « Update for Windows »)=0 AND InStr(strValue1, « Update for Microsoft »)=0 AND InStr(strValue1, « Service Pack »)=0 Then

If strValue1 <> «  » Then

strPrint1 = strValue1

 

objReg.GetDWORDValue HKLM, strKey & strSubkey, strEntry3, intValue3

objReg.GetDWORDValue HKLM, strKey & strSubkey, strEntry4, intValue4

 

If intValue3 <> «  » Then

strPrint1 = strPrint1 & « Version:  » & intValue3 & « . » & intValue4

End If

 

objReg.GetDWORDValue HKLM, strKey & strSubkey, strEntry5, intValue5

 

If intValue5 <> «  » Then

strPrint1 = strPrint1 &  » – Estimated size:  » & Round(intValue5/1024, 3) &  » megabytes »

End If

End If

End If

 

If strPrint1 <> «  » Then

objTextFile.WriteLine strPrint1

StrPrint1 = «  »

End If

 

Next

LinkedIn utilise votre photo et vos informations dans la publicité ‘sociale’


Désagréable découverte ce matin…

 

Saviez-vous que Linkedin s’octroyait le droit d’utiliser votre image, votre nom et vos informations dans ses publicités dites ‘sociales’ ? Cela de manière automatique, sans même vous demander votre accord…

Cela m’interpelle, LinkedIn est pour moi un outil professionnel indispensable, mais sur lequel je n’ai (évidemment) aucun contrôle. LinkedIn se développe, je ne connais pas leurs plans futurs et à moins d’y avoir consenti, je ne souhaite pas participer à leur développement.

 

Vérifiez donc votre paramétrage par défaut, peut-être (probablement) comme moi trouverez-vous ceci…

Paramètres > Compte > Gérer les publicités sociales >


Message:

Il se peut que LinkedIn associe les messages des annonceurs à du contenu social provenant du réseau LinkedIn afin de personnaliser les publicités. Lorsque les membres de LinkedIn recommandent des personnes ou des services, suivent des entreprises ou participent à l’activité du réseau de quelque façon que ce soit, leur nom ou photo peut apparaître sur les publicités associées que vous pouvez voir. De même, lorsque vous participez à l’activité du réseau, votre nom ou photo peut apparaître sur les publicités associées que peuvent voir les autres membres de LinkedIn. En apportant un contexte social, nous permettons aux membres de découvrir plus facilement les produits et services avec lesquels interagit le réseau LinkedIn.

LinkedIn peut utiliser mon nom et ma photo pour ses publicités sociales.

 

Bien évidemment la case était cochée chez moi. Malheureusement je n’ai jamais donné cet accord, j’ai donc supprimé ce choix. Peut-être ai-je vécu sur une île pendant quelques mois, mais je n’ai jamais vu passer d’avertissement sur ce point… Dans ma logique basique, LinkedIn aurait dû communiquer sur ce point, et permettre à tout le monde de supprimer ce paramètre (voir ne pas l’activer par défaut, mais ceci est un rêve..).

Le respect de la vie privée devient de plus en plus relatif je pense…

 

Synchronize time with external NTP server on Windows Server 2008 (R2).

  1. Stop the W32Time service: C:\>net stop w32time
  2. Configure the external time sources, type: C:\> w32tm /config /syncfromflags:manual /manualpeerlist: »0.pool.ntp.org, 1.pool.ntp.org, 2.pool.ntp.org »
  3. Make your PDC a reliable time source for the clients. Type: C:\>w32tm /config /reliable:yes
  4. Start the w32time service: C:\>net start w32time
  5. The windows time service should begin synchronizing the time. You can check the external NTP servers in the time configuration by typing: C:\>w32tm /query /configuration
  6. Check the Event Viewer for any errors.

Driver manquant pour un serveur HP Proliant ML150 G6

Durant l’installation de mon nouveau Windows Home Server 2011 (WHS2011) sur un serveur HP Proliant ML150 G6, j’ai rencontré un problème : pilote manquant sur un device inconnu.

 

Toujours un plaisir quand on part d’une toute nouvelle machine, que l’on installe le produit (WHS2011) en suivant les prescriptions constructeurs, que l’on installe les derniers pilotes HP et que l’on fait un tour par le Windows Update.

La solution : télécharger et installer le pilote ‘HP Proliant 100-Series Management Controller for Windows’, version 64 Bits, et tout fonctionne… Pourquoi faire simple quand on peut compliquer un minimum ?

Client Microsoft Online Services: Impossible de se connecter !

J’ai passé quelques dizaines de minutes pour trouver la solution …
Le client Online Services m’affichait une erreur comme quoi il bloquait la connexion du client BPOS. J’ai donc investigué sur mon serveur puis j’ai enfin pu me connecter à l’URL (signin.microsoftonline….) en passant par IE mais pas par le client BPOS …

J’ai toujours le message : « Le client n’a pas pu établir une connexion sécurisée avec le serveur. Essayez de vous reconnecter. Si le problème persiste, contactez votre administrateur système ».


Et bien le problème était simple, il y avait un décalage des horloges de 6 minutes.. J’ai corrigé les erreurs d’horloge puis j’ai enfin pu me connecter.

Tellement logique !