ยินดีต้อนรับเข้าสู่ jokergameth.com
ค้นหาข้อมูลใน jokergameth.com
หน้าแรก สั่งซื้อสินค้า
กระดานพูดคุย เกี่ยวกับเรา


ดูหนังออนไลน์




เว็บไซต์เราจะอยู่ไม่ได้หากขาดเขาเหล่านี้ รวมช่วยกันสนับสนุนสปอนเซอร์ของพวกเรา

colocation,โคโลเคชั่น,ฝากเซิร์ฟเวอร์ สนับสนุนเว็บไซต์ Joker Pao Pao Joker Game Official Fanpage บล็อคสาวไฮโซ เล่นเกมแล้วได้เงิน ลงโฆษณา
ให้เช่า Colocation
บริจาค/Donation
ซาลาเปา JOKER
Jokergame Facebook
บล็อคสาวไฮโซ
จ้างให้เล่นเกม

กำลังแสดงผล 1 ถึง 2 จากทั้งหมด 2
  1. #1
    ชอบโพสต์เป็นชีวิตจิตใจ
    วันที่สมัคร
    Sep 2011
    กระทู้
    143
    กล่าวขอบคุณ
    88
    ได้รับคำขอบคุณ: 15

    ถามไรหน่อยครับ

    คือ ไดร์ System Reserred ตอนลงวินโดว์ อะครับ ขนาด 100mb หรืออะไรนี่แหละครับ


    คือไดร์เกี่ยวกับอะไรหรอครับ

  2. #2
    ชอบโพสต์เป็นชีวิตจิตใจ
    วันที่สมัคร
    Jul 2011
    ที่อยู่
    http://wse7en.net
    กระทู้
    468
    กล่าวขอบคุณ
    14
    ได้รับคำขอบคุณ: 162
    เอาใว้เก็บค่า การซ่อมแซม และหรือเอาใว้ ยัด bios Emulator ที่ใว้ crack สำหรับ bios ที่ไม่ใช่ 2.0

    โค้ด:
    'script by NononSence
    
    
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set Shell = WScript.CreateObject("WScript.Shell")
    Set WinDir = objFileSystem.GetSpecialFolder(WindowsFolder)
    Set colDisks = objWMIService.ExecQuery ("Select * From Win32_LogicalDisk")
    Set colVols = objWMIService.ExecQuery ("Select * From Win32_Volume")
    dir = Shell.CurrentDirectory
    isMounted = 0
    
    For Each objDisk in colDisks
        objDictionary.Add objDisk.DeviceID, objDisk.DeviceID
    Next
    
    'Check to see if SystemVolume is already mounted
    
    For Each objVol in colVols
     If objVol.SystemVolume = True then
       If objDictionary.Exists(objVol.DriveLetter) Then
    	TargetDrive = objVol.DriveLetter
    	isMounted = 1
    	Wscript.Echo(" System Volume is: " & TargetDrive)
    	Exit For
       End If
     End If
    Next
    
    'find a free drive letter
    
    If isMounted = 0 Then
     For a = 67 to 90
       TargetDrive = Chr(a) & ":"
      If objDictionary.Exists(TargetDrive) Then
    Else
       Wscript.Echo(" Found free drive letter " & TargetDrive)
       Exit For
      End If
     Next
    End If
    
    'mount SystemVolume
    
    If isMounted = 0 Then
     For Each objVol in colVols
    	If objVol.SystemVolume = True then
    	Wscript.Echo(" Assigning letter " & TargetDrive & " to System Volume")
    	objvol.DriveLetter = TargetDrive
    	objVol.Put_
            End If
    	Exit For
     Next
    End If
    
    'Install bootloader
    
    Wscript.Echo(" Installing bootloader to " & TargetDrive)
    Shell.Run "attrib " & TargetDrive & "\grldr -h -s -r", 2, 1
    Shell.Run "attrib " & TargetDrive & "\win7.ld -h -s -r", 2, 1
    objFileSystem.CopyFile dir & "\data\Install_files_w7\*", TargetDrive & "\", 1
    Shell.Run"attrib " & TargetDrive & "\grldr +h +s +r", 2, 1
    Shell.Run"attrib " & TargetDrive & "\win7.ld +h +s +r", 2, 1
    Shell.Run chr(34) & dir & "\data\boot\bootinst.exe" & chr(34) & " /nt60 " & TargetDrive, 2, 1
    
    'Install certificate
    
    Wscript.Echo(" Installing Certificate")
    Shell.Run "cscript //NOLOGO " & WinDir & "\System32\slmgr.vbs -ilc " & chr(34) & dir & "\data\Certificate\ASUS.XRM-MS" & chr(34), 2, 1
    
    'make sure we dont unmount C: and then unmount drive
    
    If isMounted=0 Then
       If Not TargetDrive = "C:" Then
    	Wscript.Echo(" Unmounting " & TargetDrive)
    	Shell.Run "mountvol " & TargetDrive & " /D " , 2, 1
       End If
    End If
    wscript.quit
    แก้ไขครั้งสุดท้ายโดย hpz : 17th February 2012 เมื่อ 21:19


 

กฎการส่งข้อความ

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Back to top