Question : En augmentant un VB script pour vérifier le hostname du PC avant le fonctionnement

J'ai le manuscrit fonctionnant suivant de VB qui enverra SMS/message par l'intermédiaire du the
Telco portal.

But que j'ai besoin d'un perfectionnement : pour vérifier au début du manuscrit si le
of de hostname le PC de la victoire XP est « abcdefgh » ; sinon, cesser alors d'exécuter le reste du codes


====================================================

strMobile = « 97888888 "
strMessage = « ceci est un message-test " objIE du
Set du
= CreateObject (« InternetExplorer.
objIE.Document.LoginForm.Item (« password » du ternetsms/ »
objIE.Visible = véritable
Do du

tandis que
objIE.Document.LoginForm.Item (« email WScript.Sleep 2000
Loop

/>").Value = « [email protected] » de http://sms.singtel.com/in) de rel= " de » _blank » de target= de " http://sms.singtel.com/internetsms/ » de href= de
objIE.Navigate d'Application ») « nofollow " >. Value =
Do du
objIE.Document.LoginForm.submit

de « mypassword » tandis que
objIE.Document.startChatForm d'objIE.Busy
WScript.Sleep 2000
Loop

. Article (« mobile »). Value = strMobile
objIE.Document.getElementByID (« submit »).
WScript.Sleep 10000



/>strURL = rel= " nofollow " de _blank » de » target= » de http://sms.singtel.com/internetsms/sendMsg.do?id=1&recipient= « de href= " de ternetsms/sendMsg.do de http://sms.singtel.com/in ? id=1&recipient= »
intCounter = de 0

Set = objShellWindows de
Set de CreateObject (« Shell.Application ») = objShell.Windows

Do tandis que <= d'intCount 10
pour chaque objWindow dans l'objShellWindows
s'Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = intCount d'If
Next

de fin de Do
de sortie d'objWindow.LocationURL
= intCount + 1

si l'intCount = 10 Then
objIE.Navigate « > le ternetsms/logoutAction.do le "
WScript.Echo « de http://sms.singtel.com/in le manuscrit ne pouvait pas trouver la fenêtre automatique. Manuscrit stoppant " l'objIE_Pop du sommeil 2000
Loop

Set d'If

de fin du
WScript.Quit
= le CreateObject (« InternetExplorer. strPopupURL

objIE_Pop.Navigate d'Application »)/>objIE_Pop.Visible = véritable
Do du

tandis qu'objIE_Pop.Busy
WScript.Sleep 2000
Loop


objIE_Pop.Document.getElementByID (« message »). Value = strMessage
objIE_Pop.Document.getElementByID (« submit ») .click


Do tandis qu'objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For chaque objWindow dans l'objShellWindows
si


Do du nofollow " > http://sms.singtel.com/in/>logoutActiternetsms/on.do " de » rel= " de _blank de » target= » de http://sms.singtel.com/internetsms/logoutAction.do de « href= " de Next


objIE.Navigate de fin d'Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
tandis qu'objIE d'objIE.Busy
WScript.Sleep 2000
Loop

objIE.Quit
set = objIE_Pop du nothing
set = objShellWindows du nothing
set = objShell du nothing
set = nothing class= de

Réponse : En augmentant un VB script pour vérifier le hostname du PC avant le fonctionnement

Oui, vous ne pouvez pas faire cela en 2003