Archive for the ‘Uncategorized’ Category

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

Publicités

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…

 

Le meilleur pour 2011 !

Debugging de serveur windows, très utile !

Debugging Tools from Microsoft
1) Create folder c:\symbols
2) Download and install the http://www.microsoft.com/whdc/devtools/debugging/installx86.mspx
3) Locate your latest memory.dmp file- C:\WINDOWS\Minidump\Mini011005-01.dmp or whatever
4) open a CMD prompt and cd\program files\debugging tools for windows\
5) type the following stuff:

Code:
c:\program files\debugging tools>kd -z C:\WINDOWS\Minidump\Mini011005-01.dmp
kd> .logopen c:\debuglog.txt
kd> .sympath srv*c:\symbols*http://msdl.microsoft.com/download/symbols
kd> .reload;!analyze -v;r;kv;lmnt;.logclose;q

You now have a debuglog.txt in c:\, open it in notepad.