How to register .net Framework to IIS

Dim sCommand As String
Dim sAppPoolCommand As String
Dim sWinDir As String
sWinDir = System.Environment.ExpandEnvironmentVariables("%windir%")

sAppPoolCommand = sWinDir & "\system32\inetsrv\AppCmd add apppool /name:WebSite /managedRuntimeVersion:v2.0 /managedPipelineMode:Integrated /enable32BitAppOnWin64:True"

sCommand = sWinDir & "\system32\inetsrv\AppCmd ADD SITE /name:WebSite /id:1001 /bindings:http/*:81: /physicalPath:""" & msWebSitePhysicalDir & """" & _
" /ApplicationDefaults.applicationPool:WebSite"

Shell(sWinDir & "\system32\inetsrv\APPCMD stop site ""Default Web Site""", AppWinStyle.Hide, True)

Shell(sAppPoolCommand, AppWinStyle.Hide, True)

Shell(sCommand, AppWinStyle.Hide, True)

Shell(sWinDir & "\system32\inetsrv\AppCmd set config /section:directoryBrowse /enabled:true", AppWinStyle.Hide, True)

Shell(sWinDir & "\system32\inetsrv\AppCmd start site ""WebSite""", AppWinStyle.Hide, True)




%windir%\system32\inetsrv\AppCmd set apppool /apppool.name:WebSite /managedRuntimeVersion:v4.0