Option Explicit
Dim wsh,WshNetwork,jihao,jiname


Set WshNetwork = WScript.CreateObject("WScript.Network")
Set wsh = WScript.CreateObject("WScript.Shell")
jiname = WshNetwork.ComputerName         
jihao = CInt(Right(jiname,3))            


if jihao > 1 and jihao < 101 then        
    wsh.run "c:\windows\system32\MainPro.exe"
end if



Set WshNetwork=NoThing
Set WSH=NoThing
WScript.Quit