WINSIG - WINDOWS SYSTEM INFORMATION GATEWAY OBTENEZ DES INFORMATIONS A DISTANCE
cs_slayer
Messages postés202Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 mars 2008
-
18 mars 2003 à 20:12
ccontamina
Messages postés8Date d'inscriptionmercredi 3 septembre 2003StatutMembreDernière intervention21 mai 2008
-
25 avril 2005 à 13:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
ccontamina
Messages postés8Date d'inscriptionmercredi 3 septembre 2003StatutMembreDernière intervention21 mai 2008 25 avril 2005 à 13:17
En règle générale toujours penser à gérer les erreurs dans les subs ou procedures dans le genre :
Sub Untel()
On Error Goto errProc
'traitement de la procedure ou fonction
Exit Sub
errProc:
sMsg = "Erreur proc untel - " & err.number & "-" & err.description
'ecriture dans un fichier log du sMsg ou msgbox
Err.Clear
Resume Next
End Sub
Cela permet de toujours avoir un log d'erreur et empêche les sorties brutales de programmes. Une bonne habitude à prendre !!!
mejdi1
Messages postés2Date d'inscriptionmercredi 20 avril 2005StatutMembreDernière intervention20 avril 2005 20 avril 2005 à 17:36
je veux savoir les codes
Mopii9
Messages postés91Date d'inscriptionlundi 26 juillet 2004StatutMembreDernière intervention23 mai 2005 25 mars 2005 à 21:18
a peine j'ai ouvert vb que j'ai vu que tu as mis des données string dans des variable bollean & integer d'où l'erreur type incompatible (normal) la fonction getstring foire a fond la caisse enfin pas mal de chose à revoir la dedans mais l'idée est excelente il ne reste plus qu'a la réaliser (beaucoup plus dur . . . bonne chance à tous
.::Mopi::.
TheEwook
Messages postés155Date d'inscriptionsamedi 3 juillet 2004StatutMembreDernière intervention30 mai 2005 5 janv. 2005 à 19:45
moi aussi type incompatible
j'ai regardé vie faite le code, ca me semble bien compliqué.
On peut faire largement plus simple
cs_JerryC
Messages postés8Date d'inscriptionvendredi 10 janvier 2003StatutMembreDernière intervention14 octobre 2005 22 juin 2004 à 14:56
C'est une bonne idée.
Je peux peux qu'approuver puisque j'ai déjà réalisé ce genre de système.
(hébergé sur un serveur web que j'ai créé^^ ; 100% VB !!!)
VB powaaa :)
cs_JLN
Messages postés371Date d'inscriptionsamedi 1 juin 2002StatutMembreDernière intervention17 juin 2013 21 mai 2004 à 12:16
Avec ou sans telnet je n'arrive pas à avoir de données ! aurais-tu une explication ?
Config 1 :
Windows XP Home Edition
Processeur : P4 2.66 Ghz
RAM : 1 Go
Config 2 :
Windows XP Pro
Processeur : P4 3.0 Ghz Prescott
RAM : 1 Go
que se soit sur une machine ou sur l'autre rien à faire la connexion est bonne mais pas de données.
P.S. J'ai transformé les msgbox en liste d'erreur pour ne pas avoir à cliquer sur les "OK" sans arret.
Bonne prog
@+ JLN
cs_JLN
Messages postés371Date d'inscriptionsamedi 1 juin 2002StatutMembreDernière intervention17 juin 2013 20 mai 2004 à 20:14
y a pas mal de bug dans les getsetting il faut modifier la valeur par defaut par false ou certaines valeurs qui attendent du numérique et non une chaine à un autre endroit modifier Form1 par le nom de la forme principale. par contre une fois modifié ces petite erreur le prog fonctionne. Ce qui n'est pas dit c'est comment récupérrer les infos sur une autre machine, manque serieusement d'explication ce prog. Je ne noterai pas pour le moment en attendant les explications.
Bonne prog
@+ JLN
cs_rcolas
Messages postés24Date d'inscriptiondimanche 20 août 2000StatutMembreDernière intervention17 mai 2004 21 déc. 2003 à 15:30
Salut,
"Type Incompatible" apparait sur le code
usembm = GetSetting("WinSIG", "config", "embmf", "")
J'ai le même type d'erreur...
Ca se reproduit pour :
usembm = GetSetting("WinSIG", "config", "embmf", "")
usewmi = GetSetting("WinSIG", "config", "ewmif", "")
lport = GetSetting("WinSIG", "config", "lport", "")
sckServer(0).LocalPort = lport
J'ai forcé les 2 premier à String, le troisième ) String aussi mais le dernier est n objet Systeme...
Pas trouvé comment faire tourner ce code
Dommage, il avait l'air vraiment interessant!! :-)
190180
Messages postés1Date d'inscriptionmercredi 22 janvier 2003StatutMembreDernière intervention16 mai 2003 16 mai 2003 à 16:09
Lorsque je démarre le programme à partir d'une station windows 2000 sp3 l'erreur "Type Incompatible" apparait sur le code
usembm = GetSetting("WinSIG", "config", "embmf", "")
Comment peut on faire pour corriger cela.
Merci
cs_Shadok
Messages postés10Date d'inscriptionvendredi 6 décembre 2002StatutMembreDernière intervention16 septembre 2003 19 mars 2003 à 09:19
Je suis en train de réaliser la même chose pour ma boite donc si tu as des questions, je pourrait peut-être t'aider.
Je n'est pas encore tester ton source mais ton interface Web est nickel.
botaniste
Messages postés2Date d'inscriptionvendredi 18 janvier 2002StatutMembreDernière intervention19 mars 2003 19 mars 2003 à 00:22
tu peux me donner le genre d'erreur que tu as ?
cs_slayer
Messages postés202Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 mars 2008 18 mars 2003 à 21:04
oui , je suis administrateur .
botaniste
Messages postés2Date d'inscriptionvendredi 18 janvier 2002StatutMembreDernière intervention19 mars 2003 18 mars 2003 à 20:29
normallement oui. sous 2k et XP, WMI est implémenté de base. ce qu'il faudrait que je rajoute c'est le code pour savoir si on a MBM ou non, c'est peut-etre ca qui ne fonctionne pas.
autrement, tu es en utilisateur administrateur? car pour la prtie WMI, j'ai pas mis de crédentile de connection, donc nomralement faut etre en compte administrateur, sans quoi il refusera de se connecter au service WMI
cs_slayer
Messages postés202Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 mars 2008 18 mars 2003 à 20:12
Chiot, voila un projets intéressant, mais hélas, marche pas du tous chez moi !!!
C'est sensé marché sous XP ?
25 avril 2005 à 13:17
Sub Untel()
On Error Goto errProc
'traitement de la procedure ou fonction
Exit Sub
errProc:
sMsg = "Erreur proc untel - " & err.number & "-" & err.description
'ecriture dans un fichier log du sMsg ou msgbox
Err.Clear
Resume Next
End Sub
Cela permet de toujours avoir un log d'erreur et empêche les sorties brutales de programmes. Une bonne habitude à prendre !!!
20 avril 2005 à 17:36
25 mars 2005 à 21:18
.::Mopi::.
5 janv. 2005 à 19:45
j'ai regardé vie faite le code, ca me semble bien compliqué.
On peut faire largement plus simple
22 juin 2004 à 14:56
Je peux peux qu'approuver puisque j'ai déjà réalisé ce genre de système.
CF ici : http://jerryc.hd.free.fr/Stats.htm
(hébergé sur un serveur web que j'ai créé^^ ; 100% VB !!!)
VB powaaa :)
21 mai 2004 à 12:16
Config 1 :
Windows XP Home Edition
Processeur : P4 2.66 Ghz
RAM : 1 Go
Config 2 :
Windows XP Pro
Processeur : P4 3.0 Ghz Prescott
RAM : 1 Go
que se soit sur une machine ou sur l'autre rien à faire la connexion est bonne mais pas de données.
P.S. J'ai transformé les msgbox en liste d'erreur pour ne pas avoir à cliquer sur les "OK" sans arret.
Bonne prog
@+ JLN
20 mai 2004 à 20:14
Bonne prog
@+ JLN
21 déc. 2003 à 15:30
"Type Incompatible" apparait sur le code
usembm = GetSetting("WinSIG", "config", "embmf", "")
J'ai le même type d'erreur...
Ca se reproduit pour :
usembm = GetSetting("WinSIG", "config", "embmf", "")
usewmi = GetSetting("WinSIG", "config", "ewmif", "")
lport = GetSetting("WinSIG", "config", "lport", "")
sckServer(0).LocalPort = lport
J'ai forcé les 2 premier à String, le troisième ) String aussi mais le dernier est n objet Systeme...
Pas trouvé comment faire tourner ce code
Dommage, il avait l'air vraiment interessant!! :-)
16 mai 2003 à 16:09
usembm = GetSetting("WinSIG", "config", "embmf", "")
Comment peut on faire pour corriger cela.
Merci
19 mars 2003 à 09:19
Je n'est pas encore tester ton source mais ton interface Web est nickel.
19 mars 2003 à 00:22
18 mars 2003 à 21:04
18 mars 2003 à 20:29
autrement, tu es en utilisateur administrateur? car pour la prtie WMI, j'ai pas mis de crédentile de connection, donc nomralement faut etre en compte administrateur, sans quoi il refusera de se connecter au service WMI
18 mars 2003 à 20:12
C'est sensé marché sous XP ?