Exchange Server | Murat Bilici

"Empower your knowledge"

Read Register Dword Vbs Scripts – VBScript Read From Registry

Read Register Dword Vbs Scripts

Merhaba;

Aşağıdaki script ile register dword değerini okuyabilir (Read From Registry) belirlenen path ile txt formatında ilgili değeri günün tarihi ile yazdırabilirsiniz. Aşağıdaki örnekte USB store değeri okutulmuştur.

Read Register Dword Vba Scripts

Read Register Dword Vba Scripts

 

Dim oShell

Dim iValue

Set oShell = CreateObject(“WScript.Shell”)

iValue = oShell.RegRead(“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start”)

msgbox ivalue

date1 = Now

syear = CStr(Year(date1))

smonth = CStr(Month(date1))

sday = CStr(Day(date1))

strfilename = “\\Path” & sday & “.” & smonth & “.”& syear & “.txt”

Set objFSO = CreateObject(“Scripting.FileSystemObject”)

Set WshNetwork = CreateObject(“WScript.Network”)

Set objFile = objFSO.OpenTextFile (strfilename, 8, True)

objFile.Writeline WshNetwork.computername & “ ” & ivalue

objfile.close

 

Change Register Dword Vbs Scripts

Aşağıdaki script ile register dword değerini değiştirebilirsiniz  (Change  From Registry). Aşağıdaki örnekte Disabledomaincreds değeri değiştirilmiştir.

Dim WshShell
Set WshShell =CreateObject(“WScript.Shell”)
WshShell. RegWrite”HKLM\System\CurrentControlSet\Control\Lsa\disabledomaincreds”, 0, “REG_DWORD”
set WshShell = Nothing

 

Categories: Genel - Scripts - Tip&Tricks