registry با vbs

[mehrdadg11]

سلام دوستان،
می تونید توابع و دستورات کد زیرو خط به خط بگید که چه کار می کنه؟

set wshell = Createobject ("wscript.shell")

regkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows Media\WMSDK\General\"
A = wshell.RegRead (regkey & "ComputerName")


strComputer = A

Set objWMIService = GetObject("Winmgmts:" & "{impersonationLevel = impersonate , (Shutdown)}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Reboot()
Next

[mehrdadg11]

کسی نمیدونه این کدها چیکار می کنند!!!!!!!!

[salax]

سسلام دوستان میتونید در حل مسله زیر کمکم کنید؟

فلوچارتی که عدد N را از ورودی دریافت و تعیین کند که N عدد اول است یا خیر؟