Dim objShell, RegLocate, RegLocate1Set objShell = WScript.CreateObject("WScript.Shell")On Error Resume NextRegLocate = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"' Take great care with the line above ' Note the space between \Internet and Settings\
if objShell.RegRead(RegLocate) = "1" then objShell.RegWrite RegLocate,"0","REG_DWORD" wscript.Echo "Internet Settings have been Changed to Home Use" WScript.Quit ' Tells the script to stop and exit.Else wscript.Echo" No need to change setting "End if
'WScript.Echo "Current Logon Server is: " & objShell.RegRead(RegLocate) 'Little utility developed by Kulbir
World Techno Solutions, Wakeup Your Power, Wakeup Your Strength, Motivational quotes, Spiritual Services,Top no 1 Company,best company,mnc company,IT Services,Hardware Services,Infrastructure Services,Software Services,Network Services,Security Services, Consulting Services,AV Integration Services,Web Designing Services,Web Hositing Services,Website Maintenance Services,Business Applications Services,Academic Softwares Services,Spiritual Services, Educations & Trainings Services
2 comments:
HELLO HOW ARE YOU
PLESE SEND ME TRANSFER THE FSMO ROLES DC TO ADC
WITH WARM REGARD.
Hi Dev,
I'm Good. Wat about u?
Already Transfer of FSMO Roles are published in this blog. So once again plz check the System Admin Links. u'll find all the stuff wat u required.
Thanx,
Kiran Kumar.
Post a Comment