批处理之家 - Powered by Discuz! Board

@echo off
:IsGPT
rem 判定是否是GPT磁盘。
echo list disk >yiwuyun.txt
for /f "skip=8 tokens=3 delims=B" %%k in ('diskpart /s yiwuyun.txt') do (
set temp=%%k
if "!temp:~8,1!"=="*" goto gpt
)
set gpt=false
echo Your disk is MBR disk!
ping 127.0.0.1 -n 5 >nul 2>nul
goto nogpt
:gpt
set gpt=true
echo Your disk is GPT disk!
ping 127.0.0.1 -n 5 >nul 2>nul
:nogpt
if exist yiwuyun.txt del yiwuyun.txt || exit /b 1
rem echo errorlevel is !errorlevel!
exit /b 0

复制代码

@echo off
del /q c:\diskinfo.* >nul 2>nul
for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (
more +%%i "%~f0" > c:\diskinfo.vbs
)
ping 127.0.0.1 -n 2 >nul 2>nul
echo ——————————————————————————————————————— >nul 2>nul
start c:\diskinfo.vbs
ping 127.0.0.1 -n 5 >nul 2>nul
cls
type c:\diskinfo.txt
ping 127.0.0.1 -n 15 >nul 2>nul & del /q c:\diskinfo.* & exit/b
goto :eof
echo ——————————————————————————————————————— >nul 2>nul
:DynamicScript
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")
For Each objDisk in colDisks
i = i + 1
s = s & "硬盘" & i & ":" & vbTab
s = s & "大小:" & GetSize(objDisk.Size) & vbTab
s = s & "型号:" & objDisk.Caption & vbCrLf
strDiskID = Replace(objDisk.DeviceID, "\", "\\")
Set colPartitions = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _
& " where AssocClass=Win32_DiskDriveToDiskPartition")
For Each objPartition in colPartitions
strPartId = objPartition.DeviceID
Set colLogicalDisks = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """} where AssocClass=Win32_LogicalDiskToPartition")
For Each objLogicalDisk in colLogicalDisks
size = objLogicalDisk.Size
free = objLogicalDisk.Freespace
used = FormatNumber((size - free) / size * 100, 2, true) & "%"
s = s & "分区" & objLogicalDisk.DeviceID & vbTab
s = s & "大小:" & GetSize(size) & vbTab
s = s & "剩余:" & GetSize(free) & vbTab
s = s & "使用率:" & used & vbCrLf
Next
Next
s = s & vbCrLf
Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.OpenTextFile("c:\diskinfo.txt", 2, true).Write s
Function GetSize(intSize)
If intSize/1024/1024 > 1024 Then
GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"
Else
Getize = FormatNumber(intSize/1024/1024, 2, true) & "MB"
End If
End Function

复制代码

@echo off
:IsGPT
rem 判定是否是GPT磁盘。
echo list disk >yiwuyun.txt
for /f "skip=8 tokens=3 delims=B" %%k in ('diskpart /s yiwuyun.txt') do (
set temp=%%k
if "!temp:~8,1!"=="*" goto gpt
)
set gpt=false
echo Your disk is MBR disk!
ping 127.0.0.1 -n 5 >nul 2>nul
goto nogpt
:gpt
set gpt=true
echo Your disk is GPT disk!
ping 127.0.0.1 -n 5 >nul 2>nul
:nogpt
del /f /q yiwuyun.txt
del /q c:\diskinfo.* >nul 2>nul
for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (
more +%%i "%~f0" > c:\diskinfo.vbs
)
ping 127.0.0.1 -n 2 >nul 2>nul
echo ——————————————————————————————————————— >nul 2>nul
start c:\diskinfo.vbs
ping 127.0.0.1 -n 5 >nul 2>nul
cls
type c:\diskinfo.txt
ping 127.0.0.1 -n 15 >nul 2>nul & del /q c:\diskinfo.* & exit/b
goto :eof
echo ——————————————————————————————————————— >nul 2>nul
:DynamicScript
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")
For Each objDisk in colDisks
i = i + 1
s = s & "硬盘" & i & ":" & vbTab
s = s & "大小:" & GetSize(objDisk.Size) & vbTab
s = s & "型号:" & objDisk.Caption & vbCrLf
strDiskID = Replace(objDisk.DeviceID, "\", "\\")
Set colPartitions = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _
& " where AssocClass=Win32_DiskDriveToDiskPartition")
For Each objPartition in colPartitions
strPartId = objPartition.DeviceID
Set colLogicalDisks = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """} where AssocClass=Win32_LogicalDiskToPartition")
For Each objLogicalDisk in colLogicalDisks
size = objLogicalDisk.Size
free = objLogicalDisk.Freespace
used = FormatNumber((size - free) / size * 100, 2, true) & "%"
s = s & "分区" & objLogicalDisk.DeviceID & vbTab
s = s & "大小:" & GetSize(size) & vbTab
s = s & "剩余:" & GetSize(free) & vbTab
s = s & "使用率:" & used & vbCrLf
Next
Next
s = s & vbCrLf
Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.OpenTextFile("c:\diskinfo.txt", 2, true).Write s
Function GetSize(intSize)
If intSize/1024/1024 > 1024 Then
GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"
Else
Getize = FormatNumber(intSize/1024/1024, 2, true) & "MB"
End If
End Function

复制代码

@echo off
for /f "tokens=1,2,* delims= " %%a in ('echo list disk^|diskpart^|find /i "B"') do (
(echo,%%c|find /i "*" >nul 2>nul) && (
echo %%a %%b 是GPT分区
) || (
echo %%a %%b 不是GPT分区
)
)
pause

复制代码

C:\Documents and Settings\Yu2n>ver
Microsoft Windows XP [Version 5.1.2600]
C:\Documents and Settings\Yu2n>diskpart
Microsoft DiskPart version 5.1.3565
Copyright (C) 1999-2003 Microsoft Corporation.
On computer: PC-02
DISKPART> list disk
Disk ### Status Size Free Dyn Gpt
-------- ---------- ------- ------- --- ---
Disk 0 Online 20 GB 0 B
Disk 1 Online 10 GB 0 B
Disk 2 Online 500 GB 0 B
DISKPART>

复制代码

RunAsAdmin
Main
Sub Main()
Dim objWMI, colDisks
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")
For Each objDisk in colDisks
s = s & "硬盘" & objDisk.Index & ":" & vbTab
s = s & "大小:" & GetSize(objDisk.Size) & vbTab
s = s & "型号:" & objDisk.Caption & vbTab
s = s & "分区表:" & IsGPT(objDisk.Index) & vbCrLf
strDiskID = Replace(objDisk.DeviceID, "\", "\\")
Set colPartitions = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _
& " where AssocClass=Win32_DiskDriveToDiskPartition")
For Each objPartition in colPartitions
strPartId = objPartition.DeviceID
Set colLogicalDisks = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """} where AssocClass=Win32_LogicalDiskToPartition")
For Each objLogicalDisk in colLogicalDisks
size = objLogicalDisk.Size
free = objLogicalDisk.Freespace
used = FormatNumber((size - free) / size * 100, 2, true) & "%"
s = s & "分区" & objLogicalDisk.DeviceID & vbTab
s = s & "大小:" & GetSize(size) & vbTab
s = s & "剩余:" & GetSize(free) & vbTab
s = s & "使用率:" & used & vbCrLf
Next
Next
s = s & vbCrLf
Next
WScript.Echo s
End Sub
' 格式化
Function GetSize(intSize)
If intSize/1024/1024 > 1024 Then
GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"
Else
GetSize = FormatNumber(intSize/1024/1024, 2, true) & "MB"
End If
End Function
' 获取指定硬盘的分区表类型(GPT/MBR)
Function IsGPT(ByVal nDiskIndex)
IsGPT = "MBR" 'XP 不支持diskpart 识别GPT，默认MBR。感谢 freesoft00 提醒。
Dim wso, sLogFile, sText
Set wso = CreateObject("WScript.Shell")
sLogFile = wso.ExpandenVironmentStrings("%temp%\diskpart.log")
wso.Run "cmd /c ""chcp 437 & cls & (echo list disk | diskpart | find /i ""Disk " & nDiskIndex & """) >""" & sLogFile & """ "" ", 0, False
Call TxtFile(sLogFile, 1, -2, sText)
If Trim(Right(sText,3)) = "*" Then IsGPT = "GPT"
End Function
' 对文本指定编码进行读写操作2
'nRW: 1只读, 2只写, 8追加 'nCharset: -2(系统), -1(Unicode), 0(ASCII)
Sub TxtFile(ByVal FileName, ByVal nRW, ByVal nCharset, ByRef sText)
Dim fso : Set fso = CreateObject("Scripting.filesystemobject")
If sText <> "" And (nRW = 2 Or nRW = 8) Then
fso.OpenTextFile(FileName, nRW, True, nCharset).Write sText
ElseIf fso.FileExists(FileName) And nRW = 1 Then
If fso.GetFile(FileName).Size > 0 Then _
sText = fso.OpenTextFile(FileName, nRW, False, nCharset).ReadAll
End If
End Sub
' 以管理员身份运行
Sub RunAsAdmin()
Dim objItems, objItem, strVer, nVer
Set objItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
For Each objItem In objItems
strVer = objItem.Version
Next
nVer = Split(strVer, ".")(0) & Split(strVer, ".")(1)
If nVer >= 60 Then
Dim oShell, oArg, strArgs
Set oShell = CreateObject("Shell.Application")
If Not WScript.Arguments.Named.Exists("ADMIN") Then
For Each oArg In WScript.Arguments
strArgs = strArgs & " """ & oArg & """"
Next
strArgs = strArgs & " /ADMIN:1"
Call oShell.ShellExecute("WScript.exe", """" & WScript.ScriptFullName & """" & strArgs, "", "runas", 1)
Set oShell = Nothing
WScript.Quit(0)
End If
Set oShell = Nothing
End If
End Sub

复制代码

@echo off
echo ——————————————————————————————————————— >nul 2>nul
echo 判断硬盘是MBR分区还是GTP分区
if exist "c:\diskinfo.*" (del /q "c:\diskinfo.*" >nul 2>nul)
for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (
more +%%i "%~f0" > c:\diskinfo.vbs
)
ping 127.0.0.1 -n 2 >nul 2>nul
cls
cscript /nologo c:\diskinfo.vbs
ping 127.0.0.1 -n 2 >nul 2>nul
CScript /NoLogo c:\diskinfo.vbs>c:\diskinfo.txt
ping 127.0.0.1 -n 2 >nul 2>nul
cls
Type c:\diskinfo.txt
ping 127.0.0.1 -n 5 >nul 2>nul & if exist "c:\diskinfo.*" (del /q "c:\diskinfo.*" >nul 2>nul)
echo ——————————————————————————————————————— >nul 2>nul
if exist "c:\diskinfo.*" (del /q "c:\diskinfo.*" >nul 2>nul)
set "vbs=c:\diskinfo.vbs"
set "log=c:\diskinfo.log"
for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (more +%%i "%~f0" > "%vbs%")
CScript //NoLogo "%vbs%" > "%log%"
cls
type "%log%"
ping 127.0.0.1 -n 5 >nul 2>nul & if exist "c:\diskinfo.*" (del /q "c:\diskinfo.*" >nul 2>nul) & exit/b
goto :eof
echo ——————————————————————————————————————— >nul 2>nul
:DynamicScript
Main
Sub Main()
Dim objWMI, colDisks
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")
For Each objDisk in colDisks
s = s & "硬盘" & objDisk.Index & ":" & vbTab
s = s & "大小:" & GetSize(objDisk.Size) & vbTab
s = s & "型号:" & objDisk.Caption & vbTab
s = s & "分区表:" & IsGPT(objDisk.Index) & vbCrLf
strDiskID = Replace(objDisk.DeviceID, "\", "\\")
Set colPartitions = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _
& " where AssocClass=Win32_DiskDriveToDiskPartition")
For Each objPartition in colPartitions
strPartId = objPartition.DeviceID
Set colLogicalDisks = objWMI.ExecQuery _
("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """} where AssocClass=Win32_LogicalDiskToPartition")
For Each objLogicalDisk in colLogicalDisks
size = objLogicalDisk.Size
free = objLogicalDisk.Freespace
used = FormatNumber((size - free) / size * 100, 2, true) & "%"
s = s & "分区" & objLogicalDisk.DeviceID & vbTab
s = s & "大小:" & GetSize(size) & vbTab
s = s & "剩余:" & GetSize(free) & vbTab
s = s & "使用率:" & used & vbCrLf
Next
Next
s = s & vbCrLf
Next
WScript.Echo s
' 把显示的内容保存在TXT文件
' WScript.Echo s替换为下面的代码
' CreateObject("Scripting.filesystemobject").CreateTextFile("结果.txt",2).Write s
End Sub
' 格式化
Function GetSize(intSize)
If intSize/1024/1024 > 1024 Then
GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"
Else
GetSize = FormatNumber(intSize/1024/1024, 2, true) & "MB"
End If
End Function
' 获取指定硬盘的分区表类型(GPT/MBR)
Function IsGPT(ByVal nDiskIndex)
IsGPT = "MBR"
Dim wso, sLogFile, sText
Set wso = CreateObject("WScript.Shell")
sLogFile = wso.ExpandenVironmentStrings("%temp%\diskpart.log")
wso.Run "cmd /c ""chcp 437 & cls & (echo list disk | diskpart | find /i ""Disk " & nDiskIndex & """) >""" & sLogFile & """ "" ", 0, False
Call TxtFile(sLogFile, 1, -2, sText)
' If Trim(Right(sText,3)) = "*" Then IsGPT = "GPT"
If InStrRev(sText, "*")>0 Then IsGPT = "GPT"
End Function
' 对文本指定编码进行读写操作2
'nRW: 1只读, 2只写, 8追加 'nCharset: -2(系统), -1(Unicode), 0(ASCII)
Sub TxtFile(ByVal FileName, ByVal nRW, ByVal nCharset, ByRef sText)
Dim fso : Set fso = CreateObject("Scripting.filesystemobject")
If sText <> "" And (nRW = 2 Or nRW = 8) Then
fso.OpenTextFile(FileName, nRW, True, nCharset).Write sText
ElseIf fso.FileExists(FileName) And nRW = 1 Then
If fso.GetFile(FileName).Size > 0 Then _
sText = fso.OpenTextFile(FileName, nRW, False, nCharset).ReadAll
End If
End Sub
' 以管理员身份运行
Sub RunAsAdmin()
Dim objItems, objItem, strVer, nVer
Set objItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
For Each objItem In objItems
strVer = objItem.Version
Next
nVer = Split(strVer, ".")(0) & Split(strVer, ".")(1)
If nVer >= 60 Then
Dim oShell, oArg, strArgs
Set oShell = CreateObject("Shell.Application")
If Not WScript.Arguments.Named.Exists("ADMIN") Then
For Each oArg In WScript.Arguments
strArgs = strArgs & " """ & oArg & """"
Next
strArgs = strArgs & " /ADMIN:1"
Call oShell.ShellExecute("WScript.exe", """" & WScript.ScriptFullName & """" & strArgs, "", "runas", 1)
Set oShell = Nothing
WScript.Quit(0)
End If
Set oShell = Nothing
End If
End Sub

复制代码