Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Registry file u domenu

[es] :: Windows mreže :: Registry file u domenu

[ Pregleda: 2697 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

nenad.radojcic
Nenad Radojčić

Član broj: 39276
Poruke: 3
*.telekom.yu.



Profil

icon Registry file u domenu14.11.2004. u 13:32 - pre 206 meseci
Moze li neko da mi posalje script za menjanje registry file-a non admin user-u u domenu?
 
Odgovor na temu

e5944
Rakic Vladimir
Becej

Član broj: 37118
Poruke: 255
*.193.214.82.in-addr.arpa.



Profil

icon Re: Registry file u domenu16.11.2004. u 13:50 - pre 206 meseci
; DEMO.SCR
;
; KiXtart demonstration script of registry functions.
;
; 24-Aug-1995
;
; Note : This code sample is provided for demonstration purposes only.
; Microsoft makes no warranty, either express or implied,
; as to its usability in any given situation.
;

cls ; clear the screen
color w+/n

? "START"

:start
if existkey( "HKEY_CURRENT_USER\KiX32" ) <> "0"
if addkey( "HKEY_CURRENT_USER\KiX32" ) = 0
color g+/n
? "OK, added KiX32 key."
if addkey( "HKEY_CURRENT_USER\KiX32\one" ) = 0 AND
addkey( "HKEY_CURRENT_USER\KiX32\two" ) = 0 AND
addkey( "HKEY_CURRENT_USER\KiX32\three"
? "...and some subkeys..."
if writevalue( "HKEY_CURRENT_USER\KiX32\one" , "value1" , "Text" , "REG_SZ" ) AND
writevalue( "HKEY_CURRENT_USER\KiX32\one" , "value2" , "line1|line2(with a || in it)|line3|" , "REG_MULTI_SZ" ) AND
writevalue( "HKEY_CURRENT_USER\KiX32\one" , "value3" , "0a12defa0b" , "REG_BINARY" ) AND
writevalue( "HKEY_CURRENT_USER\KiX32\one" , "value4" , "123456789" , "REG_DWORD" )
? "...and now even some values..."
? "Please check the result with REGEDT32."
? ? "End of demo : press <anykey> to delete the key again."
get $x
$result = deltree("HKEY_CURRENT_USER\KiX32")
goto end
else
? "Hmm, WriteValue failed with returncode : " + @error
endif
else
? "Hmm, AddKey failed with returncode : " + @error
endif
else
? "Hmm, AddKey failed with returncode : " + @error
end
endif
else
? "Huh ?. Key already exists ?!?."
? "Do you want me to delete it (Y/N) ?."

:loop
GET $Input
if $Input = "Y"
if Deltree( "HKEY_CURRENT_USER\KiX32" )= 0
? "OK, Key deleted......"
goto start
else
? "Hmmm, somehow the delete failed : " + $RC
exit
endif
else
if $Input = "N"
? "OK, then I'll just quit."
goto end
else
goto loop ; wrong key, try again
endif
endif
endif

:end

color w+/n

? ? "END"

color w/n
 
Odgovor na temu

[es] :: Windows mreže :: Registry file u domenu

[ Pregleda: 2697 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.