My Very First Program: Restriction Unblocker

[frontmill]

this is my very first program, it unblocks some restrictions that are set by the system administrtor at a lot of companies and schools.

; Start menu & Taskbar
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" ,"NoSetFolders", "REG_DWORD", 0 );control panel and network enable
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" ,"NoSetTaskbar", "REG_DWORD", 0 );Taskbar Options enable

; Internet explorer
;Tabs
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"Accessibility", "REG_DWORD", 0 )
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"GeneralTab", "REG_DWORD", 0 )
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"SecurityTab", "REG_DWORD", 0 )
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"ContentTab", "REG_DWORD", 0 )
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"ConnectionsTab", "REG_DWORD", 0 )
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"ProgramsTab", "REG_DWORD", 0 )
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"PrivacyTab", "REG_DWORD", 0 )
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"AdvancedTab", "REG_DWORD", 0 )
;Other Options
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions" ,"NoBrowserOptions", "REG_DWORD", 0 );IE optios enable
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions" ,"NoFileOpen", "REG_DWORD", 0 );Open file enable
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions" ,"NoSelectDownloadDir", "REG_DWORD", 0 );ability to change download directory enable
    RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions" ,"NoBrowserSaveWebComplete", "REG_DWORD", 0 );Save As enable

;Windows settings
RegWrite ( "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\Installer" ,"DisableMSI", "REG_DWORD", 0 );installer enable
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" ,"NoFind", "REG_DWORD", 0 );Searce enable

MsgBox ( "", "Complete!", "The changes have been made!" , 5 )

[blindwig]

I haven't tried your code, but the first thing I notice is that you send a message telling the user that the changes were made successfully, but nowhere in your code do you actually confirm that the changes were made - you don't check the returns for the RegWrite() and you don't do a RegRead() to verify the new info.

[frontmill]

ok thanks for the advice... i'm going to try to make something like that...

[Hello12345]

Something more.

By my trial and error, a limited user( users group) cannot write to the "HKEY_LOCAL_MACHINE" keys at all.

just a heads up...

Edited April 26, 2006 by Hello12345

[frontmill]

but i only write to user.. not to machine...

[Uten]

But you do

;Windows settings
RegWrite ( "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\Installer" ,"DisableMSI", "REG_DWORD", 0 );installer enable

I allso think you rlittle utillity should clean up and restore the settings when your done with the computer. Take a look at RunFromJumpDrive for ideas.

[frontmill]

ok thanks... here is a new version btw:

expandcollapse popup

$succeed = 0
; Start menu & Taskbar
$var =RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" ,"NoSetFolders", "REG_DWORD", 0 );control panel and network enable
$succeed = $var + $succeed
$var =RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" ,"NoSetTaskbar", "REG_DWORD", 0 );Taskbar Options enable
$succeed = $var + $succeed
; Internet explorer
;Tabs
    $var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"Accessibility", "REG_DWORD", 0)
    $succeed = $var + $succeed
    $var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"GeneralTab", "REG_DWORD", 0 )
    $succeed = $var + $succeed
    $var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"SecurityTab", "REG_DWORD", 0 )
    $succeed = $var + $succeed
    $var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"ContentTab", "REG_DWORD", 0 )
    $succeed = $var + $succeed  
    $var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"ConnectionsTab", "REG_DWORD", 0 )
    $succeed = $var + $succeed
    $var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"ProgramsTab", "REG_DWORD", 0 )
    $succeed = $var + $succeed
    $var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"PrivacyTab", "REG_DWORD", 0 )
    $succeed = $var + $succeed
    $var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" ,"AdvancedTab", "REG_DWORD", 0 )
    $succeed = $var + $succeed
;Other Options
$var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions" ,"NoBrowserOptions", "REG_DWORD", 0 );IE optios enable
$succeed = $var + $succeed
$var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions" ,"NoFileOpen", "REG_DWORD", 0 );Open file enable
$succeed = $var + $succeed
$var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions" ,"NoSelectDownloadDir", "REG_DWORD", 0 );ability to change download directory enable
$succeed = $var + $succeed
$var =RegWrite ( "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions" ,"NoBrowserSaveWebComplete", "REG_DWORD", 0 );Save As enable
$succeed = $var + $succeed
;Windows settings
$var =RegWrite ( "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\Installer" ,"DisableMSI", "REG_DWORD", 0 );installer enable
$succeed = $var + $succeed
$var =RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" ,"NoFind", "REG_DWORD", 0 );Searce enable
$succeed = $var + $succeed


MsgBox ( "", "Complete!", $succeed & " out of the 16 changes are succesfully completed!" , 5 )

Edited April 26, 2006 by frontmill

[Hello12345]

I allso think you rlittle utillity should clean up and restore the settings when your done with the computer. Take a look at RunFromJumpDrive for ideas.

I agree, that would be nice.

Nice script.

[frontmill]

i could do that... but there is no use in it for... the settings get automatically restored on reboot...

[Uten]

i could do that... but there is no use in it for... the settings get automatically restored on reboot...

How do you know that? I mean it does on your computer but will it on mine? Edited April 27, 2006 by Uten

[slightly_abnormal]

if my school.. catches you doing any modifications, looking at porn, or adding games or virus they will ban you from computer .. i don't think they log reg changes, like they log for pornography.. but if they were reset.. no one would no.

[Thatsgreat2345]

pretty nice deal you got going here to bad when i install something the days go up and not down so basicaly i have unlimited day trial i have a few macromedia stuff thats like at 70 somethin days instead of 30

[slightly_abnormal]

cool.. would you share how you did that?? maybe in private message..

[Thatsgreat2345]

I would if I knew how, but my bro made the perfect windows, made an ISO out of it with Ghost and so he can install in on all the comps and not have to really do anything so idk sry :-/

[AutoChris]

WARNING: THREAD HIJACK BELOW

I would if I knew how, but my bro made the perfect windows, made an ISO out of it with Ghost and so he can install in on all the comps and not have to really do anything so idk sry :-/

thatsgreat2345: In your signature, $* = "u" However, you write, "Don't worry no one dies a virgin because life f$ucks us all." Shouldn't it be "Don't worry no one dies a virgin because life f" & $* & "cks us all."?

END HIJACK

[ConsultingJoe]

WARNING: THREAD HIJACK BELOW

thatsgreat2345: In your signature, $* = "u" However, you write, "Don't worry no one dies a virgin because life f$ucks us all." Shouldn't it be "Don't worry no one dies a virgin because life f" & $* & "cks us all."?

END HIJACK

lol, I was just thinking that same thing?

[blindwig]

WARNING: THREAD HIJACK BELOW

thatsgreat2345: In your signature, $* = "u" However, you write, "Don't worry no one dies a virgin because life f$ucks us all." Shouldn't it be "Don't worry no one dies a virgin because life f" & $* & "cks us all."?

END HIJACK

Wouldn't it be:

"Don't worry no one dies a virgin beca" & $* & "se life f" & $* & "cks " & $* & "s all."

[Thatsgreat2345]

AHAHAHAH happy its now an example of how not to use variables