J'utilise le script suivant depuis plus de deux ans pour faire des courbes
mrtg sur mon espace disque libre :
Set objWMIService = GetObject("winmgmts:\\10.1.1.7")
Set colOperatingSystems = objWMIService.InstancesOf("CIM_LogicalDisk")
For Each Disk In colOperatingSystems
If Instr(1,Disk.Path_.RelPath, "C:") > 0 THEN
FreeSpace = INT(Disk.Freespace / 1048576)
Size = INT(Disk.Size / 1048576)
END IF
Next
CALL wscript.Echo(Freespace)
CALL wscript.Echo(Freespace)
CALL wscript.Echo("")
CALL wscript.Echo("srvAppli : Disk C (" & Size & ")")
Et depuis la semaine derniere ca ne marche plus. En local sur la machine OK.
Sur un machine distant (meme domaine, meme user..) j'ai l'erreur suivante :
Permission refusée:'Getobject'
Code : 800A0046.
Et je ne trouve rien de particlulier la dessus.
Je ne sais pas non plus s'il y a eu une maj sur le serveur on non. Alors si
je ne suis pas seul, merci de m'eclairer.
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
Kevin Lomax
Quel OS cette machine ?
Essaie de reinstaller les composants WMI ;)
"loyt_stf_" wrote:
J'utilise le script suivant depuis plus de deux ans pour faire des courbes mrtg sur mon espace disque libre :
Set objWMIService = GetObject("winmgmts:10.1.1.7") Set colOperatingSystems = objWMIService.InstancesOf("CIM_LogicalDisk") For Each Disk In colOperatingSystems If Instr(1,Disk.Path_.RelPath, "C:") > 0 THEN FreeSpace = INT(Disk.Freespace / 1048576) Size = INT(Disk.Size / 1048576) END IF Next CALL wscript.Echo(Freespace) CALL wscript.Echo(Freespace) CALL wscript.Echo("") CALL wscript.Echo("srvAppli : Disk C (" & Size & ")")
Et depuis la semaine derniere ca ne marche plus. En local sur la machine OK. Sur un machine distant (meme domaine, meme user..) j'ai l'erreur suivante :
Permission refusée:'Getobject' Code : 800A0046.
Et je ne trouve rien de particlulier la dessus. Je ne sais pas non plus s'il y a eu une maj sur le serveur on non. Alors si je ne suis pas seul, merci de m'eclairer.
LOYT
Quel OS cette machine ?
Essaie de reinstaller les composants WMI ;)
"loyt_stf_" wrote:
J'utilise le script suivant depuis plus de deux ans pour faire des courbes
mrtg sur mon espace disque libre :
Set objWMIService = GetObject("winmgmts:\10.1.1.7")
Set colOperatingSystems = objWMIService.InstancesOf("CIM_LogicalDisk")
For Each Disk In colOperatingSystems
If Instr(1,Disk.Path_.RelPath, "C:") > 0 THEN
FreeSpace = INT(Disk.Freespace / 1048576)
Size = INT(Disk.Size / 1048576)
END IF
Next
CALL wscript.Echo(Freespace)
CALL wscript.Echo(Freespace)
CALL wscript.Echo("")
CALL wscript.Echo("srvAppli : Disk C (" & Size & ")")
Et depuis la semaine derniere ca ne marche plus. En local sur la machine OK.
Sur un machine distant (meme domaine, meme user..) j'ai l'erreur suivante :
Permission refusée:'Getobject'
Code : 800A0046.
Et je ne trouve rien de particlulier la dessus.
Je ne sais pas non plus s'il y a eu une maj sur le serveur on non. Alors si
je ne suis pas seul, merci de m'eclairer.
J'utilise le script suivant depuis plus de deux ans pour faire des courbes mrtg sur mon espace disque libre :
Set objWMIService = GetObject("winmgmts:10.1.1.7") Set colOperatingSystems = objWMIService.InstancesOf("CIM_LogicalDisk") For Each Disk In colOperatingSystems If Instr(1,Disk.Path_.RelPath, "C:") > 0 THEN FreeSpace = INT(Disk.Freespace / 1048576) Size = INT(Disk.Size / 1048576) END IF Next CALL wscript.Echo(Freespace) CALL wscript.Echo(Freespace) CALL wscript.Echo("") CALL wscript.Echo("srvAppli : Disk C (" & Size & ")")
Et depuis la semaine derniere ca ne marche plus. En local sur la machine OK. Sur un machine distant (meme domaine, meme user..) j'ai l'erreur suivante :
Permission refusée:'Getobject' Code : 800A0046.
Et je ne trouve rien de particlulier la dessus. Je ne sais pas non plus s'il y a eu une maj sur le serveur on non. Alors si je ne suis pas seul, merci de m'eclairer.
