Pergunta : Realçando um VB script para verific o hostname do PC antes de funcionar

Eu tenho o seguinte certificado de trabalho de VB que emitirá SMS/mensagem através do the
Telco portal.

But que eu preciso um realce: para verific no início do certificado se o
of do hostname o PC da vitória XP é “abcdefgh”; se não, parar de então executar o descanso do codes


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

strMobile = “97888888 "
strMessage = “isto é uma mensagem " objIE do
Set do
= CreateObject do teste (“InternetExplorer.
objIE.Document.LoginForm.Item do ternetsms/”
objIE.Visible =
Do do

quando
objIE.Document.LoginForm.Item de objIE.Busy
WScript.Sleep 2000
Loop

(“email").Value = “[email protected]” de http://sms.singtel.com/in” do rel= " do” _blank” do target= de " http://sms.singtel.com/internetsms/ do href= do
objIE.Navigate de Application”) “nofollow " > (“password”). Value =
Do do
objIE.Document.LoginForm.submit

do “mypassword” quando
objIE.Document.startChatForm de objIE.Busy
WScript.Sleep 2000
Loop

. Artigo (“mobile”). Value = strMobile
objIE.Document.getElementByID (“submit”).
WScript.Sleep 10000



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

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

Do quando <= 10
do intCount para cada objWindow no objShellWindows
se Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = intCount de If
Next

do fim de Do
da saída de objWindow.LocationURL
= intCount + 1

se o intCount = 10 Then
objIE.Navigate “> o ternetsms/logoutAction.do "
WScript.Echo “de http://sms.singtel.com/in o certificado não podia encontrar a janela emergente. Certificado que para do " o objIE_Pop do sono 2000
Loop

Set de If

do fim
WScript.Quit
= o CreateObject (“InternetExplorer. strPopupURL

objIE_Pop.Navigate de Application”)/>objIE_Pop.Visible =
Do do

quando objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do quando objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For cada objWindow no objShellWindows
se


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


objIE.Navigate do “do fim de Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
quando objIE de objIE.Busy
WScript.Sleep 2000
Loop

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

Resposta : Realçando um VB script para verific o hostname do PC antes de funcionar

Sim, você não pode fazer aquele em 2003