Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft Est ce possible? par script

Est ce possible? par script

3 réponses
Avatar
armsterisme
Bonjour tout le monde.
2 questions en faite.
1°: Est il possible de faire un audit de certains PC de mon reseau
d'entreprise par nom de PC ou Adresse IP pour remonter des informations
precises (nom du profil utilisateur, Version Windows, PAck installer, Version
Client Outlook, et si les mises à jour automatiques sont activées ou pas.)

2°: Ou pourrais je obtenir ce script ou autre car je ne programme pas du tout.
(bien entendu le script sera verifié avant le lancement sur mon réseau)

La raison en ai que nous avions un script qui utilise le SMTP pour l'envoi
d'un mail d'incident par print screen. Et depuis quelques temps quasi tous
les pc ne le font plus(message d'erreur code 80040212)sauf quelques uns qui
envoi le message d'erreur avec parfois ont une fenetre leur disant que la
procedure n'a pas fonctionné.

Merci de votre aide
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Claveau
Bonsoir !

Avec un domaine, on peut obliger, depuis le serveur, le lancement d'un
script à l'ouverture de session, sur le poste client.

Dans ce cas, la réponse est : oui.


En groupe de travail, ce lancement automatique n'existe pas. Il faut
donc configurer les postes eux-mêmes.

Dans ce cas, la réponse devient : ça dépend des postes.

--
@-salutations

Michel Claveau
Avatar
armsterisme
En fait j'aimerais lancer depuis mon poste un script permettant grace a une
liste d'ordinateurs predefinis de rappatrié ces information.

J'ai deja trouvé cela mais je ne sais pas comment l'améliorer!! pour avoir
les infos demandées :-(

'Get strComputer from each line of text file.
Set objWMIService = GetObject("winmgmts://" & strComputer)
Set colOSes = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOS in colOSes
If objOS.Version = "5.1.2600" Then
If objOS.ServicePackMajorVersion = "2" Then
strSP2 = strSP2 & strComputer & vbCrLf
intSP2 = intSP2 + 1
ElseIf "1" = objOS.ServicePackMajorVersion Then
strSP1 = strSP1 & strComputer & vbCrLf
intSP1 = intSP1 + 1
Else
strSP0 = strSP0 & strComputer & vbCrLf
intSP0 = intSP0 + 1
End If
Else
intNotXP = intNotXP + 1
End If
Next

Const FOR_APPENDING = 8
strOutputFile = "xpsp.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strOutputFile) Then
Set objTextStream = objFSO.OpenTextFile(strOutputFile, FOR_APPENDING)
Else
Set objTextStream = objFSO.CreateTextFile(strOutputFile)
End If

objTextStream.WriteLine "Inventory of Windows XP Service Packs"
objTextStream.WriteLine "Taken " & Now
objTextStream.WriteLine vbCrLf & "Computers Running Windows XP"
objTextStream.WriteLine "============================"
objTextStream.WriteLine "Total number: " & (intSP2 + intSP1 + intSP0)

objTextStream.WriteLine vbCrLf & "Service Pack 2"
objTextStream.WriteLine "--------------"
objTextStream.WriteLine strSP2
objTextStream.WriteLine "Total number: " & intSP2

objTextStream.WriteLine vbCrLf & "Service Pack 1"
objTextStream.WriteLine "--------------"
objTextStream.WriteLine strSP1
objTextStream.WriteLine "Total number: " & intSP1

objTextStream.WriteLine vbCrLf & "No Service Pack"
objTextStream.WriteLine "---------------"
objTextStream.WriteLine strSP0
objTextStream.WriteLine "Total number: " & intSP0

objTextStream.WriteLine vbCrLf & "Computers Not Running Windows XP"
objTextStream.WriteLine "================================"
objTextStream.WriteLine "Total number: " & intNotXP

objTextStream.WriteLine vbCrLf & "Could Not Connect To Computer"
objTextStream.WriteLine "============================="
objTextStream.WriteLine "Total number: " & intErr
objTextStream.WriteLine

objTextStream.Close

C'est une source Microsoft........
Avatar
Gilles LAURENT
"armsterisme" a écrit dans le
message de news:
| En fait j'aimerais lancer depuis mon poste un script permettant grace
| a une liste d'ordinateurs predefinis de rappatrié ces information.
|
| J'ai deja trouvé cela mais je ne sais pas comment l'améliorer!! pour
| avoir les infos demandées :-(
[...]

*Les produits installés :*

Set objWMIService = GetObject("winmgmts://" & strComputer)
Set colProducts = objWMIService.ExecQuery _
("SELECT * FROM Win32_Product")
For Each oProduct In colProducts
WScript.Echo oProduct.Name & " " & oProduct.Version
Next

*L'état du service de mises à jour automatique :*

Set oWUSrv = GetObject("winmgmts://" & strComputer & _
"/root/cimv2:Win32_Service.Name='wuauserv'")
WScript.Echo "WUAUSERV : " & oWUSrv.State

*La configuration du service de mises à jour :*
=> Valeur 7 indique désactivé

Set oReg = GetObject("winmgmts://" & strComputer & _
"/root/default:StdRegProv")
oReg.GetDWORDValue &H80000002, _
"SoftwareMicrosoftWindowsCurrentVersion" & _
"WindowsUpdateAuto Update", _
"AUState", dwAuState
WScript.Echo "AUState : " & dwAUState

*L'utilisateur connecté :*
=> XP/Vista uniquement

Set objWMIService = GetObject("winmgmts://" & strComputer)
Set colUsers = objWMIService.ExecQuery _
("SELECT * FROM Win32_LoggedOnUser")
For Each oUser In colUsers
Set oAccount = objWMIService.Get(oUser.Antecedent, 0)
Set oSession = objWMIService.Get(oUser.Dependent, 0)
If oSession.LogonType = 2 Then
WScript.Echo oAccount.Name
End If
Next

--
Gilles LAURENT
http://glsft.free.fr