カテゴリ:未分類( 3 )

e87.com(千趣会イイハナ) 花を贈るなら日比谷花壇

ご当地マック ニュレンバーク編

世界中に蔓延する我らがマックですが、

日本にも月見バーガーを始め、ご当地マックがあるように、

ここドイツにもありました。

しかも、かなりローカル。

その名も、NURENBURGER (ニュレンバーガー)!!

ニュレンバーク にしかない?限定物です。

北欧では、~バーグ という地名が至るところにあるので、

それぞれの土地でご当地マックがあるのかも知れない。

a0002261_046287.jpg


広げてみると、ソーセージがはさまっていました♪

a0002261_0473269.jpg

[PR]
by isoq | 2010-09-26 23:36
e87.com(千趣会イイハナ) 花を贈るなら日比谷花壇

Aspire 1410のOSをUltimate ni

Aspire Timeline AS1410 が ioPLAZA でも5万円で出てます!限定特価です。
[PR]
by isoq | 2009-10-24 21:36
e87.com(千趣会イイハナ) 花を贈るなら日比谷花壇

VBSでOS判定

' OSの判定
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
intOSType = objOperatingSystem.OSType
strOSVer = Left(objOperatingSystem.Version, 3)
intProductType = objOperatingSystem.ProductType
'strOSArchitecture = objOperatingSystem.OSArchitecture
Next
Select Case intOSType
Case 16 'Windows 95
OS = "Windows 95"
Case 17 'Windows 98
OS = "Windows 98"
Case 18 'WINNT
Select Case strOSVer
Case 4.0
OS = "Windows NT 4.0"
Case 5.0
OS = "Windows 2000"
Case 5.1
OS = "Windows XP"
Case 5.2
OS = "Windows Server 2003"
Case 6.0
If intProductType = 1 Then
OS = "Windows Vista"
Else
OS = "Windows Server 2008"
End If
Case 6.1
If intProductType = 1 Then
OS = "Windows 7"
Else
OS = "Windows Server 2008 R2"
End If
Case Else
OS = strOSVer & " (unidentified)"
End Select
Case Else
OS = strOSVer & " (unidentified)"
End Select

' アーキテクチャの判定
Set shell = CreateObject("WScript.Shell")
strOSArchitecture = shell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%")

' インストーラの選択
If OS = "Windows XP" Or OS = "Windows Server 2003" Then
If strOSArchitecture = "x86" Then

ElseIf strOSArchitecture = "x64" Then

Else
MsgBox "サポートされていないアーキテクチャです:" & strOSArchitecture
End If
ElseIf OS = "Windows Vista" Or OS = "Windows Server 2008" Or OS = "Windows Server 2008 R2" Then
If strOSArchitecture = "x86" Then

ElseIf strOSArchitecture = "x64" Then

Else
MsgBox "サポートされていないアーキテクチャです:" & strOSArchitecture
End If
Else
MsgBox "サポートされていないOSです:" & OS
End If

[PR]
by isoq | 2009-07-02 14:13
e87.com(千趣会イイハナ) 花を贈るなら日比谷花壇