3/5 (4 avis)
Snippet vu 14 703 fois - Téléchargée 33 fois
public function reboot(byval ip as string) Dim objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\" & ip & "\root\cimv2") Dim colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Dim objOperatingSystem If MsgBox("Voulez vous redémarrer la machine " & ip & " ?", MsgBoxStyle.OKCancel, "ATTENTION") = 1 Then For Each objOperatingSystem In colOperatingSystems objOperatingSystem.Reboot() Next End If End Sub
20 oct. 2008 à 21:59
il faut que je le converti en .vbs ? j'ai testé sa me sort error. (sur xp pro sp3).
merci
24 sept. 2007 à 16:34
Mais je pense avoir trouvé un bug.
En effet mon PC ne s'éteint pas si la session est verouillée, est ce normal?
Pourtant le pc s'éteint bien même avec session fermé.
Merci d'avance et bonne réception.
13 déc. 2005 à 13:50
et comme utilise ce petit bout de code
merci
13 déc. 2005 à 12:04
mé svp je vx savoir comment px-j savoir si le WMI est installè sur mon poste et comment px-j l'acquerir et merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.