批处理之家 » VBS求助&讨论 » VBS如何判断操作系统是中文还是日文？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 1

帖子: 42
积分: 50
技术: 0
捐助: 0
注册时间: 2010-11-20

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2016-5-5 15:47 | 只看该作者

[问题求助] VBS如何判断操作系统是中文还是日文？

本帖最后由 pcl_test 于 2016-5-5 19:47 编辑

判断操作系统中文还是日文，如果是中文则运行 {命令1}，如果是日文则运行 {命令2}

这个vbs怎么写？

1 评分人数

pcl_test: 未按版规发帖PB -4

Rank: 1

帖子: 5
积分: 16
技术: 0
捐助: 0
注册时间: 2012-12-8

2楼

发表于 2016-5-5 17:25 | 只看该作者

本帖最后由爱的温度s 于 2016-5-5 17:35 编辑

systeminfo命令里面有个区域

系统区域设置:     zh-cn;中文(中国)
输入法区域设置:   zh-cn;中文(中国)
时区:             (UTC+08:00)北京，重庆，香港特别行政区，乌鲁木齐
复制代码

是不是能根据这个判断一下。。。

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

3楼

发表于 2016-5-5 19:48 | 只看该作者

判断系统区域语言还是系统版本语言？

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

4楼

发表于 2016-5-5 20:04 | 只看该作者

猜

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!//./root/cimv2")
Set OSInfo = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each item In OSInfo
    MsgBox item.MUILanguages(0)&vbCrLf&item.Locale _
        &vbCrLf&item.CodeSet _
            &vbCrLf&item.CountryCode
Next
复制代码

Rank: 1

帖子: 3
积分: 13
技术: 0
捐助: 0
注册时间: 2016-5-6

5楼

发表于 2016-5-6 22:36 | 只看该作者

回复 1# lxningbat

当年熊猫烧香好像写过类似的代码。

Rank: 1

帖子: 51
积分: 95
技术: 7
捐助: 0
注册时间: 2012-1-27

6楼

发表于 2016-5-7 15:16 | 只看该作者

读注册表试一试

Dim WshShell
Dim LangId
set WshShell = CreateObject("wscript.Shell")
LangId=WshShell.RegRead("HKEY_CURRENT_USER\Control Panel\International\Locale")
Select Case LangId
	Case "00000804"
	MsgBox "Chinese (PRC)"	
	Case "00000409"
	MsgBox "English"
	Case "00000411"
	MsgBox "Japanese"	
End Select 

'00000404 Chinese (Taiwan)     
'00000804 Chinese (PRC) 
'00000c04 Chinese (Hong Kong SAR, PRC) 
'00001004 Chinese (Singapore) 

'00000411 Japanese 

'00000409 English (United States) 
'00000809 English (United Kingdom) 
'00000c09 English (Australian) 
'00001009 English (Canadian) 
'00001409 English (New Zealand) 
'00001809 English (Ireland) 
'00001c09 English (South Africa) 
'00002009 English (Jamaica) 
'00002409 English (Caribbean) 
'00002809 English (Belize) 
'00002c09 English (Trinidad)
复制代码

http://tieba.baidu.com/p/932891654