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:\.
ootCIMV2")
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
Next
Next
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
strOperatingSystem.Shutdown()
Next
Else
Wscript.Echo "Your Installation Will Continue ! Hope You Will Enjoy This Windows Distribution!"
Wscript.Echo "Contact Me At : xBlueMex@Yahoo.com"
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!

Categories