function getoslanguage()
strcomputer = "."
set objwmiservice = getobject("winmgmts://" &strcomputer &"/root/cimv2")
set colitems = objwmiservice.execquery("select * from win32_operatingsystem")
for each objitem in colitems
language = objitem.oslanguage
if language = "1033" then
getoslanguage= "en"
getoslanguage= "english"
elseif language = "2052" then
getoslanguage= "cn"
getoslanguage= "chinese"
end if
next
end function
msgbox "your operation system language is : " + getoslanguage 'wscript.echo language()
VBS獲取硬體資訊
標題 msgbox 北京漢獅裝置盤點使用 製作人 jason凱伊 請輸入您的姓名 while name name inputbox 請輸入你中文名字 盤點資訊 姓名 wend 請輸入所在部門 例子 while dept dept inputbox 請輸入你所在的部門 盤點資訊 部門 wend 請輸入...
通過VBS獲取磁碟剩餘空間
get disk free space strcomputer set objwmiservice getobject winmgmts strcomputer root cimv2 set coldisks objwmiservice.execquery select from win32 log...
VBS獲取天氣預報 BY Broly
vbs獲取天氣預報 code by broly 我的部落格 部分 參考網路 title 天氣預報 v1.0 by broly re.pattern u4e00 u9fa5 content 城市 city space 8 今天是 date vbcrlf vbcrlf content content 天...