質問編集履歴

2

2017/10/16 02:40

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -6,6 +6,6 @@
6
6
 
7
7
  dim path
8
8
 
9
- path="C:\Windows\System32\drivers\srv.sys"
9
+ path="C:\Windows\System32....."
10
10
 
11
11
  MsgBox GetVersion(path)

1

2017/10/16 02:39

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -1,14 +1,4 @@
1
- 以下.vbsを実行するとドライバーバージョンが表示されるようにしております。
1
+ 以下の
2
-
3
-
4
-
5
- さらに、xxxx.xxxxと等しいか、xxxx.xxxxより大きいなら「問題ありません」、
6
-
7
- 小さいなら「○○を適用してください」と追加をしたいのですが、うまく動きません。
8
-
9
-
10
-
11
- どのように記載をしたらよいかご教示ください。
12
2
 
13
3
 
14
4
 
@@ -19,27 +9,3 @@
19
9
  path="C:\Windows\System32\drivers\srv.sys"
20
10
 
21
11
  MsgBox GetVersion(path)
22
-
23
-
24
-
25
- Function GetVersion(pathspec)
26
-
27
- Dim fso, temp
28
-
29
- Set fso = CreateObject("Scripting.FileSystemObject")
30
-
31
- temp = fso.GetFileVersion(pathspec)
32
-
33
- If Len(temp) Then
34
-
35
- GetVersion = temp
36
-
37
- Else
38
-
39
- GetVersion = "▫︎▫︎▫︎ "
40
-
41
- End If
42
-
43
- End Function
44
-
45
- ===