Archive for avril 2012

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