Que fais ce script trouvé à la racine du dossier windows?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Que fais ce script trouvé à la racine du dossier windows?

Aschrack

Vive Pen²

Bonjour :hello: ,

J'ai lancé un msconfig sur le laptop d'une amie et dans la liste, il y avait une entrée exécutant un fichier c:\windows\startup.vbs

Alors j'ai trouvé ça assez louche je dois dire, en conclusion je suis allé l'ouvrir (ai décoché l'entrée et renommé le fichier aussi) et y ai découvert le contenu suivant.

Code :

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)
For Each objItem in colItems
strID=objItem.IdentifyingNumber
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
strCompName=objItem.Name
Next
strNewName = "CRC_" & strID
if ((strNewName <> strCompName) AND (len(StrNewName) < 16)) then
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strCompName & "\root\cimv2" )
Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem" )
For Each objComputer in colComputers
err = ObjComputer.Rename(strNewName)
Next
Dim Wsh
Set Wsh = CreateObject("WScript.Shell" )
Wsh.Run "cmd /c shutdown.exe -r -t 0", false, 0
end if

Seulement, je n'ai jamais fait de vbs de ma vie donc je ne sais pas trop ce que celà fait (le "impersonationLevel" me parait zarb déjà ...)

---------------
Je viens d'apprendre que les ventes de voitures ont encore baissé de 7% en France. Y'en a marre de ces pirates qui téléchargent les voitures sur internet ! (antp était prems et est admin) - "Le travail est l'opium du peuple et je ne veux pas mourir dr

Publicité

ccp6128

Syntax error

Un script d'admin qui choppe le SN de la machine et vérifie que le nom du poste est bien égal à CRC_SN. Si ce n'est pas le cas, il renomme le pc. Rien de dangereux.

C'est un portable perso, ou un truc d'entreprise ?

Aschrack

Vive Pen²

ben c'est le portable qu'une amie avait eu à prêter de son unif puis quittant l'unif elle a pu le racheter

mais déjà truc moyen c'est qu'elle a pas reçu les droits d'admin dessus ni rien donc ...

et là comme elle avait des problèmes de connexion tout ça ben je regardais un peu son pc et voyant ceci ça m'avait intrigué

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Que fais ce script trouvé à la racine du dossier windows?

Sujets relatifs
[PHP] script contenu site	portabilité linux à windows
Aide script wsh	Installation de police par script
Installer une imprimante IPP en utilisant l'API Windows	Keskispass quand un script tourne et que le client se deconnecte...
ne pas faire planter mon script	Eclipse sous windows -> le compilateur ne marche pas
LOTUS SCRIPT	[Résolu] Apache, organisation de la racine
Plus de sujets relatifs à : Que fais ce script trouvé à la racine du dossier windows?

Page générée en 0.030 secondes