求一个VBS脚本：根据“系统版本号+32/64位系统”分别运行相应程序

pogua007

netmjwork 发表于 2016-6-17 13:54
谢谢！
这个是显示版本号的，但是怎么组合到一起实现我希望的效果呢？水平有限，不会“组合”……
帮忙 ...

汗，把  wscript.echo "windows visita"之类的改为你wscript.run 你的的程序。
我不记得你会写run的吗，你上次提问的脚本里面就有。

pogua007

netmjwork 发表于 2016-6-19 12:39
多谢回复~

case "5.1.2600"

.SystemType，属性是判断系统是否64位的，我把3楼和6楼的脚本改一下

1. strComputer = "."
   
2.     Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
   
3.     Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
   
4.     For Each objItem in colItems
   
5.       strOScaption=objitem.Caption
   
6.       strOSversion=objitem.Version
   
7.       strOSsystype=objitem.SystemType
   
8.     Next
   
9.     dim wsh
   
10.     set wsh=wscript.createobject("wscript.shell")
    
11.     If InStr( strOSsystype, "86") <> 0 Then
    
12.        select case strOSversion
    
13.        case "5.2.3790"
    
14.            wscript.echo "Windows Server 2003" & "32位"
    
15.        case "5.0.2195"
    
16.            wscript.echo "Windows 2000" & "32位"
    
17.        case "5.1.2600"
    
18.             wscript.echo "Windows XP" & "32位"
    
19.        case "6.0.6001"
    
20.            wscript.echo "windows visita" & "32位"
    
21.        case "6.1.7601"
    
22.            wscript.echo "windows 7" & "32位"
    
23.            wsh.run "Win7_32.exe"
    
24.        case else
    
25.            wscript.echo "未知的32位系统"
    
26.        end select
    
27.     elseif InStr(strOSsystype, "64") <> 0 Then
    
28.        select case strOSversion
    
29.        case "5.2.3790"
    
30.            wscript.echo "Windows Server 2003" & "64位"
    
31.        case "5.0.2195"
    
32.            wscript.echo "Windows 2000" & "64位"
    
33.        case "5.1.2600"
    
34.             wscript.echo "Windows XP" & "64位"
    
35.        case "6.0.6001"
    
36.            wscript.echo "windows visita" & "64位"
    
37.        case "6.1.7601"
    
38.            wscript.echo "windows 7" & "64位"
    
39.            wsh.run "Win7_64.exe"
    
40.        case else
    
41.            wscript.echo "未知的64位系统"
    
42.        end select
    
43.     else
    
44.        wscript.echo "不知道32位还是64位的"
    
45.     end if

复制代码

把select case写到Function（函数）里面代码更简洁，但是考虑你是新手，我想还是别出现更多的知识点了，代码累赘点就累赘点吧。

pogua007

netmjwork 发表于 2016-6-20 11:11
您好，刚测试，无法运行，XP系统

7行报错： 对象不支持此属性或方法 'objitem.SystemType'

我在整我的WES7+bblean，整的正happy，突然虚拟磁盘文件损坏，我把虚拟磁盘拆开，也没有恢复的了数据。
玩了两天游戏，才从数据损坏的打击中恢复。

1. strComputer = "."
   
2. dim wsh
   
3. set wsh=wscript.createobject("wscript.shell")
   
4. 'wscript.echo OSver(strComputer) & X86orX64(strComputer) & ".exe"
   
5. wsh.run OSver(strComputer) & X86orX64(strComputer) & ".exe"
   
6. 
   
7. Function X86orX64(strComputer)
   
8.         Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
   
9.         Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") ''尼玛是否64位和版本号不是一个查询，所以上次出错
   
10.         For Each objItem in colItems
    
11.                 strOSsystype=objitem.SystemType
    
12.         Next
    
13.         set objWMIService = nothing
    
14.         set colItems = nothing
    
15.         If InStr( strOSsystype, "86") <> 0 Then
    
16.                 X86orX64="_x86"
    
17.         elseif InStr(strOSsystype, "64") <> 0 Then
    
18.                 X86orX64="_x64"
    
19.         else
    
20.                 wscript.echo "不知道32位还是64位的"
    
21.                 wscript.quit
    
22.         end if
    
23. End Function
    
24. 
    
25. Function OSver(strComputer)
    
26.         Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
    
27.         Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    
28.         For Each objItem in colItems
    
29.                 strOScaption=objitem.Caption
    
30.                 strOSversion=objitem.Version
    
31.         Next
    
32.         set objWMIService = nothing
    
33.         set colItems = nothing
    
34.         select case strOSversion
    
35.                 case "5.2.3790"
    
36.                         OSver = "2K3"
    
37.                 case "5.0.2195"
    
38.                         OSver =  "2K"
    
39.                 case "5.1.2600"
    
40.                         OSver = "XP"
    
41.                 case "6.0.6001"
    
42.                         OSver = "visita"
    
43.                 case "6.1.7601"
    
44.                         OSver = "W7"
    
45.                 case else
    
46.                         wscript.echo "未知的操作系统"
    
47.                         wscript.quit
    
48.         end select
    
49. End Function

复制代码

pogua007

netmjwork 发表于 2016-6-21 16:12
虚拟磁盘操作还得随时备份数据，raid这种都需要小心操作，都是不好恢复数据的……
调整好心情~

汗！那是一整个的脚本，你给拆开，当然报错。
主程序就前面的5行，后面两个Function都是主程序的子过程。你把OSver过程删掉，当然出错，后面的Function没有主程序也当然没有反应。
这次的脚本我测试过的，'wscript.echo OSver(strComputer) & X86orX64(strComputer) & ".exe"，就是我的测试语句，我都没有删掉，只是给注释了起来。

pogua007

netmjwork 发表于 2016-6-21 19:07
刚发现一个问题：版本号能不能不那么精确的来判断？只判断前面大的数字即可

比如：                 ...

运行程序啊， OSver(strComputer)传递参数strComputer给Function OSver，获得返回字符串系统版本，X86orX64(strComputer)传递参数传递参数strComputer给Function X86orX64获得返回字符串"_x86"或者"_x64"。
你把这句前面加单引号注释掉，然后把上面的那一句的单引号删除，测试一下看看，会显示一个字符串，在不同的系统中，这个字符串是不一样的，这就是要运行的程序了。
你要运行的程序以 “系统版本”+"_x86/x64"+".exe"这样的规则命名，就可以实现根据系统不同运行不同的程序了。如果程序不方便改名等，可以用以上述规则命名的快捷方式实现，把.exe改为.lnk。
这句只是个示例，具体的路径还需要处理的。
不比较小版本号，那要对字符串处理一下。把]Function OSver部分改成下面内容

1. Function OSver(strComputer)
   
2.         Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
   
3.         Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
   
4.         For Each objItem in colItems
   
5.                 strOScaption=objitem.Caption
   
6.                 strOSversion=objitem.Version
   
7.         Next
   
8.         set objWMIService = nothing
   
9.         set colItems = nothing
   
10.         strOSversion=left(strOSversion,InStrRev(strOSversion,".",-1,1) - 1) ''截取strOSversion为最后一个"."的左面部分
    
11.         select case strOSversion
    
12.                 case "5.2"
    
13.                         OSver = "2K3"
    
14.                 case "5.0"
    
15.                         OSver =  "2K"
    
16.                 case "5.1"
    
17.                         OSver = "XP"
    
18.                 case "6.0"
    
19.                         OSver = "visita"
    
20.                 case "6.1"
    
21.                         OSver = "W7"
    
22.                 case else
    
23.                         wscript.echo "未知的操作系统"
    
24.                         wscript.quit
    
25.         end select
    
26. End Function

复制代码