Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
Option Explicit \'Declare variables Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers Dim enab, disab, jobfunc, itemtype
Set WSHShell = WScript.CreateObject(\"WScript.Shell\") p = \"HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\\" p = p & \"DisableRegistryTools\" itemtype = \"REG_DWORD\" mustboot = \"Log off and back on, or restart your pc to\" & vbCR & \"effect the changes\" enab = \"ENABLED\" disab = \"DISABLED\" jobfunc = \"Registry Editing Tools are now \"
\'This section tries to read the registry key value. If not present an \'error is generated. Normal error return should be 0 if value is \'present t = \"Confirmation\" Err.Clear On Error Resume Next n = WSHShell.RegRead (p) On Error Goto 0 errnum = Err.Number
if errnum <> 0 then \'Create the registry key value for DisableRegistryTools with value 0 WSHShell.RegWrite p, 0, itemtype End If
\'If the key is present, or was created, it is toggled \'Confirmations can be disabled by commenting out \'the two MyBox lines below
If n = 0 Then n = 1 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t) ElseIf n = 1 then n = 0 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t) End If
Det KAN lade sig gøre, men jeg ved ikke hvordan!! For hvis man går ind i regedt32.exe så har man selv mulighed for at lave sikkerhed. Jeg har dog ikke nogen anelse om hvordan man gør det ved hjælp af kode!!
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.