Need Help To Modifi a .VBS Code

Hi ! I'm Going Crazy ! Don't Know Were To Get Help From ! I Have This :

Option Explicit

Dim objWMIService, arrayNIC, objNIC, strMAC, strAllowedHost, arrayAllowedHosts, strYouAreWelcome
Dim strOperatingSystem, colOperatingSystems

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Const wmiRestartForce = 4

arrayAllowedHosts = array("00:10:a7:22:fe:ef")

Set objWMIService = GetObject("winmgmts:\.
Set arrayNIC = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objNIC In arrayNIC
For Each strAllowedHost in arrayAllowedHosts
If LCase(objNIC.MACAddress) = LCase(strAllowedHost) Then strYouAreWelcome = 1
If strYouAreWelcome <> 1 Then
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
MsgBox "If You Like This Windows Distribution, Consider To Ask For Permission To Use It! PC Is Now Shuting Down"
For Each strOperatingSystem in colOperatingSystems
Wscript.Echo "Your Installation Will Continue ! Hope You Will Enjoy This Windows Distribution!"
Wscript.Echo "Contact Me At :"
End If

And I Want It To Change To Do Something Like This :
Check MAC
If MAC = OK Then Continue Without Any Message
If MAC Wrong = First DEL NTLDR Initiate Shutdown 5 Second Then Show Message "Bye Bye "
Can Pls Someone HELP me Out ?
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!