返回列表 发帖
lxningbat

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

评分人数

收藏 分享

爱的温度s

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)北京，重庆，香港特别行政区，乌鲁木齐COPY
是不是能根据这个判断一下。。。

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
3楼
发表于 2016-5-5 19:48 | 只看该作者
判断系统区域语言还是系统版本语言？

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
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
NextCOPY

TOP

jiangxuliu

Rank: 1

帖子
3 
积分
13 
技术
0  
捐助
0  
注册时间
2016-5-6 
5楼
发表于 2016-5-6 22:36 | 只看该作者
回复 1# lxningbat


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

TOP

sz1121

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)COPY
http://tieba.baidu.com/p/932891654

TOP

返回列表