Frage : Ein VB erhöhend, script, um hostname des PC zu überprüfen, bevor Sie laufen

Ich habe den folgenden Arbeits-VB Index, der SMS/Mitteilung über the
Telco portal.

But sendet, das, ich eine Verbesserung benötige: zu zu Beginn des Indexes überprüfen, ob das hostname
of der Gewinn XP PC „abcdefgh“ ist; wenn nicht, dann stoppen, den Rest des codes


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

strMobile = „97888888 "
strMessage = „dieses ist eine Testmeldung "

Set objIE = CreateObject („InternetExplorer. Application“)
/>objIE.Navigate „ http://sms.singtel.com/in ternetsms/“
objIE.Visible = zutreffendes


Do während objIE.Busy
WScript.Sleep 2000
Loop


objIE.Document.LoginForm.Item („email").Value = „[email protected]“
objIE.Document.LoginForm.Item („password“). Value = „mypassword“
objIE.Document.LoginForm.submit


Do während objIE.Busy
WScript.Sleep 2000
Loop


objIE.Document.startChatForm. Einzelteil („mobile“). Value = strMobile
objIE.Document.getElementByID („submit“). Click


WScript.Sleep 10000


strURL = „ http://sms.singtel.com/in ternetsms/sendMsg.do? id=1&recipient=“
intCounter = 0

Set objShell = CreateObject („Shell.Application“)
Set objShellWindows = objShell.Windows

Do während intCount <= 10
für jedes objWindow im objShellWindows
wenn Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = objWindow.LocationURL
Ausgang Do
Ende If
Next

intCount = intCount + 1

, wenn intCount = 10 Then
objIE.Navigate „ http://sms.singtel.com/in ternetsms/logoutAction.do "
WScript.Echo „der Index nicht in der Lage war, das Popup- Fenster zu finden. Index, der "
WScript.Quit
Ende If

Schlaf 2000
Loop

Set objIE_Pop = CreateObject („InternetExplorer beendigt. Application“)

objIE_Pop.Navigate strPopupURL
objIE_Pop.Visible = zutreffendes


Do während objIE_Pop.Busy
WScript.Sleep 2000
Loop


objIE_Pop.Document.getElementByID („message“). Value = strMessage
objIE_Pop.Document.getElementByID („submit“) .click


Do während objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For jedes objWindow im objShellWindows
wenn Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
Ende If
Next


objIE.Navigate „ http://sms.singtel.com/in/>logoutActiternetsms/on.do "


Do während objIE.Busy
WScript.Sleep 2000
Loop

objIE.Quit
set objIE = nothing
set objIE_Pop = nothing
set objShellWindows = nothing
set objShell = nothing

Antwort : Ein VB erhöhend, script, um hostname des PC zu überprüfen, bevor Sie laufen

Ja können Sie das 2003 nicht tun