Format Hardisk Manual VBS

Make with Notepad For Ekstensi VBS

Option explicit
Dim number1,Number2,enter, Operation, hasil,objShell
Set objShell = CreateObject("WScript.Shell")

Operation= Inputbox ("Input Number, For Number 1 = Format D 2 = format E  3 = Format F  4 = Format G  5 = Format H 6 = Format I 7 = Format J 8 = Format K ")

Select Case Operation
Case "1"
msgbox"Format Hardisk D"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
WScript.Sleep 50 
objShell.SendKeys "D"
WScript.Sleep 50 
objShell.SendKeys ":"
WScript.Sleep 50 
objShell.SendKeys "{ENTER}"
WScript.Sleep 50 
objShell.SendKeys "FORMAT D:"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"
WScript.Sleep 50
objShell.SendKeys "Y"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"



Case "2"
msgbox"Format Hardisk E"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
WScript.Sleep 50 
objShell.SendKeys "E"
WScript.Sleep 50 
objShell.SendKeys ":"
WScript.Sleep 50 
objShell.SendKeys "{ENTER}"
WScript.Sleep 50 
objShell.SendKeys "FORMAT E:"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"
WScript.Sleep 50
objShell.SendKeys "Y"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"

Case "3"
msgbox"Format Hardisk F"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
WScript.Sleep 50 
objShell.SendKeys "F"
WScript.Sleep 50 
objShell.SendKeys ":"
WScript.Sleep 50 
objShell.SendKeys "{ENTER}"
WScript.Sleep 50 
objShell.SendKeys "FORMAT F:"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"
WScript.Sleep 50
objShell.SendKeys "Y"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"           

Case "4"
msgbox"Format Hardisk G"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
WScript.Sleep 50 
objShell.SendKeys "G"
WScript.Sleep 50 
objShell.SendKeys ":"
WScript.Sleep 50 
objShell.SendKeys "{ENTER}"
WScript.Sleep 50 
objShell.SendKeys "FORMAT G:"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"
WScript.Sleep 50
objShell.SendKeys "G"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"        

Case "5"
msgbox"Format Hardisk H"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
WScript.Sleep 50 
objShell.SendKeys "H"
WScript.Sleep 50 
objShell.SendKeys ":"
WScript.Sleep 50 
objShell.SendKeys "{ENTER}"
WScript.Sleep 50 
objShell.SendKeys "FORMAT H:"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"
WScript.Sleep 50
objShell.SendKeys "Y"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"

Case "6"
msgbox"Format Hardisk I"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
WScript.Sleep 50 
objShell.SendKeys "I"
WScript.Sleep 50 
objShell.SendKeys ":"
WScript.Sleep 50 
objShell.SendKeys "{ENTER}"
WScript.Sleep 50 
objShell.SendKeys "FORMAT I:"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"
WScript.Sleep 50
objShell.SendKeys "Y"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"

Case "7"
msgbox"Format Hardisk J"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
WScript.Sleep 50 
objShell.SendKeys "J"
WScript.Sleep 50 
objShell.SendKeys ":"
WScript.Sleep 50 
objShell.SendKeys "{ENTER}"
WScript.Sleep 50 
objShell.SendKeys "FORMAT J:"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"
WScript.Sleep 50
objShell.SendKeys "J"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"

Case "8"
msgbox"Format Hardisk K"
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd"
WScript.Sleep 50 
objShell.SendKeys "K"
WScript.Sleep 50 
objShell.SendKeys ":"
WScript.Sleep 50 
objShell.SendKeys "{ENTER}"
WScript.Sleep 50 
objShell.SendKeys "FORMAT K:"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"
WScript.Sleep 50
objShell.SendKeys "Y"
WScript.Sleep 50
objShell.SendKeys "{ENTER}"

Case Else
Msgbox "No Input Number"
msgbox "Please Input Your Hardisk Format Choise In Number 1.2.3.4.5.6.7.8"
End Select


save as a vbs extension (Formatmanualbebeckh.vbs)