Script d'arret de machines virtuelles
kerberos69
Messages postés
21
Date d'inscription
mercredi 6 avril 2005
Statut
Membre
Dernière intervention
9 juillet 2008
-
2 mai 2008 à 16:28
kerberos69 Messages postés 21 Date d'inscription mercredi 6 avril 2005 Statut Membre Dernière intervention 9 juillet 2008 - 5 mai 2008 à 10:26
kerberos69 Messages postés 21 Date d'inscription mercredi 6 avril 2005 Statut Membre Dernière intervention 9 juillet 2008 - 5 mai 2008 à 10:26
A voir également:
- Script d'arret de machines virtuelles
- L'exception point d'arret un point d'arret a été atteint ✓ - Forum Delphi / Pascal
- Impossible d'executer le code en mode arrêt ✓ - Forum Visual Basic
- Script pour prendre rendez-vous tlscontact - Forum PHP
- [Catégorie modifiée .Net -> VBA] VBA Excel Erreur 17 suite fausse manip en pas à - Forum VBA Office (Excel, Word ...)
- Code ne s'exécute pas - Forum Delphi / Pascal
1 réponse
kerberos69
Messages postés
21
Date d'inscription
mercredi 6 avril 2005
Statut
Membre
Dernière intervention
9 juillet 2008
5 mai 2008 à 10:26
5 mai 2008 à 10:26
Hello, pour etre un peu plus clair, voici un peu de complements d'infos.
j'ai un cluster MS composé de 3 noeuds. sur chaque noeud, Virtual server est installé. sur chaque noeud, il y'a des Serveurs Virtuels.
J'ai besoin d'arreter par script toutes les VM de tous les noeuds.
j'ai cree cela mais cela ne fonctionne qu'en local, c'est a dire directement sur chaque Noeud, par rapport a un fichier texte contenant les VM du noeud.
Const HARD_DISK = 3
Dim Args, Computer, ServiceSet, Network,oXL,Shell
Set Network = WScript.CreateObject("WScript.Network")
Set Args = WScript.Arguments
' ---------- Recuperation de la liste des VM ----------
Set oFso = CreateObject("Scripting.FileSystemObject")
strNomListe = "VM_ENVOPE.txt"
oRootFolder = oFso.GetParentFolderName(Wscript.ScriptFullName)
Set oFileSRV = oFso.OpenTextFile(orootfolder&"" & strNomListe, 1)
Do Until oFileSRV.AtEndOfStream
Redim Preserve aFileServerLine(i)
aFileServerLine(i) = oFileSRV.ReadLine
i = i + 1
Loop
oFileSRV.Close
For Each Computer In aFileServerLine
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine(Computer)
objVM.Pause( )
Next
N'etant pas developpeur, je rame un peu pour la solution, a savoir executer un script qui se connecte a chhaque noeud et qui arrete les Serveurs Virtuels sur chaque noeud.
Merci d'avance pour vos tuyaux
j'ai un cluster MS composé de 3 noeuds. sur chaque noeud, Virtual server est installé. sur chaque noeud, il y'a des Serveurs Virtuels.
J'ai besoin d'arreter par script toutes les VM de tous les noeuds.
j'ai cree cela mais cela ne fonctionne qu'en local, c'est a dire directement sur chaque Noeud, par rapport a un fichier texte contenant les VM du noeud.
Const HARD_DISK = 3
Dim Args, Computer, ServiceSet, Network,oXL,Shell
Set Network = WScript.CreateObject("WScript.Network")
Set Args = WScript.Arguments
' ---------- Recuperation de la liste des VM ----------
Set oFso = CreateObject("Scripting.FileSystemObject")
strNomListe = "VM_ENVOPE.txt"
oRootFolder = oFso.GetParentFolderName(Wscript.ScriptFullName)
Set oFileSRV = oFso.OpenTextFile(orootfolder&"" & strNomListe, 1)
Do Until oFileSRV.AtEndOfStream
Redim Preserve aFileServerLine(i)
aFileServerLine(i) = oFileSRV.ReadLine
i = i + 1
Loop
oFileSRV.Close
For Each Computer In aFileServerLine
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine(Computer)
objVM.Pause( )
Next
N'etant pas developpeur, je rame un peu pour la solution, a savoir executer un script qui se connecte a chhaque noeud et qui arrete les Serveurs Virtuels sur chaque noeud.
Merci d'avance pour vos tuyaux
