这个需要权限的.用JS
<script>
//记事本
var WshShell=new ActiveXObject("WScript.Shell");
var strDesktop=WshShell.SpecialFolders("桌面");
var Link=WshShell.CreateShortcut(strDesktop+"\泰利达办公助手.lnk");
Link.TargetPath="%windir%\\Notepad.exe";
Link.IconLocation="%windir%\\system32\\SHELL32.DLL,41";
Link.Save();
//按钮
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\MenuExt\\","");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\MenuExt\\泰利达在线支持\\","Http://DigitalTitan:9003/");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\MenuExt\\泰利达在线支持\\Contexts",0xF3,"REG_DWORD");
</script>
<script>
//记事本
var WshShell=new ActiveXObject("WScript.Shell");
var strDesktop=WshShell.SpecialFolders("桌面");
var Link=WshShell.CreateShortcut(strDesktop+"\泰利达办公助手.lnk");
Link.TargetPath="%windir%\\Notepad.exe";
Link.IconLocation="%windir%\\system32\\SHELL32.DLL,41";
Link.Save();
//按钮
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\MenuExt\\","");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\MenuExt\\泰利达在线支持\\","Http://DigitalTitan:9003/");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\MenuExt\\泰利达在线支持\\Contexts",0xF3,"REG_DWORD");
</script>
The Item property returns the full path for the special folder specified by strFolderName. It is the default property.Syntax
WshShell.SpecialFolders.Item("strFolderName") = strFolderPath
WshShell.SpecialFolders("strFolderName") = strFolderPath
Res
WshShell.SpecialFolders("strFolderName") returns NULL if the requested folder (strFolderName) is not available. For example, Windows 95 does not have an AllUsersDesktop folder and returns NULL if strFolderName = AllUsersDesktop The following special folders are provided with the Windows 95 and Windows NT 4.0 operating systems:AllUsersDesktopAllUsersStartMenuAllUsersProgramsAllUsersStartupDesktopFavoritesFontsMyDocumentsNetHoodPrintHoodProgramsRecentSendToStartMenuStartupTemplatesExample
' This fragment returns the full path for the Windows Desktop folder
Set WshShell = Wscript.CreateObject("Wscript.Shell")
StrMyDesktop = WshShell.SpecialFolders("Desktop")' List all special folders
For Each strFolder In WshShell.SpecialFolders
MsgBox strFolder
Next
object.platformResThis property has read-only permission, meaning you can retrieve its current value, but not change it. Applies Tonavigator
StringTokenizer st = new StringTokenizer(Agent,";");
st.nextToken();
//得到用户的浏览器名
String userbrowser = st.nextToken();
//得到用户的操作系统名
String useros = st.nextToken();useros='windows 98'——win98
useros='windows NT 5.0'——win2000
useros='windows NT 5.1'——winXP
useros='windows NT 5.2'——win2003就是还差windows ME 还没测出来,暂时找不到环境,各位可以试试